Search & Replace
 

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.

Search & Replace
 

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

-----Original Message-----
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.


.

Search & Replace
 

John,

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

Charle

--
Message posted from http://www.ExcelForum.com

Search & Replace
 

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
-----Original Message-----
John,

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

Charles


---
Message posted from http://www.ExcelForum.com/

.

Search & Replace
 

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
and I'll look it over.

Charles


---
Message posted from http://www.ExcelForum.com/