Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Display message if "find" command comes up blank ??
At one point within a macro I'm searching a column for a specific text
using the "Find" command. If the search comes up empty I want to display a message to the user and end the macro. How do I do this? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Display message if "find" command comes up blank ??
One way:
Sub likeThis() Dim found As Variant Set found = Columns(1).Find(What:="gfdfg", _ After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, _ SearchFormat:=False) If Not found Is Nothing Then MsgBox "Found it" Else MsgBox "Didn't find it!" End If End Sub wrote: At one point within a macro I'm searching a column for a specific text using the "Find" command. If the search comes up empty I want to display a message to the user and end the macro. How do I do this? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Display message if "find" command comes up blank ??
How about something like this:
Sub ReportFindResults() ' Define search range Dim myRange As Range Set myRange = Range("a:a") ' Define value to search for Dim ValueToFind As String ValueToFind = "something" With myRange Dim c As Range Set c = .Find(ValueToFind, LookIn:=xlValues) If Not c Is Nothing Then ' do something MsgBox "I found " & ValueToFind & "!" Else MsgBox ValueToFind & " was not found" Exit Sub End If End With End Sub HTH, Matthew Pfluger " wrote: At one point within a macro I'm searching a column for a specific text using the "Find" command. If the search comes up empty I want to display a message to the user and end the macro. How do I do this? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Display message if "find" command comes up blank ??
One way:
Dim rFound As Range Set rFound = Columns(1).Find("mytext") If rFound Is Nothing Then MsgBox "Didn't find 'mytext'" Else 'your macro stuff here End if In article . com, wrote: At one point within a macro I'm searching a column for a specific text using the "Find" command. If the search comes up empty I want to display a message to the user and end the macro. How do I do this? |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Display message if "find" command comes up blank ??
On Sep 27, 1:08 pm, JW wrote:
One way: Sub likeThis() Dim found As Variant Set found = Columns(1).Find(What:="gfdfg", _ After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, _ SearchFormat:=False) If Not found Is Nothing Then MsgBox "Found it" Else MsgBox "Didn't find it!" End If End Sub wrote: At one point within a macro I'm searching a column for a specific text using the "Find" command. If the search comes up empty I want to display a message to the user and end the macro. How do I do this? Thanks, but I'm not sure how to fit this into my macro. What I'm trying to do is activate the cell containing the first occurrence of the text I'm searching for, and then delete that row and all rows below it. |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Display message if "find" command comes up blank ??
On Sep 27, 1:16 pm, JE McGimpsey wrote:
One way: Dim rFound As Range Set rFound = Columns(1).Find("mytext") If rFound Is Nothing Then MsgBox "Didn't find 'mytext'" Else 'your macro stuff here End if In article . com, wrote: At one point within a macro I'm searching a column for a specific text using the "Find" command. If the search comes up empty I want to display a message to the user and end the macro. How do I do this? Great stuff.....worked perfectly. Many thanks. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Display "macro-free workbooks - VB project message" on closing Exc | Excel Discussion (Misc queries) | |||
How to have a macro simply issue the "find" command or "control f: | Excel Programming | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
Error message "Not enough system resources to display completely." | Excel Discussion (Misc queries) | |||
FileCopy Command Giving "Subscript Out of Range" Error Message | Excel Programming |