Puantaj programı ile ilgili olarak direk sütun belirleyerek excelle aktarım yapıyorum fakat kayıt sayısı değişken olduğu için bu ay 70 kişi varsa 3 ay sonra 90 kişiye çıkabilir veya eksilebilir. Direk sütun belirleyerek aktarmak bugünü kurtarsa da daha sonra sorun çıkaracak, tblimza ve buna bağlı frmimza olarak form oluşturdum. Resimde görülen örnek Excel dosyasına son satırı baz alarak ilk kaydımı atıyorum.

Alıntı:Set Rs2 = CurrentDb.OpenRecordset("tblimza")

kodu ile yeni oluşturduğum tabloya tanımlama yaptım.

Alıntı:sonB = Cells(Rows.Count, "B").End(3).Row + 3
excl.Range("B2:B" & sonB).Find("", Range("B" & sonB), xlValues, xlByRows, xlPrevious).Select

kodu ile son satırı buldum. Altına

Alıntı:excl.Range("B" & sonB) = Rs2(0)

kodunu yazınca çalıştı, fakat

Alıntı:excl.Range("B" & sonB) = Rs2(2)

kodunu da ekleyince hiçbir veri getirmedi. Amacım son satırı bulup PUANTAJ programında yer alan kısaltmaları ekteki resimde görüldüğü gibi yazmak, hemen peşine tblimzadan verilerimi çekmek.