Search & Replace

[John Keturi]

I have a Calender worksheet, I need the macro to search row 1 (days
Mon-Fri), find only the Fridays, then search down the column until it finds
a name (John), then put "OK" into the corresponding cell? I wrote one where
searches each row & column by using "next". However, its not changing the
corresponding cell value.

 

[John]

Sub Macro1()
'
' Macro1 Macro
'
Sheets("data").Select
' count the number of days (in row 1) and the number
'of rows of data (in row 2 on)
ndays = WorksheetFunction.CountA(Range("a1:ia1"))
nRows = WorksheetFunction.CountA(Range("a1:a1000"))
For i = 1 To ndays
If Cells(1, i).Value <> "Fri" Then GoTo nexti
For j = 2 To nRows
If Cells(j, i).Value = "John" Then Cells(j, i).Value = "OK"
Next j
nexti:
Next i
'
End Sub


John

 

[Charles]

John,

Did you try activecell.value = "Ok" after the find?

Charle

 

[John]

Charles, no, and since I am still learning vba, can you
enlighten me as to the advantage of doing so vs my specifc
cell reference?

John

 

[Charles]

John,

I ran your code and it replaced "john" with Ok.
As to why when you run your end of it doesn't work I can't really say
why its not working. If you want send your worksheet to me at
(e-mail address removed) and I'll look it over.

Charles