Puantaj Programı Excele Aktarma Son Satır - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Puantaj Programı Excele Aktarma Son Satır (/konu-puantaj-programi-excele-aktarma-son-satir.html) Sayfalar:
1
2
|
Puantaj Programı Excele Aktarma Son Satır - angelos - 08/10/2022 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 + 3kodu 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. RE: Puantaj Programı Excele Aktarma Son Satır - berduş - 09/10/2022 ne yapmaya çalıştığınızı hangi verileri getirmeye çalıştığınızı tam olarak anlamasam da kodunuz çalışıyor ama hep aynı hücreye veriyi yazıyor siz sabit bir hücre seçmişsiniz veri sürekli excl.Range("B" & sonB) = Rs2(2) hücresine yazıldığı için en son hangi veri girildiyse o kalıyor RE: Puantaj Programı Excele Aktarma Son Satır - angelos - 10/10/2022 Kod:
excl.Range("B" & sonB) = Rs2(0) Sayın Berduş aynı kod şu an aktarmıyor, ilk aktar butonuna bastığımda aktarıyor ama bir seferliğe mahsus oluyor bu daha sonraki aktarma işlemlerinde çalışmıyor tek seferlik çalışan kod gibi RE: Puantaj Programı Excele Aktarma Son Satır - atoykan - 10/10/2022 Yoğunluk nedeniyle örneğinizi çok detaylı inceleme fırsatım olmadı ancak; sonB ile son satırı bulup ardından ile kayıtlarınızı aktarıyorsunuz. Burada dikkat etmeniz gereken sonB ile bulduğunuz son satırdan itibaren sadece 1 satır veri kayıt ekliyorsanız sonB / sonB + 1 sorun çıkartmaz ancak aktardığınız veri birkaç satır ise her veri setinin akarımından önce sonB bulmanız gerekir. Zira kod ilerlerken sonB ataması yaptığında kaç satır veri eklerseniz ekleyin bir sonraki sonB+1 de bulduğu sonB üzerinden işlem yapıp üstüne yazar. Ayrı ayrı yazılması gerekli ise her veriseti aktarımından önce son satırı buldurmanız gerekli. RE: Puantaj Programı Excele Aktarma Son Satır - angelos - 10/10/2022 Kod:
excl.Range("C" & i + 11 & ":" & "D" & i + 11).MergeCells = True şimdi personel izin veya görev giderse bunları aktarmak için uğraşıyorum puantaj içerisine tamamen bu siteye güvenerek girdim izin görev vs aktarma işine takıldığım/ yapamadığım yerde yardım geleceğine eminim. Teşekkür ederim ilgindiğiniz için RE: Puantaj Programı Excele Aktarma Son Satır - berduş - 11/10/2022 sorunuz çözüldü mü? |