Merhaba arkadaşlar;
Sorum Şöyle Excel deki ana isimli formda page4 teki tarih bazında yere göre teslim senedi (Frame7) deki combobox5 ilçe, combobox6 yer adını ve textbox16 ile textbox17 arasında kalan tarihlerdeki çıkışları teslim_senedi sayfasındaki şablona verildiği yere (C5 hücresine) combobox5 ve combobox6 daki veri birleşik gelecek Access dosyasında, giriscikis tablosundan, tarih aralığı, yer adı olanlar ve durum çıkış olan mlz_ad ( malzeme adları)  tek olarak exceldeki teslim_senedi sayfasında B8 hücresinden başlayarak aşağı doğru benzersiz bir şekilde listelemesi gerekli ayrıca mlz_miktar kısmının toplamı miktarı kısmına malzemenin birimi kısmına ve Access te bulunan kisi sütununda yazan isim de Excel in f22 hücresine gelmesi gerekli. Biraz karışık gibi gözüküyor ama işin özü şöyle; Access ten sorgudaki şartlara uyan verileri Excel deki teslim senedi şablonuna gerekli bilgilerin getirilmesi bunu farklı bir Excel açarak şablon ile aynı formatta da olabilir.
Şimdiden yardımlarınız için teşekkür ederim.

lütfen konularınızı uygun yere açmaya dikkat ediniz. konunuz excelle ilgili bir soru olduğundan Excel soruları kısmına taşınmıştır

Teşekkürler.

Arkadaşlar konu günceldir

CommandButton21 aşağıdaki kodu ekler misiniz?
şimdilik 2 sorun var
şablonunuz sabitmi emin olamadığımdan deneme amaçlı olarak yazdım
1.si eğer kayıt sayısı 12 dan büyükse ne olacak siz 12 ile sınırlamışsınız ama ya fazlaysa neden 12?
2.si de şimdilik kayıt yapacağı alanın üstüne yazıyor ama önceden kalanları silmiyor
yarın gerisiyle de ilgilenmeye çalışacağım

Dim baglan As New Connection

Dim rs As New Recordset

Dim Teslim As Worksheet



baglan.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\veri.accdb;"



 sgl1 = " SELECT giriscikis.mlz_ad,'','','', Sum(giriscikis.mlz_miktar) AS TplMiktar, giriscikis.birim " & _

        " FROM giriscikis " & _

        " WHERE (((giriscikis.tarih) Between " & CLng(CDate(Me.TextBox16.Value)) & " And " & CLng(CDate(Me.TextBox17.Value)) & _

        " ) AND ((giriscikis.ilce)='" & Me.ComboBox5 & "') AND ((giriscikis.yer)='" & Me.ComboBox6 & "'))" & _

        " GROUP BY giriscikis.mlz_ad, giriscikis.birim"



rs.Open sgl1, baglan, adOpenKeyset, adLockPessimistic



Set Teslim = Worksheets("teslim_senedi")

Teslim.Range("C5") = CStr(Me.ComboBox5.Value) & " " & CStr(ComboBox6.Value)

Teslim.Range("B8").CopyFromRecordset rs



rs.Close

baglan.Close

şalonu sorma sebebim eksik satır sayısını hesaplamak ve alanı temizlemek için son satırı bulmaya çalışmam
son 4 satır sabit mi hep aynı şekilde mi kalacak
aslında kast ettiğim şu bahsettiğiniz işlemden sonra diyelim ki 100 kalem malzeme eklememiz gerekti
a8 den başlayarak A108'e kadar veri ekledik
A112 herzaman İMZASI olacak ve A113 boş mu olacak