Sütün Toplama

[birkan09]

Merhabalar ;

Aşağıda bir makrom var. Bu kısma kadar doğru bundan sonra iste b2 sütününda en sona gidip toplam alsın istiyorum ama her seferinde b2 de 4 hücrede olabilir 14 de

Teşekkürler yardımlarınız için

Makro

Cells.Select
Selection.Font.Size = 9
Selection.Font.Size = 10
Selection.Font.Size = 11
Selection.Font.Size = 12
Selection.Font.Size = 14
Cells.EntireColumn.AutoFit
Range("B1").Select
ActiveCell.FormulaR1C1 = "KOLİ"
Range("C1").Select
ActiveCell.FormulaR1C1 = "PK"
Application.Goto Reference:="R2C2"
Selection.End(xlDown).Select

 

[veyselemre]

Sub test()
    Set son = Cells(2, 1).End(xlDown)
    son.Offset(1, 1).Value = WorksheetFunction.Sum(Range(Cells(2, 2), son.Offset(, 1)))
End Sub

 

[birkan09]

Sub test()
    Set son = Cells(2, 1).End(xlDown)
    son.Offset(1, 1).Value = WorksheetFunction.Sum(Range(Cells(2, 2), son.Offset(, 1)))
End Sub

Teşekkürler oldu

 

[birkan09]

Yardımların için teşekküler tekrardan bir şey daha soracağım başka bi makromda ise hem B hemde C de toplanacak ama onu nasıl yapacağız

Cells.Select
Selection.Font.Size = 9
Selection.Font.Size = 10
Selection.Font.Size = 11
Selection.Font.Size = 12
Selection.Font.Size = 14
Cells.EntireColumn.AutoFit
Range("B1").Select
ActiveCell.FormulaR1C1 = "KOLİ"
Range("C1").Select
ActiveCell.FormulaR1C1 = "PK"
Application.Goto Reference:="R2C2"
Selection.End(xlDown).Select
Set son = Cells(2, 1).End(xlDown)
son.Offset(1, 1).Value = WorksheetFunction.Sum(Range(Cells(2, 2), son.Offset(, 1)))

 

[veyselemre]

Sub test()
    Range("B1") = "KOLİ"
    Range("C1") = "PK"
    Set son = Cells(2, 1).End(xlDown)
    son.Offset(1, 1).Value = WorksheetFunction.Sum(Range(Cells(2, 2), son.Offset(, 1)))
    son.Offset(1, 2).Value = WorksheetFunction.Sum(Range(Cells(2, 4), son.Offset(, 2)))
    Cells(2, 1).CurrentRegion.Font.Size = 14
    Cells.EntireColumn.AutoFit
End Sub

 

[birkan09]

Teşekkürler