Sumıf

[du643]

Merhabalar Üsdatlar,
ActiveCell.FormulaR1C1 = _
"=SUMIFS([2017_İTHALAT.xlsx]OCAK!C99,[2017_İTHALAT.xlsx]OCAK!C1,RC[-3],[2017_İTHALAT.xlsx]OCAK!C2,RC[-2],[2017_İTHALAT.xlsx]OCAK!C7,RC[-1])"

yukarıdaki formülde ocak değişken formülü nasıl yazmam lazım yardımlerınız için teşekkürler.
Her ay için ayrı formül yazmak istemiyorum.

 

[mancubus]

Sub test()

    Dim ay As String
    
    ay = "OCAK"
    
    ActiveCell.FormulaR1C1 = _
    "=SUMIFS([2017_İTHALAT.xlsx]" & ay & "!C99,[2017_İTHALAT.xlsx]" & ay & "!C1,RC[-3],[2017_İTHALAT.xlsx]" & ay & "!C2,RC[-2],[2017_İTHALAT.xlsx]" & ay & "!C7,RC[-1])"

End Sub

 

[du643]

Teşekkür ederim.

 

[mancubus]

Rica ederim. Kolay gelsin.