Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error if can't find text
The following code basically does a find in the list of
rows and blank the row that matches RemoveEmp. If the exact text of RemoveEmp cannot be found, nothing happens. What can be added to the following code so that if the exact code cannot be found, an error message appears? 'Find RemoveEmp Name in Text and Set values in line equal to " " Count = 0 Do While Count < 60 Count = Count + 1 If ActiveSheet.Cells(Count, 1) = RemoveEmp Then ActiveSheet.Cells(Count, 1).Activate ActiveCell.EntireRow.Value = "" End If Loop Thanks SS |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error if can't find text
Do you mean if the text is never found during the entire looping
process? If so, try the amended code: Dim Found As Boolean Dim Count As Long Do While Count < 60 Count = Count + 1 If ActiveSheet.Cells(Count, 1) = RemoveEmp Then ActiveSheet.Cells(Count, 1).Activate Found = True ActiveCell.EntireRow.Value = "" End If Loop If Found = False Then MsgBox "Not Found" End If -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "S. S." wrote in message ... The following code basically does a find in the list of rows and blank the row that matches RemoveEmp. If the exact text of RemoveEmp cannot be found, nothing happens. What can be added to the following code so that if the exact code cannot be found, an error message appears? 'Find RemoveEmp Name in Text and Set values in line equal to " " Count = 0 Do While Count < 60 Count = Count + 1 If ActiveSheet.Cells(Count, 1) = RemoveEmp Then ActiveSheet.Cells(Count, 1).Activate ActiveCell.EntireRow.Value = "" End If Loop Thanks SS |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Error dialog box meaning and how to find error | Excel Worksheet Functions | |||
Search, find or lookup defined text in text string | Excel Worksheet Functions | |||
Counting instances of found text (Excel error? Or user error?) | Excel Worksheet Functions | |||
how to find an error | Excel Discussion (Misc queries) | |||
help with this error-Compile error: cant find project or library | Excel Discussion (Misc queries) |