Want to check if cell is blank before running macro
 

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

Want to check if cell is blank before running macro
 

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

End Sub

regards
r

Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/...ternative.html


"Munchkin" wrote:

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

Want to check if cell is blank before running macro
 

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
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Munchkin" wrote in message
...
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

Want to check if cell is blank before running macro
 

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
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Munchkin" wrote in message
...
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

Want to check if cell is blank before running macro
 

On 3 Giu, 22:34, Munchkin wrote:
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

Want to check if cell is blank before running macro
 

On 3 Giu, 22:34, Munchkin wrote:
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