AccessTr.neT

Arkadaşlar daha önce burda düzenlenen ecxel kopyala yapıştır yaptıktan sonra ay kısmından veri istendiğinde hata veriyor bir kontrol edebilirmisiniz.

yaptığınız herhangi  bir değişiklik oldu mu?
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

sayın @HORZUM olumlu yada olumsuz konuya dönüş yapar mısınız?

HALETTİM ARKADAŞLAR HEPİNİZ SAĞOLUN. İŞİM GEREĞİ SİTEYE GİREMEDİM BİRAZ GEÇ OLDU AMA