Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating a Loop that looks for the word "Total"
I have created a macro that looks for the word Total that is in Bold type.
When it finds this, it will create a new worksheet, copy a header from a template that is in the workbook and format the worksheet for printing. I have copied the steps and pasted those same steps several times in the macro. The problem is, that the number of times that this formatted Total is found is not consistent. So sometimes the Total may be there three times and sometimes 5. So the macro creates an error if it tries to run too many times and stops once it gets through the number of times that I have copied the code in the macro. I was thinking that if I created the steps in a separate macro and have the macro run if it finds the formatted word that would be much simpler. So I would like to create a loop that looks for this formatted text and run a macro if it finds it. If it doesn't, I would like the whole macro to stop. The code that I have that looks for the text is as follows: With Application.FindFormat.Font .FontStyle = "Bold" .Subscript = False End With Cells.Find(What:="Total", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=True).Activate With Application.FindFormat.Font .FontStyle = "Bold" .Subscript = False End With Cells.Find(What:="Total", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=True).Activate As you can see, I have it search for the text twice because each time after it performs the rest of the macro, it finds the same text that it perfoms the macro on first and then it finds the next formatted text to perform the rest of the macro again. How would I create a loop to tell it to look for this text twice and if not found to stop. Any help would be appreciated. Rob |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Linking two "total" pages to create a "Complete Total" page | Excel Worksheet Functions | |||
Find the word "total" in a cell, delete row or column | Excel Programming | |||
Find the word "total" in a cell, delete row or column | Excel Programming | |||
Find the word "total" in a cell, delete row or column | Excel Programming | |||
Removing the word "Total" from subtotal cells | Excel Programming |