+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Veri Alma (/konu-excel-veri-alma.html)
Excel Veri Alma - HORZUM - 30/08/2019
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.
Cvp: Excel Veri Alma - berduş - 30/08/2019
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 = FalseCvp: Excel Veri Alma - berduş - 03/09/2019
sayın @HORZUM olumlu yada olumsuz konuya dönüş yapar mısınız?
Cvp: Excel Veri Alma - HORZUM - 11/10/2019
HALETTİM ARKADAŞLAR HEPİNİZ SAĞOLUN. İŞİM GEREĞİ SİTEYE GİREMEDİM BİRAZ GEÇ OLDU AMA