Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Search & Replace
John,
Did you try activecell.value = "Ok" after the find? Charle -- Message posted from http://www.ExcelForum.com |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ . |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Search and Replace, or Add New Row | Excel Discussion (Misc queries) | |||
Search and replace | Excel Discussion (Misc queries) | |||
Search and Replace | Excel Discussion (Misc queries) | |||
Search and replace | Excel Worksheet Functions | |||
Search and Replace | New Users to Excel |