check empty cells before exporting

[Beatrice]

currently I work on some code, and would like to improve its performance.
For example, before exporting the file, I want to run a check for some cells which is mandatory and must not be empty, otherwise pop up will show up.
I have made some trials,the code is fine but the exporting is still continue after the check.
I want the exporting to be done only if these specific cells is not empty.
It seems I miss some code in between the check and export, can anyone give me a hint?
Thanks in advance for helping.

 

[mehidy1437]

Use exit sub, when it gets an empty cell, in your code.

 

[Beatrice]

Use exit sub, when it gets an empty cell, in your code.

i have try but then it terminate from there, even the cell is with a value.
the situation is
1) To proceed a check before export, if blank/empty found, do not export.
2) if there is no input missing, then export must be proceed.

below I shorten my export code for understanding.
Thanks in advance for helping.

'EXPORT BUTTON
Private Sub CommandButton2_Click()

   '--newly add--Test if mandatory is blank/empty
   If IsEmpty(Range("I4").Value) = True Then
      MsgBox "input missing"
   End If

Exit Sub

CreateObject("Wscript.Shell").popup "Please allow a few second for Exporting... ", 1, "Kind Reminder", vbSystemModal + 64
   
Dim sourceSheet As Worksheet
Set sourceSheet = ActiveSheet

Application.ScreenUpdating = False

' Open Source and Destination files

    ChDir " folder path"
    Workbooks.Open Filename:="workbook2.xlsx"
    
' Copy Dedicated Part
   
Workbooks("workbook1.xlsm").Sheets("sheet name").Range("range").Copy
Workbooks("workbook2.xlsx").Sheets("sheet name").Range("A1").PasteSpecial xlPasteValues

    Application.CutCopyMode = False
    Application.Goto Worksheets("sheet name").Range("A1"), True

' Save Destination file named as Today's date

    DD = Day(Date)
    MMM = Month(Date)
    YY = Year(Date)
    WBK = "workbook"
   
    Windows("workbook2").Activate
    ActiveWorkbook.SaveAs Filename:=WBK, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
   
    ActiveWindow.Close
   
    Call sourceSheet.Activate

MsgBox "done", vbOKOnly + vbInformation, "Export Completed"
   

End Sub

 

[MARK858]

It looks like you just need an else statement. Try the 2 changes in red

'EXPORT BUTTON
Private Sub CommandButton2_Click()

    '--newly add--Test if mandatory is blank/empty
    If IsEmpty(Range("I4").Value) = True Then
        MsgBox "input missing"
   
    Else

        CreateObject("Wscript.Shell").popup "Please allow a few second for Exporting... ", 1, "Kind Reminder", vbSystemModal + 64
 
        Dim sourceSheet As Worksheet
        Set sourceSheet = ActiveSheet

        Application.ScreenUpdating = False

        ' Open Source and Destination files

        ChDir " folder path"
        Workbooks.Open Filename:="workbook2.xlsx"
   
        ' Copy Dedicated Part
 
        Workbooks("workbook1.xlsm").Sheets("sheet name").Range("range").Copy
        Workbooks("workbook2.xlsx").Sheets("sheet name").Range("A1").PasteSpecial xlPasteValues

        Application.CutCopyMode = False
        Application.Goto Worksheets("sheet name").Range("A1"), True

        ' Save Destination file named as Today's date

        DD = Day(Date)
        MMM = Month(Date)
        YY = Year(Date)
        WBK = "workbook"
 
        Windows("workbook2").Activate
        ActiveWorkbook.SaveAs Filename:=WBK, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
 
        ActiveWindow.Close
 
        Call sourceSheet.Activate

        MsgBox "done", vbOKOnly + vbInformation, "Export Completed"
 
    End If
End Sub

 

[Beatrice]

Thank you. I am now able to make multiple check with few "if-then-else".
It works perfectly like I wanted.

 

[MARK858]

You're welcome