+- 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ığı: Access 'ten Excele Veri Gönderirken Son Dulu Hücreyi Bulma Ve Değer Yazdırma (/konu-access-ten-excele-veri-gonderirken-son-dulu-hucreyi-bulma-ve-deger-yazdirma.html)
Sayfalar:
1
2
Access 'ten Excele Veri Gönderirken Son Dulu Hücreyi Bulma Ve Değer Yazdırma - SeferŞANLI - 26/11/2021
Excele gönderdiğim veride
Kod:
mdryard = DLookup("mdryrd", "TblSabitler")
sonA = Cells(Rows.Count, "A").End(3).Row + 1
excl.Range("A2:A" & sonA).Find("", Range("A" & sonA), xlValues, xlByRows, xlPrevious).Select
excl.Range("A" & sonA) = DLookup("mdryrd", "TblSabitler")Ben istiyorumki tablonun son dolu satırından 3 satırı boş bıraktıktan sonra, c,d,e hücrelerini birleştirerek bir veri yazdırayım.
https://www.resimupload.org/images/2021/11/26/Ekran-Alintisi.jpg
RE: Access 'ten Excele Veri Gönderirken Son Dulu Hücreyi Bulma Ve Değer Yazdırma - lemoncher2 - 27/11/2021
Örneğinizi incelediğimde son satırı bulmanıza gerek olmadığını gördüm. Döngü içerisinde ki i değeriniz zaten son işlem yaptığı satırın değerini vermiş olacak bu yüzden
excl.Range("A" & i + 3) = Dlookup ("mdryrd", "TblSabitler")
sadece bu kodu kullanmanız yeterli.
RE: Access 'ten Excele Veri Gönderirken Son Dulu Hücreyi Bulma Ve Değer Yazdırma - SeferŞANLI - 27/11/2021
Peki b hücresine nasıl yaparız.
RE: Access 'ten Excele Veri Gönderirken Son Dulu Hücreyi Bulma Ve Değer Yazdırma - lemoncher2 - 27/11/2021
A yerine B yazmanız yeterli
RE: Access 'ten Excele Veri Gönderirken Son Dulu Hücreyi Bulma Ve Değer Yazdırma - SeferŞANLI - 27/11/2021
Tamam. Teşekkürler. İsim açma işimiz tamam. Takvimi aktrma işimiz kaldı.
RE: Access 'ten Excele Veri Gönderirken Son Dulu Hücreyi Bulma Ve Değer Yazdırma - lemoncher2 - 27/11/2021
Onun içinde Chr Kodlarından faydalanılabilir ilk aklıma gelen.
Kod:
Dim gun As Integer
gun = 0
For i = 66 To 90
Excl.Range(Chr(i) & "8") = Format(gun & " " & Me.DtDonem, "dd mmmm yyyy dddd")
gun = gun + 1
Next i