VLOOKUP - SUMIF Kapalı dosya kodlarıyla.

[talebeyim]

Arkadaşlar Ben aşağıdaki kodları kendi çalışma sayfamda kullanabiliyorum, Bunların Aynı Çalışma kitabı içerisindeki, farklı sayfalardan düşerara ve etopla ile veri alma .

Benim sorum ise şu, Aşağıdaki kod bloklarını kullanarak, C:\a.xlsx'den nasıl veri alabiliriz ?

Yani Farklı Çalışma kitabı içerisindeki sayfalardan.

Teşekkür ederim.

Private Sub CommandButton1_Click()
    Dim S1, S2, Son_Satir
 
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
 
    Son_Satir = S1.Cells(Rows.Count, "A").End(3).Row
 
    Application.ScreenUpdating = False
 
    With S1.Range("B2:B" & Son_Satir)
        .Formula = "=VLOOKUP(A2," & S2.Name & "!A:B,2,0)"
        .Value = .Value
    End With
 
    Application.ScreenUpdating = True

Private Sub CommandButton1_Click()
    Dim S1, S2, Son_Satir
 
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
 
    Son_Satir = S2.Cells(Rows.Count, "A").End(3).Row
 
    Application.ScreenUpdating = False
 
    With S2.Range("B2:B" & Son_Satir)
        .Formula = "=SUMIF(" & S1.Name & "!A:A" & ",A2," & S1.Name & "!B:B" & ")"
        .Value = .Value
    End With
 
    Application.ScreenUpdating = True
End Sub

 

[hamitcan]

Aşağıdaki linki inceleyin.
http://www.excel.web.tr/f117/kapaly-dosyadan-d-eyara-vlookup-kullanymy-t864.html

 

[talebeyim]

Evet hamit bey ben bunu inceledim hatta başka bir çalışmam için halen bunu inceliyorum, ama bunlar kullanıcı tanımlı fonksiyona çevrilmiş kodlar, ben bu örneklerde olduğu gibi bir sütuna atayacagım, Hedef dosya uzunluğuna göre tek tuşla sutuna d.ara e.topla vs. yapacak.
O yüzden bana yukarıdakine uyarlanmış lazım, Vba bilgim çok fazla değilde

 

[Ömer]

Merhaba,

Küçük bir örnek ile,

Range("B1").Formula = "=VLOOKUP(A1," & "'C:\[a.xlsx]Sayfa1'!A:B" & ",2,0)"
 
Range("C1").Formula = "=SUMIF('C:\[a.xlsx]Sayfa1'!A:A,A1,'C:\[a.xlsx]Sayfa1'!B:B)"

Gibi bir yapı kurabilirsiniz. Yalnız Etopla fonksiyonu kapalı dosyalarda çalışmadığı için formül sonucu hata verir.

 

[talebeyim]

Ömer bey evet suanda bunu kullanmaktayım, fakat gercekten cok kasıyor acılısta olsun hesaplamada olsun ağır çalışmakta, iki kezde exceli kapatmaya zorladı.
Bu sebeple artık adomu olur? yoksa Microsoft Querymi olur. bu tarz birşey mümkünmü ?
Teşekkkür ederim.

 

[Ömer]

Sorunuzu küçük bir örnek dosya ekleyerek açıklarmısınız.

 

[talebeyim]

Sorunuzu küçük bir örnek dosya ekleyerek açıklarmısınız.

Ekteki açıklamaya çalıştım.