Want to check if cell is blank before running macro

[Munchkin]

I'm only entering part of my macro button because it's long.

The first thing I want my macro to do is look at D4 & give an error message
if the cell is blank. How do I do that?



Sheets("REQUEST ").Select
ActiveSheet.Unprotect
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Application.Goto Reference:="NewRecord"
Selection.Copy
Rows("4:4").Select
ActiveSheet.Paste
Range("A4").Select
Application.CutCopyMode = False
Selection.Copy
Range("D4").Select
Sheets("SEARCH ").Select
Range("D9:E9").Select
Application.CutCopyMode = False

 

[r]

Sub test()
If IsEmpty([d4]) Then _
Err.Raise 1000, , "Your error"

End Sub

regards
r

Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/index.php/Excel-VBA/UsedRange-eccezioni-e-alternative.html

 

[Don Guillett]

Without seeing all, try these ideas

with Sheets("REQUEST ")
If Len(Application.Trim(.Range("d4"))) < 1 Then
MsgBox "bad"
Exit Sub
End If
'MsgBox "go on "

.Unprotect

.Rows("4).insert

range("NewRecord").copy .cells(4,"a")
'etc
Sheets("SEARCH ").Range("D9:E9").copy ' ??

end with
end sub

 

[eliano]

I'm only entering part of my macro button because it's long.

The first thing I want my macro to do is look at D4 & give an error message
if the cell is blank.  How do I do that?

Sheets("REQUEST ").Select
    ActiveSheet.Unprotect
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown
    Application.Goto Reference:="NewRecord"
    Selection.Copy
    Rows("4:4").Select
    ActiveSheet.Paste
    Range("A4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D4").Select
    Sheets("SEARCH ").Select
    Range("D9:E9").Select
    Application.CutCopyMode = False

Hi Munchin.
the macro part is quite incomprehensible; however you can use:

........
If Range("D4").Value = "" then
' make something
Else
' make something else
End If
.......

Regards
Eliano