makro sağa doğru toplama

[namida]

mesala A dan Cye kolonları seçicem, yada E'den Gye kadar
bu kolonlarda olan sayıları yan yana toplayıp sağda yeni kolona yazacak.. bir makro yazamadım

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Sub secilenitopla()
Cells(1, "h") = WorksheetFunction.Sum(Selection)
End Sub

 

[namida]

çok teşekkürler ama sanırım yanlış anlatmışım, tam olarak şöle bişi olcak..

 

[hamitcan]

Bir de bu şekilde deneyin.

Sub secilenitopla()
For Each hucre In Selection
Cells(hucre.Row, Selection.Columns.Column + Selection.Columns.Count) = WorksheetFunction.Sum(Range(hucre, Cells(hucre.Row, Selection.Columns.Column)))
Next
End Sub

 

[namida]

bu sefer ki oldu çok teşekkürler..
iyi çalışmalar

 

[HALILİBRAHIM]

yan yana toplam alma

Merhaba hocalar bir alt gurup makrosuna ihtiyacım vardı buldum sizlerin sayesinde fakat yan yana toplam alamıyorum uğraştım en son hücrenin toplamını alabildim diğerlerinkini alamıyorum yardıma ihtiyacım var hocalar..

Teşekkürler..