AccessTr.neT

Sayfalar: 1 2

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

Ö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.

Peki b hücresine nasıl yaparız.

A yerine B yazmanız yeterli

Tamam. Teşekkürler. İsim açma işimiz tamam. Takvimi aktrma işimiz kaldı.

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

Sayfalar: 1 2

SeferŞANLI

lemoncher2

SeferŞANLI

lemoncher2

SeferŞANLI

lemoncher2