If a range is equal to null, skip code and exit, otherwise run code?

[ljubo_gr]

Hi everybody!
After a while I'm still not into VBA, please, I need to check some range, if it's sum is greater then zero then run code normal, if it's equal zero then skip bunch of code to Exit Sub.

Sub Macro1_OCISTI_PODATKE_SA_IZVJESTAJA()
'
' Macro1_OCISTI_PODATKE_SA_IZVJESTAJA Macro
'
'
Dim MSG As String, ANS As Variant
MSG = "  SIGURNO  ŽELITE  OČISTITI  PODATKE ?"
ANS = MsgBox(MSG, vbExclamation + vbOKCancel + vbDefaultButton2, "UPOZORENJE !!!")
Select Case ANS
Case vbOK
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
        On Error GoTo GRESKA2
            Sheets("Izvještaj_SVE").Select
            Columns("B:B").Select
'Ovaj kod kopira izvješće na Izvještaj_SVE list.
            Dim R As Long
            If WorksheetFunction.CountA(Cells(2, 2).EntireColumn) > 18241 Then
                Rows("18242:18242").Select
                Range(Selection, Selection.End(xlDown)).Select
                Selection.Delete Shift:=xlUp
                Range("A1").Select
                Rows("2:48").Select
                Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                Range("A2").Select

This is the beginning of code, where to insert if statement?

Thanks so much !

 

[Mister H]

Hi:

You insert the IF Statement prior to the code you may or may not like to run. If you are looking for it to skip the entire code then place the IF Statement in the beginning maybe before the line "On Error GoTo GRESKA2"

You'd just use something like this (code taken from: :If cell is empty then exit sub)

    If Sheet1.Cells(15, 2) = "" Then 
        MsgBox "B15 must contain a value" 
        Sheet1.Activate 
        Cells(15, 2).Select 
    Else: Exit Sub 
    End If

If you post your entire code it would be easier to tell you where to put your IF Statement. NOTE: BEFORE YOU EXIT THE SUB MAKE SURE TO TURN ScreenUpdating etc back on.

Good Luck,
Mark

 

[ljubo_gr]

Maybe like this:

If WorksheetFunction.Sum(Worksheets("Sheet1").Range("A1:B5"))>0 Then

my code here with all that Application.screen updating etc.

Else Exit Sub