Help with a marco

[baldi]

I have a marco that copy's the numbers from A1 and B1. then pastes them on another sheet. I want to write into the marco that if "A1 does not equal B1" the marco stops working until the 2 cells equal each other.

thanks in advance for all the help.

 

[My Aswer Is This]

Show us your script.

 

[My Aswer Is This]

If your using a looping script then use something like this:

Sub Copy_To_Sheet_Two()
Application.ScreenUpdating = False
'Modified 4-3-18 11:40 PM EDT
Dim i As Long
Sheets(1).Activate
Dim Lastrow As Long
Dim Lastroa As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Lastrowa = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1
    For i = 1 To Lastrow
        If Cells(i, 1).Value = Cells(i, 2).Value Then
            Cells(i, 1).Resize(, 2).Copy Sheets(2).Cells(Lastrowa, 1): Lastrowa = Lastrowa + 1
        Else
            MsgBox "Values do not match" & vbNewLine & "I have stopped the script": Exit Sub
        End If
    Next
Application.ScreenUpdating = True
End Sub