VBA - Macro

[sitelbanat]

how would I add to this macro, so it would color the cells blue after putting them in the desired column?

Selection.Interior.ColorIndex = 33


[
Sub Rectangle221_Click()
Dim i As Long
'find the column# where the date is
With Rows(2)
Set c = .Find(Range("aj116").Value, , , xlWhole)
If Not c Is Nothing Then
rfnd = c.Column
End If
End With

'find the match currencies of all the records from aj117 to last row
'and put the values in desired date column
For i = 117 To Range("af" & Rows.Count).End(xlUp).Row
With Columns("b")
Set fc = .Find(Cells(i, "af").Value, , , xlWhole)

If Not fc Is Nothing Then
On Error GoTo err:
Cells(fc.Row, rfnd).Value = Cells(i, "ag").Value
End If
End With
Next
'if no date found from row 2
err:

End Sub
][/code]

 

[kkknie]

Add

Cells(fc.Row, rfnd).Interior.ColorIndex = 34

If you want another color, just record a macro where you format the cell the way you want, stop recording and check out what the macro did.

K

 

[sitelbanat]

Add

Cells(fc.Row, rfnd).Interior.ColorIndex = 34

If you want another color, just record a macro where you format the cell the way you want, stop recording and check out what the macro did.

K

This didnt work, it only colored couple of cells that have data, not all the cell. i need all the cells that have data

 

[kkknie]

If

Cells(fc.Row, rfnd).Value = Cells(i, "ag").Value

is where you put them in the correct space, then

Cells(fc.Row, rfnd).Interior.ColorIndex = 34

should set them to the correct background color if placed on the next line of code. What I mean is that if your first line works, then there is no reason my second line shouldn't.


K

 

[sitelbanat]

it did work thanks k

 

[kkknie]

Whew! I thought I might be losing it there...