Runtime Error 6 Overflow hatası

[Equque]

Merhaba arkadaşlar aşağıdaki makroyu çalıştırdığımda konudaki hatayı alıyorum

DefInt A, C, I, S
Sub Emre()
    Dim dizi()
    For i = 2 To Range("A65536").End(3).Row
        If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A")) > 1 Then
            ReDim Preserve dizi(a)
            dizi(a) = Cells(i, "A")
            a = a + 1
        End If
    Next i
    On Error GoTo hata
    For c = Range("A65536").End(3).Row To 2 Step -1
        For s = LBound(dizi) To UBound(dizi)
            If Cells(c, 1) = dizi(s) Then
                Rows(c).Delete
            End If
        Next s
    Next c
hata:     MsgBox "Benzer veri bulunamadı.", vbInformation, "Uyarı"
End Sub

 

[Muzaffer Ali]

Hatayı hangi satırda alıyorsunuz?

 

[Equque]

For i = 2 To Range("A65536").End(3).Row
bu satırda alıyorum

 

[halit3]

For i = 2 To Range("A65536").End(3).Row
bu satırda alıyorum

Kodu aşağıdaki linkten almışsınız.

Yukarıdaki mesajınızda belirtmiş olduğunuz bölümdeki hata buhtemelen A sütununda hiç veri olmaması.

kodun bu bölümü (Range("A65536").End(3).Row) A sutünundaki en son veri olan hücrenin indis değerini yani satır numarasını vermekte bu da ikiden küçük olduğunda kod bu bölümde hata verecektir.

çünkü kodun burası (For i = 2) döngü ikiden başlamaktadır.






http://www.excel.web.tr/f47/ayny-olanlary-tamamen-silmek-t142669.html#post775483