Saygı değer form üyesi Arkadaşlar; Ekte sunduğum örnekte listedeki verileri masula seçim yapmadan, hazırlanmış
Excel kitabında kodda belirtilen sayfada bulunan tabloya döngüye sokarak alt alta listedeki gibi yazdırmak istiyorum. Belgeyi gizli açarak yazma işlemi bitince belgeyi kaydedip kapatacak. Düğmede kullandığım hazır kod sadece seçili satırı
Excel belgesinde ilgili alanlarına yazdırıyor. Bu olayın döngüsel olması gerektiğini biliyorum ama kod bilgim fazla yok. Bu şekilde çözümleye bileceğim bir örnekte bulamadım.
Yardımlarınız için teşekkür eder saygılarımı sunarım.
aşağıdaki kodu dener misiniz? gerekirse önce
Excel sayfasını boşaltıp sonra da eeklenebilr
Dim TabloAdi As String
Dim XlAd As String
Dim SyfAd As String
TabloAdi = "isimler"
XlAd = CurrentProject.Path & "\Deneme.xlsx"
SyfAd = "isimler" & "$"
DoCmd.TransferSpreadsheet TransferType:=acExport, _
TableName:=TabloAdi, _
SpreadsheetType:=10, _
FileName:=XlAd, _
HasfieldNames:=True, _
Range:=SyfAd
Sayın berduş; İlgi ve alakanıza teşekkür ederim. Kod çalıştı. Veriyi
Excel sayfasındaki tabloyu şablon olarak düşünürsek, verileri satır ve sütunlara oturta bilirmiyiz. Yani adresleme yapabilirmiyiz. Umarım düşündüğümü ifade edebilmişimdir. Saygılarımla. İyiki varsınız.
denemelerimde kod satır ve sütunları doğru şekilde yerleştiriyordu sadece aşağı doğru kaydırma yapıyordu. sizde nasıl bir soruun çıktı
Sayın berduş şablonda belirtilen alana yazdırıyor fakat alanlarını belirlediğimde tablonun son satırından itibaren yazdırıyor. Birde sütun başlıklarınıda tablodaki isimlerle değiştiriyor... ekran görüntüsünü ekledim. Saygılar.
her seferinde tüm tabloyu mu aktaracaksınız?