merhaba excele aktarma ile ilgilir çok fazla konu okdum ama istediğim gibi olana rastgelmedim.. umarım fikri olan vardır yoksa bütün çalışmam boşa gidecek...
raporlarımda Dsum DCount kullanıyorum. istediğim şu raporlardaki metin1 kutusunun excelde mesela G15 nolu kutuya denk gelmesini istiyorum... mümkünmüdür acaba?

Dim A, B As String
A = DLast("[adi]", "Tablo1")
B = DLast("[soyadi]", "Tablo1")
Dim MyObject As Object

Set MyObject = GetObject(CurrentProject.Path & "\Sonveri.xls")

MyObject.Sheets("Sayfa1").Range("A2").Value = A
MyObject.Sheets("Sayfa1").Range("B1").Value = B


bu kodlar güzel tablo ve sorguyu excele göndermek isteyen arkadaşlar kullanabilir... Sonveri.xls dosyası işlemi yaparken açık olmalıdır....

Ama benim istediğim raporda DCount kullandığım bir metin kutusunu excelde G15 kutusuna aktarmak...

örneğiniz varsa daha kolay anlaşılır.

kusura bakmayın geç gördüm...dosyaları ekledim...

tekrar mesaj yazıyorum kusura bakmayın bütün çalışmam buna bağlı çünkü bendeki sonucu Excel deki gibi istiyor.. acaba yukardaki kodlar rapora uygulanamaz mı?

öncelikle raporu Excel ortamına aktarırsanız istediğiniz veriyi istediğiniz yere atamazsınız. bunun yerine Excel dosyasını kendinizin açıp satır satır kodla aktarmanızdır.