| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Clearing Check Boxes & Running a diff Macro when unchecking the ch | Excel Discussion (Misc queries) | |||
| Need macro to check if cell is not blank & previous cell is blank, copy information from row above & paste | Excel Programming | |||
| Check values before running macro | Excel Programming | |||
| How to check a cell for content before running macro. | Excel Programming | |||
| Check cell for data before running code | Excel Programming | |||
Hybrid Mode
