how can i select all the cells with same color on a sheet if there are multipale colors by vba code

U

uobt

how can i select all the cells with same color on a sheet if there are
multipale colors by vba code
 
D

Don Guillett

Much better than the 1st post. try this

Sub selectyellows()
For Each cel In ActiveSheet.UsedRange
If cel.Interior.ColorIndex = 6 Then
mystr = mystr & cel.Address & ","
End If
Next cel
mystr = Left(mystr, Len(mystr) - 1)
Range(mystr).Select
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Match table shading (color) to Visio color/Transparency 1
Fill tringle in a cell with color 1
Need help modifying code 0
Tracked changes by multiple people modified to one 0
Word for Android background colors? (corrected) 0
How to remove preloaded-text upon creation of a new Word file? 0
How do I convert shading to highlighting for specific colors 8
Color in Visual Basic 2

Top