A
ahmedummu
Misafir
Merhaba arkadaşlar.
[b65000].End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 1) = ""
ActiveCell.Offset(0, 2) = ""
ActiveCell.Offset(0, 3) = ""
ActiveCell.Offset(0, 4) = ""
ActiveCell.Offset(0, 5) = ""
ActiveCell.Offset(0, 6) = ""
ActiveCell.Offset(0, 1) = WorksheetFunction.Sum(Range("c2:c65000").Value)
ActiveCell.Offset(0, 2) = WorksheetFunction.Sum(Range("d2:d65000").Value)
ActiveCell.Offset(0, 3) = WorksheetFunction.Sum(Range("e2:e65000").Value)
ActiveCell.Offset(0, 4) = WorksheetFunction.Sum(Range("f2:f65000").Value)
ActiveCell.Offset(0, 5) = WorksheetFunction.Sum(Range("g2:g65000").Value)
ActiveCell.Offset(0, 6) = WorksheetFunction.Sum(Range("h2:h65000").Value)
Yukarıda ayrı ayrı iki kod bloğu var. Yaptığım her döngüde hata verdi kesinlikle çalışmadı. Yardımcı olabilir misiniz.
[b65000].End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 1) = ""
ActiveCell.Offset(0, 2) = ""
ActiveCell.Offset(0, 3) = ""
ActiveCell.Offset(0, 4) = ""
ActiveCell.Offset(0, 5) = ""
ActiveCell.Offset(0, 6) = ""
ActiveCell.Offset(0, 1) = WorksheetFunction.Sum(Range("c2:c65000").Value)
ActiveCell.Offset(0, 2) = WorksheetFunction.Sum(Range("d2:d65000").Value)
ActiveCell.Offset(0, 3) = WorksheetFunction.Sum(Range("e2:e65000").Value)
ActiveCell.Offset(0, 4) = WorksheetFunction.Sum(Range("f2:f65000").Value)
ActiveCell.Offset(0, 5) = WorksheetFunction.Sum(Range("g2:g65000").Value)
ActiveCell.Offset(0, 6) = WorksheetFunction.Sum(Range("h2:h65000").Value)
Yukarıda ayrı ayrı iki kod bloğu var. Yaptığım her döngüde hata verdi kesinlikle çalışmadı. Yardımcı olabilir misiniz.