ş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
