hücre birleştirme falan
sorunun sebebi "Ocak" sayfasında yer alan satırların 10767. satırdan itibaren birleşik hücre olarak biçimlendirilmiş olması. her ne kadar "mart" kayıtlarının sayısı 10759 tane görünse de kopyalamaya çalıştığı satır sayısı 10764.
kopyalamaya 8. satırdan başladığı için 10764+8=10772. satıra denk geliyor. bu fazladan 5 satırı birleştirilmiş hücreye kopyalamaya çalıştığı için hata veriyor
10767.satırdaki biçimlendirilmiş hücreleri daha aşağılara kaydırırsanız sorun kalmaz ben 5 satır eklediğimde sorun düzeldi
yada buton2nin kodunu aşağıdaki kodla değiştirip deneyin
FSon = Worksheets("İhlal").Cells(Rows.Count, 6).End(xlUp).Row 'ihlal sayfası, F sütunudaki son veri olan son satırı bulur
If Worksheets("ocak").Range("L8").Value = "" Then
MsgBox ("Lütfen Eklenecek Dönemi Seçiniz")
Worksheets("ocak").Range("L8").Select
Exit Sub
End If
Worksheets("ocak").Range("B8:F10766").ClearContents
Worksheets("İhlal").Range("A3").AutoFilter Field:=6, Criteria1:=Worksheets("ocak").Range("L8").Value
Worksheets("İhlal").Range("A3:F" & FSon).SpecialCells(xlCellTypeVisible).Copy _
Worksheets("ocak").Range("B8")
Worksheets("İhlal").AutoFilterMode = False