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.