Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

SeferŞANLI
SeferŞANLI
Access Cevaplanmış Soruları
7
779

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

Çözüldü #1
SeferŞANLI
Sefer ŞANLI
SeferŞANLI
Bul
Aktif Üye
Adı Soyadı: Se.... ŞA....
Yaşı: 49
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 08/12/2024,10:12
Yorumları: 800
Konuları: 154
Kayıt Tarihi: 21/12/2014
Teşekkür Puanı: 12
Mesleğiniz: Öğretmen
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ı: 2)
Cevapla
#2
lemoncher2
Destek Ekibi
lemoncher2
Bul
Destek
Adı Soyadı:
Konum: -
Ofis Versiyonu: -
Son Oturumu: 22/01/2023,00:30
Yorumları: 330
Konuları: 15
Kayıt Tarihi: 31/03/2020
Teşekkür Puanı: 90
Ö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
SeferŞANLI
Sefer ŞANLI
SeferŞANLI
Bul
Aktif Üye
Adı Soyadı: Se.... ŞA....
Yaşı: 49
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 08/12/2024,10:12
Yorumları: 800
Konuları: 154
Kayıt Tarihi: 21/12/2014
Teşekkür Puanı: 12
Mesleğiniz: Öğretmen
Peki b hücresine nasıl yaparız.
Cevapla
#4
lemoncher2
Destek Ekibi
lemoncher2
Bul
Destek
Adı Soyadı:
Konum: -
Ofis Versiyonu: -
Son Oturumu: 22/01/2023,00:30
Yorumları: 330
Konuları: 15
Kayıt Tarihi: 31/03/2020
Teşekkür Puanı: 90
A yerine B yazmanız yeterli
Cevapla
#5
SeferŞANLI
Sefer ŞANLI
SeferŞANLI
Bul
Aktif Üye
Adı Soyadı: Se.... ŞA....
Yaşı: 49
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 08/12/2024,10:12
Yorumları: 800
Konuları: 154
Kayıt Tarihi: 21/12/2014
Teşekkür Puanı: 12
Mesleğiniz: Öğretmen
Tamam. Teşekkürler. İsim açma işimiz tamam. Takvimi aktrma işimiz kaldı.
Cevapla
#6
lemoncher2
Destek Ekibi
lemoncher2
Bul
Destek
Adı Soyadı:
Konum: -
Ofis Versiyonu: -
Son Oturumu: 22/01/2023,00:30
Yorumları: 330
Konuları: 15
Kayıt Tarihi: 31/03/2020
Teşekkür Puanı: 90
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