Can you have multiple Private Sub macros for same cell

[riley454]

I am running the following worksheet macro that increases the value of "C" column if an A column value appears in C50 which is working fine when combined with my other macros however I want to tweak my spreadsheet by making the value in C50 also change the cell color of the column A value that appears in C50

Can I add this to my existing worksheet specific macro or does it need to be run separately.
What is the simplest way?
Any coding suggestions?

"Dim Found As Range
If Target.Address <> "$C$50" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Set Found = Range("A1:A45").Find(Range("C50").Value, LookAt:=xlWhole, MatchCase:=False)
If Not Found Is Nothing Then
Found.Offset(0, 1) = 0
Found.Offset(0, 2).Value = Found.Offset(0, 2).Value + 1
Else
MsgBox "No match found, operation cancelled", vbOKOnly
End If"

 

[RichardMGreen]

You could add it the the curent code and tweak your current code as follows:-

Dim Found As Range
If Target.Address <> "$C$50" or IsEmpty(Target) Then Exit Sub
Set Found = Range("A1:A45").Find(Range("C50").Value, LookAt:=xlWhole, MatchCase:=False)
If Not Found Is Nothing Then
Found.Offset(0, 1) = 0
Found.Offset(0, 2).Value = Found.Offset(0, 2).Value + 1
found.interior.colorindex=44
Else
MsgBox "No match found, operation cancelled", vbOKOnly
End If

You can change the 44 to another number to find a colour to suit yourself.
The line I've added will change the background of the cell in column A which matches whatever's in C50.

 

[riley454]

Thanks Dickie Boy I'll try that.