Exit Sub if count less than zero.

[Qull666]

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.

 

[Jacob Skaria]

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

 

[Stan]

It works. Thanks Mike.

try,

If WorksheetFunction.Count(Range("T4:T53")) = 0 Then Exit Sub

mike

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.

 

[Stan]

It works. Thanks Jacob

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

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.

 

[Roger Govier]

Hi

If WorksheetFunction.Count(T4:T53) = 0 Then Exit Sub

 

[Roger Govier]

Apologies, type too fast and missed the Range
If WorksheetFunction.Count(Range("T4:T53")) = 0 Then Exit Sub