| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Exit Sub if count less than zero.
Need help on this.
I don't want the Macro to work if [***IF COUNT(T4:T53) = 0 THEN EXIT SUB***] inside the Macro below. Sub SettleAutoDue() ***IF COUNT(T4:T53) = 0 THEN EXIT SUB*** Worksheets("A-3").Range("U4:Z4").Copy Range("G5").PasteSpecial Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False Range("G4").Activate End Sub Thank you. |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Exit Sub if count less than zero.
try,
If WorksheetFunction.Count(Range("T4:T53")) = 0 Then Exit Sub mike " wrote: Need help on this. I don't want the Macro to work if [***IF COUNT(T4:T53) = 0 THEN EXIT SUB***] inside the Macro below. Sub SettleAutoDue() ***IF COUNT(T4:T53) = 0 THEN EXIT SUB*** Worksheets("A-3").Range("U4:Z4").Copy Range("G5").PasteSpecial Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False Range("G4").Activate End Sub Thank you. |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Exit Sub if count less than zero.
Mark the code using a apostrophe in front; like
'***IF COUNT(T4:T53) = 0 THEN EXIT SUB*** If this post helps click Yes --------------- Jacob Skaria " wrote: Need help on this. I don't want the Macro to work if [***IF COUNT(T4:T53) = 0 THEN EXIT SUB***] inside the Macro below. Sub SettleAutoDue() ***IF COUNT(T4:T53) = 0 THEN EXIT SUB*** Worksheets("A-3").Range("U4:Z4").Copy Range("G5").PasteSpecial Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False Range("G4").Activate End Sub Thank you. |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Exit Sub if count less than zero.
Oops; please ignore the previous post....
COUNT() is a worksheet function.So .. Sub SettleAutoDue() If WorksheetFunction.Count(Range("T4:T53")) < 0 Then Worksheets("A-3").Range("U4:Z4").Copy Range("G5").PasteSpecial Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False Range("G4").Activate End If End Sub -- If this post helps click Yes --------------- Jacob Skaria " wrote: Need help on this. I don't want the Macro to work if [***IF COUNT(T4:T53) = 0 THEN EXIT SUB***] inside the Macro below. Sub SettleAutoDue() ***IF COUNT(T4:T53) = 0 THEN EXIT SUB*** Worksheets("A-3").Range("U4:Z4").Copy Range("G5").PasteSpecial Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False Range("G4").Activate End Sub Thank you. |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Exit Sub if count less than zero.
It works. Thanks Mike.
"Mike H" wrote: try, If WorksheetFunction.Count(Range("T4:T53")) = 0 Then Exit Sub mike " wrote: Need help on this. I don't want the Macro to work if [***IF COUNT(T4:T53) = 0 THEN EXIT SUB***] inside the Macro below. Sub SettleAutoDue() ***IF COUNT(T4:T53) = 0 THEN EXIT SUB*** Worksheets("A-3").Range("U4:Z4").Copy Range("G5").PasteSpecial Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False Range("G4").Activate End Sub Thank you. |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Exit Sub if count less than zero.
It works. Thanks Jacob
"Jacob Skaria" wrote: Oops; please ignore the previous post.... COUNT() is a worksheet function.So .. Sub SettleAutoDue() If WorksheetFunction.Count(Range("T4:T53")) < 0 Then Worksheets("A-3").Range("U4:Z4").Copy Range("G5").PasteSpecial Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False Range("G4").Activate End If End Sub -- If this post helps click Yes --------------- Jacob Skaria " wrote: Need help on this. I don't want the Macro to work if [***IF COUNT(T4:T53) = 0 THEN EXIT SUB***] inside the Macro below. Sub SettleAutoDue() ***IF COUNT(T4:T53) = 0 THEN EXIT SUB*** Worksheets("A-3").Range("U4:Z4").Copy Range("G5").PasteSpecial Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False Range("G4").Activate End Sub Thank you. |
|
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Exit Sub if count less than zero.
Hi
If WorksheetFunction.Count(T4:T53) = 0 Then Exit Sub -- Regards Roger Govier " wrote in message ... Need help on this. I don't want the Macro to work if [***IF COUNT(T4:T53) = 0 THEN EXIT SUB***] inside the Macro below. Sub SettleAutoDue() ***IF COUNT(T4:T53) = 0 THEN EXIT SUB*** Worksheets("A-3").Range("U4:Z4").Copy Range("G5").PasteSpecial Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False Range("G4").Activate End Sub Thank you. |
|
#8
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Exit Sub if count less than zero.
Apologies, type too fast and missed the Range
If WorksheetFunction.Count(Range("T4:T53")) = 0 Then Exit Sub -- Regards Roger Govier " wrote in message ... Need help on this. I don't want the Macro to work if [***IF COUNT(T4:T53) = 0 THEN EXIT SUB***] inside the Macro below. Sub SettleAutoDue() ***IF COUNT(T4:T53) = 0 THEN EXIT SUB*** Worksheets("A-3").Range("U4:Z4").Copy Range("G5").PasteSpecial Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False Range("G4").Activate End Sub Thank you. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| EXIT SUB UPON VBCANCEL | Excel Discussion (Misc queries) | |||
| Cancel/Exit Sub | Excel Discussion (Misc queries) | |||
| Exit Sub | Excel Discussion (Misc queries) | |||
| Run when exit | Excel Worksheet Functions | |||
| on exit macro | Excel Discussion (Misc queries) | |||
Linear Mode
