Yıllar göre data alma

[mars2]

İyi Günler;
müşterilerin ödemelerine ait her yıl ayrı ayrı çalışma kitaplarında bulunmaktadır.
Bunların dışında ayrı çalışma kitabının 1. sayfasında müşterinin adını(Düşeyara) yazdığımda, yıllar itibari ile ne kadar yatırdıklarını bir tabloda nasıl yapabiliriz.
Buna ait örnek klasör ektedir.

 

[mars2]

İlginize teşekkürler. Ancak yardımlarınız beklemekteyim.

 

[Ferhat Pazarçevirdi]

Söylediğinizi, Excel'in standart forksiyonlarını kullanarak veya KTF (Kullanıcı Tanımlı Fonksiyon) yaratarak çözebiliriz.

Aşağıdaki kodu ve dosyayı inceleyiniz. Data alacağınız dosyalarla, bu örnek dosyanın aynı dizin altında olmasına dikkat ediniz.

Public Function Yatırılan(yil As String, ay As String, adi As String)
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Application.Volatile
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
DosyaAdi = ThisWorkbook.Path & "\" & yil & ".xls"
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & DosyaAdi & ";" & "Extended Properties=Excel 8.0;"
con.Open
Sql = "SELECT yatan FROM [" & ay & "$] WHERE isim='" & adi & "'"
rs.Open Sql, con, 1, 3
If Not rs.EOF Then
   Yatırılan = rs(0)
End If
rs.Close
con.Close
Set con = Nothing
Set rs = Nothing
End Function