stop macro if text is found

[mani_singh]

i need some script to get a macro to check a cell for a text value = if a certain value is present "no csv file present!" then i need the macro to brake and display and error caption / message on screen!

i need to add this to an existing macro which needs to stop when the text is located

 

[Richard Schollar]

Hi Mani

What's the entire code you are currently using? Dependent on what it is actually doing, there are several ways you could achieve this.

 

[mani_singh]

this is the start of the macro i need the check to be performed at the beginning of the macro prior to anything being performed. the cell ref to be checked is on a sheet called "menu" cell ref=E6 (bear in mind the output text is from a if statement formula in the cell.


Sub pickentries()
'
'

*** I NEED THE CODE CHECKER AND BRAKE HERE ***

Sheets("running").Select

Application.ScreenUpdating = False
Sheets("Baseline Data").Select
Range("H2:H1500").Select
Selection.Copy
Sheets("Hidden").Select
Range("A2").Select
ActiveSheet.Paste

Dim Limit As Long
Dim c As Long
Dim d As Long
Limit = Cells(Rows.Count, 1).End(xlUp).Row
d = 2

 

[mani_singh]

OH AND THE TEXT DISPLAYED IS

"No CSV Data Found" - IF STATEMENT = TRUE

"CSV Datafile Present!" - IF STATEMENT = FALSE

 

[Richard Schollar]

Possible code-checker:

Sub pickentries() 

If Sheets("YourSheet").Range("E6").Value = "No CSV Data Found" Then Exit Sub

'.... rest of your macro

 

[mani_singh]

thats worked ! nice one - is there a way i can output a message box before it breaks the code to let the user know whats wrong?

 

[Richard Schollar]

Sure:

Sub pickentries() 

If Sheets("YourSheet").Range("E6").Value = "No CSV Data Found" Then 
   Msgbox "No Csv Data Found!"
   Exit Sub 
End If

'.... rest of your macro