Add Message box to VBA code

[posfog]

Hi All,
I have some coding that allows me to copy data from one sheet to another, but i want the same coding to look at Cell M4 and display a Message box if Cell M4 contains the wording "Select Variant"


Is this possible and where would it need to be within the coding (shown below sorry for long coding)


Sub ADDRECORD()







Dim src As Worksheet
Dim dst As Worksheet
Dim rw As Long

Application.ScreenUpdating = False

' Set source and destination sheets
Set src = Sheets("TOUCH SCREEN")
Set dst = Sheets("RAW DATA")

' Find next available row on destination sheet
rw = dst.Cells(Rows.count, "A").End(xlUp).Row + 1

' Populate values on destination sheet
dst.Cells(rw, "A") = src.Range("A101")
dst.Cells(rw, "B") = src.Range("B101")

Application.ScreenUpdating = True

End Sub


Regards

 

[posfog]

unfortunately not as i need the user to select other items within the sheet which M4 is looking at (which if these items are not completed correctly the "Select Variant")

 

[posfog]

unfortunately not as M4 is dependent on other cells within the same sheet.

So i would need the end user to make the changes and for the script to run again

 

[My Aswer Is This]

Try this:
Script will show Message and then stop if:

Sub ADDRECORD()
    'Modified 1-31-18 10:45 PM EST
    Dim src As Worksheet
    Dim dst As Worksheet
    Dim rw As Long
    Application.ScreenUpdating = False
' Set source and destination sheets
    Set src = Sheets("TOUCH SCREEN")
    Set dst = Sheets("RAW DATA")
' Find next available row on destination sheet
    rw = dst.Cells(Rows.Count, "A").End(xlUp).Row + 1
' Check M4
    If src.Range("M4") = "Select Variant" Then
        MsgBox "Tab " & src.Name & " contains 'Select Variant'", vbInformation, "Select Variant found...": Exit Sub
    ElseIf dst.Range("M4") = "Select Variant" Then
        MsgBox "Tab " & dst.Name & "contains 'Select Variant'", vbInformation, "Select Variant found..."
    End If
' Populate values on destination sheet
    dst.Cells(rw, "A") = src.Range("A101")
    dst.Cells(rw, "B") = src.Range("B101")
    Application.ScreenUpdating = True
End Sub

 

[posfog]

Fantastic!!!

Thank you so much

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Fantastic!!!

Thank you so much

 

[Paul Ked]

Here too, glad you're sorted.

You can ditch the:

    ElseIf dst.Range("M4") = "Select Variant" Then
        MsgBox "Tab " & dst.Name & "contains 'Select Variant'", vbInformation, "Select Variant found..."

I only put this in as the sheet M4 was on wasn't specified.