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

1 2
26/11/2021, 13:57

SeferŞANLI

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
27/11/2021, 00:01

lemoncher2

Ö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.
27/11/2021, 00:11

SeferŞANLI

Peki b hücresine nasıl yaparız.
27/11/2021, 00:30

lemoncher2

A yerine B yazmanız yeterli
27/11/2021, 00:38

SeferŞANLI

Tamam. Teşekkürler. İsim açma işimiz tamam. Takvimi aktrma işimiz kaldı.
27/11/2021, 01:12

lemoncher2

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
1 2