DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Makro1()
Range("B6").FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
Range("B6:Q6").FillRight
Range("B13").FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
Range("B13:Q13").FillRight
End Sub