Skip to main content

AccessTr.neT


Access 'ten Excele Veri Gönderirken Son Dulu Hücreyi Bulma Ve Değer Yazdırma

Access 'ten Excele Veri Gönderirken Son Dulu Hücreyi Bulma Ve Değer Yazdırma

#1
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")
A sütunun son dolu hücresinin sonuna tablomdaki veriyi aktarıyorum. Bunu b için yapamadım. Çünkü birleştirilmiş hücreler var.

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/...intisi.jpg
.rar PROGRAMIM.rar (Dosya Boyutu: 569,78 KB | İndirme Sayısı: 1)
Cevapla
#2
Ö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.
Cevapla
#3
Peki b hücresine nasıl yaparız.
Cevapla
#4
A yerine B yazmanız yeterli
Cevapla
#5
Tamam. Teşekkürler. İsim açma işimiz tamam. Takvimi aktrma işimiz kaldı.
Cevapla
#6
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

Gibi birşey yapabilirsin mesela
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da