1- hocam aynı gün içinde birden fazla butona tıklarsak aynı dosyanın uzerine yazabilir. veya saatin 12:12 gibi formatını 12.12 gibi yapıp dosya adına ilave edipte yapılabilir.

2-sorgularımın Sql lerini kopylayıp aralarına unıon koyarak birleştireceğim

3- örneğimi yükleyeceğim başka birine daha faydası olabilir gayet kolay bir yapısı var 3 5 yere değişecek sadece.

Hocam Sizden İstediğim ben bunu günlük alacağım aynı Excel kitabı üzerinde yeni sayfa şeklide DATE isminde olması...  Birde buraya 3 sorguyu birleştirmek yerine toplamları  excelde yukarıda kodla yaptırdım ama aşağıdaki veriler silip yenisi geldiği için hesaplayamıyor BAŞ! yazıyor hücrelerde . ,   acceste toplatıp öyle atmak zorundamıyım Excel formülü yineleyemezmi..

Gönderdiğiniz örnekte tek sorgu var?

hocam o sıkıntı değil with exap ile başlayan   lopp la biten döngüyü 3 kere kopyalarsam veya  her sorguyu ayrı ayrı koordinata yazdırırısam oluyor, veya sorguları Sql kodunu göster diyip açıp unıon koyarak aralarına birleştirme sorgusu yapıp tek sorguylada olabiliri.  şuan  2 şey çözemedim
1- koordinatlı sildirme   çünkü a24 ten aşağı ve solu komple siliyor,
2- her butoan basılışında date aynıysa üzerine farklıysa yeni sayfaya yapıştırsın istiyorum.
Kusura bakmayın  sizleride yoruyorum açık açık yazamadım galiba

Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştir.

' REFERANSLARDAN MİCROSOFT Excel ... OBJECT LİBRARY TANIMLAMINIZ GEREKİYOR..

Dim Exapp As Excel.Application

Dim objWsh As Object

Dim rs As Recordset

Dim yol As String

Dim x As Long

Dim r As Range

Dim GTarih As String

'On Error Resume Next

Set Exapp = GetObject("", "excel.application")

If Err.Number <> 0 Then

  Err.Clear

        Set Exapp = CreateObject("Excel.Application")

End If

'    On Error GoTo Error_Handler

    

'exel yol tanımlıyoruz..

yol = CurrentProject.Path & "\yeni.xlsx"

'exceli açarak yükler.. false derseni.. exceli açmadan yükler.. size kalmış

Exapp.Visible = True

Exapp.Workbooks.Open yol





GTarih = Date





For Each objWsh In Exapp.Worksheets

        If objWsh.Name = GTarih Then

        Exapp.Worksheets(GTarih).Delete

        End If

Next



Exapp.Visible = True



Exapp.Sheets("Sayfa1").Copy Before:=Exapp.Sheets(1)

Exapp.ActiveSheet.Name = Date



'eski Excel verileri siliyoruz...

With Exapp

         .Range("a24", .Range("a24").End(xlDown).End(xlDown).End(xlToRight)).Select

         .Range("a24", .Range("a24").End(xlDown).End(xlDown).End(xlToRight)).Delete

         .Range("a24").Select

End With



Exapp.Visible = True



'With Exapp

'Set r = Cells(5, 27)

'r.Delete

'End With





'rapor sorgusunu açılıyor...

Set rs = CurrentDb.OpenRecordset("arac_tablo_s")



x = 24

Do While Not rs.EOF



With Exapp

    .Cells(x, 1) = rs("no")          ' 1 A KOLONU

    .Cells(x, 2) = rs("Model")            '2 B KOLONUDUR

    .Cells(x, 3) = rs("myili")

  

End With

rs.MoveNext

x = x + 1



Loop



'SORGUYU KAPATIYORUZ..

rs.Close

'İŞLEMİ BİTİRİYORUZ.. VE ÇIKIYORUZ..



'Exit Sub



'Error_Handler:



'Exapp.ActiveWorkbook.Close True

'Exapp.Workbooks.Close

'Exapp.Quit

'Set Exapp = Nothing

'Resume 0

Geçerli tarih isminde yeni sayfa oluşturur ve verileri yeni sayfaya aktarır.  Aynı isimde sayfa var ise sayfayı siler ve yeni sayfa oluşturur.

Hocam Çok Teşekkür ederim Nokta atışı yaptınız resmen istediğim tamda buydu elinize sağlık...

Hocam kusura bakmazsanız bu konuyla ilgili bir sorum daha var,  koordinatlı sildirme olsun istiyorum

a24 ten aşağısını ve sağını siliyorya hani,   ayrıca   örneğin c 5 ile g12 arasınıda silsin istiyorum o şekilde de çıktı olacak o  da laızm olacak yardımcı olabilirmisiniz.