İki hücre değeri birbirine eşitse makro çalışsın değilse dursun

[umit1907]

Merhabalar,

aşağıdaki makro ile sayfalar arası veri aktarımı yapıyor fakat yapmak istediğim. E3=F3 bir birine eşitse makro çalışsın değilse uyarı versin şeklinede bir uyarı koyabilirmiyiz.

Sub Aktar()

Dim S1, S2, Son1, Son2
Set S1 = Sheets("mahsup"): Set S2 = Sheets("muavin")
Son1 = S1.Cells(Rows.Count, 2).End(3).Row: Son2 = S2.Cells(Rows.Count, 3).End(3).Row + 1
S2.Range(S2.Cells(Son2, 1), S2.Cells((Son2 + Son1) - 4, 12)).Value = S1.Range(S1.Cells(4, 1), S1.Cells(Son1, 12)).Value
[a1] = [a1] + 1
MsgBox "islem tamam..."
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili kodlarınızın başına eklerseniz yeterli olacaktır.

If Not [E3] = [F3] Then
    MsgBox "E3 ve F3 Hücreleri Eşit Değil, Makro Çalışmayacak...."
    Exit sub
End If

 

[umit1907]

eline sağlık abi çok teşekkürler.