son satır ve son satırın bir üst satırındaki veriler bir ise uyarı almak

[Tarikkk_]

merhabalar alttaki makroda son satır ve son satırın bir üst satırındaki B-G sütunları arası veriyi kontrol edip veriler tamamen aynı ise hata uyarısı almak istiyorum. bunun için alan1 ve alan2 olmak üzere 2 alan oluşturdum ve kontrol ettirdim herşey doğru geliyor fakat if formülünde hata alıyorum. nerede hata yaptığımı bulamadım. yardımlarınızı bekliyorum şimdiden çok teşekkür ederim.

Sub kontrol()
    SonSatırÜstü = Sheets("ALIŞ-SATIŞ").Cells(Rows.Count, "B").End(3).Row - 2
    alan1 = "B" & SonSatırÜstü & ":G" & SonSatırÜstü
    
    SonSatır = Sheets("ALIŞ-SATIŞ").Cells(Rows.Count, "B").End(3).Row - 1
    alan2 = "B" & SonSatır & ":G" & SonSatır

        If Sheets("ALIŞ-SATIŞ").Range(alan1) = Sheets("ALIŞ-SATIŞ").Range(alan2) Then

        MsgBox "İki Alandaki Veriler Aynı.."
        Exit Sub
        End If
End Sub

 

[Necdet]

Merhaba,

Bildiğim kadarıyla her iki alanı toptan değil, hücre bazında karşılaştırmanız gerekir.

 

[muratboz06]

Problemi şöyle çözsek nasıl olur.

Sub kontrol()
    SonSatır = Sheets("ALIŞ-SATIŞ").Cells(Rows.Count, "B").End(3).Row
    a = 0
    For i = 2 To 7
        If Cells(SonSatır, i) = Cells(SonSatır - 1, i) Then
            a = a + 1
        End If
    Next i
    If a = 6 Then
        MsgBox "İki Alandaki Veriler Aynı.."
        Exit Sub
    End If
End Sub

 

[Tarikkk_]

Problemi şöyle çözsek nasıl olur.

Sub kontrol()
    SonSatır = Sheets("ALIŞ-SATIŞ").Cells(Rows.Count, "B").End(3).Row
    a = 0
    For i = 2 To 7
        If Cells(SonSatır, i) = Cells(SonSatır - 1, i) Then
            a = a + 1
        End If
    Next i
    If a = 6 Then
        MsgBox "İki Alandaki Veriler Aynı.."
        Exit Sub
    End If
End Sub

çok teşekkür ederim gayet güzel bir çözüm olmuş.