Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Find" expression won't work
Hi, I know little about VBA, so I've recorded a macro and pasted (see below)
it into the VBA window. It works great as a macro, but won't work when I run it in VBA. I end up with Run-time error '1004'. This VBA code will work fine on a different worksheet, but not on this "Progress" sheet. I've tried everything I can think of but can't get it to run. The term "bottomofaddnewrows" does exist, and can be found by the macro. Any help would be appreciated. Harold ============================ Sheets("Progress").Select Cells.Find(What:="bottomofaddnewrows", After:=ActiveCell, LookIn:= _ xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False).Activate |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Find" expression won't work
So simple but yet it works great! Thanks for your help, Don!
Harold ===================== "Don Guillett" wrote in message ... both worked Sub findbottom() 'Sheets("sheet5").Select 'Cells.Find("bot").Activate 'or BETTER Application.Goto Sheets("sheet5").Cells.Find("bot") End Sub -- Don Guillett SalesAid Software "Harold Good" wrote in message ... Hi, I know little about VBA, so I've recorded a macro and pasted (see below) it into the VBA window. It works great as a macro, but won't work when I run it in VBA. I end up with Run-time error '1004'. This VBA code will work fine on a different worksheet, but not on this "Progress" sheet. I've tried everything I can think of but can't get it to run. The term "bottomofaddnewrows" does exist, and can be found by the macro. Any help would be appreciated. Harold ============================ Sheets("Progress").Select Cells.Find(What:="bottomofaddnewrows", After:=ActiveCell, LookIn:= _ xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False).Activate |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Find" expression won't work
happy to help
-- Don Guillett SalesAid Software "Harold Good" wrote in message ... So simple but yet it works great! Thanks for your help, Don! Harold ===================== "Don Guillett" wrote in message ... both worked Sub findbottom() 'Sheets("sheet5").Select 'Cells.Find("bot").Activate 'or BETTER Application.Goto Sheets("sheet5").Cells.Find("bot") End Sub -- Don Guillett SalesAid Software "Harold Good" wrote in message ... Hi, I know little about VBA, so I've recorded a macro and pasted (see below) it into the VBA window. It works great as a macro, but won't work when I run it in VBA. I end up with Run-time error '1004'. This VBA code will work fine on a different worksheet, but not on this "Progress" sheet. I've tried everything I can think of but can't get it to run. The term "bottomofaddnewrows" does exist, and can be found by the macro. Any help would be appreciated. Harold ============================ Sheets("Progress").Select Cells.Find(What:="bottomofaddnewrows", After:=ActiveCell, LookIn:= _ xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False).Activate |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2007 "Find" option won't work. | Excel Worksheet Functions | |||
Find formatting doesn't work: "Excel cannot find data" | Excel Discussion (Misc queries) | |||
HELP on "left","right","find","len","substitute" functions | Excel Discussion (Misc queries) | |||
VBA: "Volatile" use of concatenated worksheetfunction expression | Excel Programming |