başka dosyadan veri almak

[polis-53]

merhaba arkadaşlar ekte gönderdiğim klasör içerisinde 2 adet dosyam var ben bu dosyalardan A isimli dosyadan ayların toplamlarını B isimli dosyaya eğer E5 hücresine hangi ay yazarsa A isimli dosyadan o ayın toplamını b isimli dosyanın B5 hücresine yazsın istiyorum.
yardımlarınızı bekleyerekten iyi çalışmalar.

 

[polis-53]

arkadaşlar günaydin kimse cevap vermedi yanlış birşeymi sorduk.

 

[asi_kral]

merhaba arkadaşlar ekte gönderdiğim klasör içerisinde 2 adet dosyam var ben bu dosyalardan A isimli dosyadan ayların toplamlarını B isimli dosyaya eğer E5 hücresine hangi ay yazarsa A isimli dosyadan o ayın toplamını b isimli dosyanın B5 hücresine yazsın istiyorum.
yardımlarınızı bekleyerekten iyi çalışmalar.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub kapalı_veri_al_1967()
'Konu       :   Kapalı Dosyadan Veri Al
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As String, kral As Long
asi = ThisWorkbook.Path
For kral = 1 To 12
If Application.ExecuteExcel4Macro("'" & asi & "\[A.xls]Sayfa1'!R4C" & kral) = _
Range("E4") Then
Range("B5") = Application.ExecuteExcel4Macro("'" & asi & "\[A.xls]Sayfa1'!R9C" & kral)
End If
Next
MsgBox Range("E4") & " Ayının Sonucu ( " & Range("B5") & " )" & vbLf _
& "İşlem Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[polis-53]

Teşekkür ederim asi kral şimdi çok yoğunum bakamadım formulle olsaydi daha iyi olurdu.

 

[asi_kral]

Teşekkür ederim asi kral şimdi çok yoğunum bakamadım formulle olsaydi daha iyi olurdu.

Keşke baştan sorarken böyle söyleseydiniz.
B5 hücresine

=İNDİS([A.xls]Sayfa1!$A$9:$L$9;1;KAÇINCI($E$4;[A.xls]Sayfa1!$A$4:$L$4;0))

Bu formülü yazın ve deneyin.
Dosyanız Ekte.

 

[polis-53]

Teşekkür ederim

 

[asi_kral]

Teşekkür ederim

Kolay Gelsin.