(22/08/2021, 16:40)berduş yazdı: hatayı buldum) maalesef son satırı bulma kodunu yanlış yere yazmışım
bu kısım hatalı önce veriyi kopyalayıp sonra satır no bulunmalısonstr = Cells(Rows.Count, "C").End(xlUp).Row
Range("A2").CopyFromRecordset DataKayitlar
aşağıdaki gibi düzenleyip dener misiniz?
Range("A2").CopyFromRecordset DataKayitlari
sonstr = Cells(Rows.Count, "C").End(xlUp).Row
Teşekkürler Sayın berduş şimdi oldu