exit sub if no data

[Daniel]

hi
How can I code so that my VBA will exit sub if no data in a row of a column?
Thanks
Daniel

 

[Bob Phillips]

A row of a column? Do you mean a cell?

If Cells(the_row_num, "the_Column_letter").Value = "" Then Exit Sub

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Daniel]

Thanks Bob
I code this at the begin of sub and cause error??

with activesheet
If Cells(2, "a").Value = "" Then
Exit Sub
end if

 

[Dave Peterson]

Could it be that you didn't include the "End with"

with activesheet
If .Cells(2, "a").Value = "" Then
Exit Sub
end if
end with

I added a dot in front of the cells() reference.

If this doesn't help, you should post the code and post the error message that
you see--and indicate which line causes the error.

 

[Don Guillett]

You may have had the dreaded space bar in cell a2 so try
Sub exitif()
With ActiveSheet
'If Cells(2, "a").Value = "" Then Exit Sub
If Len(Application.Trim(Cells(2, "a"))) < 1 Then Exit Sub
MsgBox "hi"
End With
End Sub

 

[Daniel]

Thanks all
It works like a charm
Daniel

You may have had the dreaded space bar in cell a2 so try
Sub exitif()
With ActiveSheet
'If Cells(2, "a").Value = "" Then Exit Sub
If Len(Application.Trim(Cells(2, "a"))) < 1 Then Exit Sub
MsgBox "hi"
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)