DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub test()
tc1 = Range([j3]).Address
tc2 = Range([K3]).Address
MsgBox WorksheetFunction.Sum(Range(tc1 & ":" & tc2))
te1 = Range([j4]).Address
te2 = Range([K4]).Address
MsgBox WorksheetFunction.Sum(Range(te1 & ":" & te2))
End Sub