topla.çarpım fonksiyonu makrosu yardım talebi

[RALKAN]

Aşağıda belirttiğim topla.çarpım fonksiyonu ile kapalı dosyadan aldığım verileri
makro ile oluşturmak mümkünmüdür?

=TOPLA.ÇARPIM(--('D:\Idari\ŞUBAT08\[SATIŞLAR_ŞUBAT2008.xls]Data'!$G$2:$G$2000=$A2);--('D:\Idari\ŞUBAT08\[SATIŞLAR_ŞUBAT2008.xls]Data'!$X$2:$X$2000))

Yukardaki örnek dosya gibi ayrı ayrı ay isimleri verilerek oluşturulmuş dosyalar mevcut.

D:\ıdari\Ocak08
D:\ıdari\Şubat08 ,
D:\ıdari\Mart08
vs.

Sitedeki örnekleri inceledim fakat makro konusunda bilgi sahibi olmadığımdan işin içinden çıkamadım , hocalarımızdan yardım talep ediyorum.

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi bir kod kullanılabilir. Afaki yazıldığından, deneme şansımız yok. Siz deneyip sonucu bildiriniz.

Const klasor As String = "D:\Idari"
[COLOR=darkgreen]'---------------------------------------[/COLOR]
Sub Topla_Carpim()
    Dim ay As String
    Dim formul As String
    Dim yol As String
 
    ay = "Ocak2008" [COLOR=darkgreen]'Bu ayı istediğiniz bir ay ile değiştirebilirsiniz.[/COLOR]
[COLOR=darkgreen]                   'veya combobox'tan veyahut sayfadaki bir hücreden alabilirsiniz.[/COLOR]
    
    yol = "'" & klasor & "\" & ay & "\" & "[SATIŞLAR_" & ay & ".xls]Data'!"
 
    formul = "SUMPRODUCT((" & yol & "R2C7:R2000C7=" & Range("A2").Value & ")*" & yol & "R2C24:R2000C24)"
 
[COLOR=darkgreen]   'Aşağıdaki satır aktif hücreye yazar[/COLOR]
[COLOR=darkgreen]   'Siz istediğiniz hücreye sonucu yazdırabilirsiniz.[/COLOR]
    ActiveCell.Value = ExecuteExcel4Macro(formul)
End Sub

 

[RALKAN]

Sayın Ferhat Pazarçevirdi hocam ,

Sizin göndermiş olduğunuz kodla işlemimi yaptıramadım. Fonksiyonu makro olarak kaydettikten sonra aşağıda ki şekle çevirdim. Sonuçları alıyorum bu yaptığım işlemle bu işlemin başka bir yolu varmıdır bu konuda önerilerinizi belirtirmisiniz.

Sub Makro3()
'
' Makro3 Makro
'

'

For x = 2 To 125


Cells(x, 3) = "=SUMPRODUCT(--('D:\Idari\ocak08\[SATIŞLAR_OCAK2008 _SON.xls]Data'!R2C7:R2000C7=RC1),--('D:\Idari\OCAK08\[SATIŞLAR_OCAK2008_SON.xls]Data'!R2C24:R2000C24))"
Cells(x, 4) = "=SUMPRODUCT(--('D:\Idari\ŞUBAT08\[SATIŞLAR_ŞUBAT2008.xls]Data'!R2C7:R2000C7=RC1),--('D:\Idari\ŞUBAT08\[SATIŞLAR_ŞUBAT2008.xls]Data'!R2C24:R2000C24))"
Cells(x, 5) = "=SUMPRODUCT(--('D:\Idari\MART08\[SATIŞLAR_MART2008.xls]Data'!R2C7:R2000C7=RC1),--('D:\Idari\MART08\[SATIŞLAR_MART2008.xls]Data'!R2C24:R2000C24))"
Cells(x, 6) = "=SUMPRODUCT(--('D:\Idari\NİSAN08\[SATIŞLAR_NİSAN2008.xls]Data'!R2C7:R2000C7=RC1),--('D:\Idari\NİSAN08\[SATIŞLAR_NİSAN2008.xls]Data'!R2C24:R2000C24))"


Next
End Sub