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.