Makro ile SQL deki Group by ve Sum gibi işlem yapabilmek

[hamzasaricicek]

Merhabalar,

B Sütununda yer alan tarihe göre gruplama yapıp, G sütunundaki o tarih'e ait taksit sayılarının toplamını herhangi bir hücreye yazdırmak istiyorum ama bir türlü başarılı olamadım. Çalışmam ektedir.

Örnek: TAKSİT LİSTESİ sayfasındaki tarihi 27.11.2010 olan kayıtların taksit tutarları toplamını 2010 ÖDEME LİSTESİ'ndeki M32 yani 27 Kasım tarihine yazdırmak istiyorum. Şimdiden teşekkür ederim herkeze..


Yaptığım Çalışmamın amacı; yapılan kredi kartı ödemeleri ileriki tarihlerde hesabımıza geçtiği için, hangi tarihde hesabımıza geçecek olan paranın nekadar olacağını tutmaktır. Bu tür birşeye ihtiyacı olan arkadaşlar olabilir..

 

[Zeki Gürsoy]

Aşağıdaki proseduru deneyin..

Sub SQL_Report()
Dim c As Object, r As Object, s As String
Dim t1 As Date, t2 As Date

t1 = "01.01.2010"
t2 = "31.12.2010"

Set c = CreateObject("ADODB.Connection")

c.Open "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & _
    ThisWorkbook.FullName

Set r = CreateObject("ADODB.Recordset")

s = "SELECT [TARİH], Sum([TAKSİT TUTARI]) As Toplam " & _
    "FROM [TAKSİT LİSTESİ$B3:g65536] " & _
    "WHERE [TARİH] Between " & CDbl(t1) & " And " & _
    CDbl(t2) & " GROUP BY [TARİH]"

On Error Resume Next

r.Open s, c

Do Until r.EOF
    Sheets("2010 ÖDEME LİSTESİ"). _
    Cells(Day(r(0)) + 5, Month(r(0)) + 2) = r(1)
    r.movenext
Loop

r.Close
c.Close

Set r = Nothing
Set c = Nothing
End Sub

 

[hamzasaricicek]

Zeki hocam ellerinize sağlık, fakat Do Until r.EOF döngüsündeki Loop satırında hata veriyor. Daha doğrusu excel kitleniyor yanıt vermez oluyor.

 

[Zeki Gürsoy]

İlk kaydın Null dönmesi dışında başka sıkıntısı yoktur. Onu da Resume Next ile atlatıyoruz.

Ben de çalışan örneğiniz ektedir.

 

[hamzasaricicek]

Evet zeki hocam çalıştı gönderdiğiniz. Farklı modül içerisine yerleştirdiğim zaman benimkide çalıştı. Ellerinize sağlık hocam çok saolun..

 

[Zeki Gürsoy]

Evet zeki hocam çalıştı gönderdiğiniz. Farklı modül içerisine yerleştirdiğim zaman benimkide çalıştı. Ellerinize sağlık hocam çok saolun..

Bu da formüllü olanı...

 

[hamzasaricicek]

Hocam sen ne yaptın yav Ellerine sağlık valla çok güzel olmuş..