Purfleet
England
Member
Members
Trusted Members
Trusted Members
Forum Posts: 414
Member Since:
December 20, 2019
December 20, 2019
Offline
I dont think you can use the find/replace in that way as it only finds and replaces.
Pretty sure you will need to test each cell and then colour it in
This should would work
Sub find_replace1()
Dim r As Range
Dim C As Range
Set r = Range("C2:AG126")
For Each C In r
Debug.Print C.Address
If C.Value = "s" Then
C.Value = "Hey"
C.Interior.Color = vbYellow
End If
Next C
End Sub
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online: Catalin Bombea, Xu Zhi Jie, Dirk Peeters, Brad Matthews, Noel Noel
Guest(s) 9
Currently Browsing this Page:
1 Guest(s)
1 Guest(s)
Top Posters:
Catalin Bombea: 1913
SunnyKow: 1432
Anders Sehlstedt: 899
Purfleet: 414
Frans Visser: 346
David_Ng: 306
Hans Hallebeek: 279
lea cohen: 245
Jessica Stewart: 219
A.Maurizio: 213
Newest Members:
Mallika Asireddy
Sheila Sanders
Francine Walshe
Sean Ladlow
Jorge Chicas
mahmoud salem
Irvine Choolo
Deon Bouwer
Amgad Squires
jim bo
Forum Stats:
Groups: 3
Forums: 24
Topics: 6836
Posts: 29989
Member Stats:
Guest Posters: 49
Members: 33569
Moderators: 2
Admins: 3
Administrators: Mynda Treacy, Philip Treacy, Jessica
Moderators: Velouria, Riny van Eekelen
© Simple:Press —