Aynı hücreye satır toplama

[Yesilyurtlu]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("AJ7") = [E7+F7+G7+H7+I7+J7+K7+L7+M7+N7+O7+P7+R7+S7+T7+U7+V7+W7+X7+Y7+AA7+AB7+AC7+AD7+AE7+AD7+AE7+AF7+AG7+AH7+AI7]
End Sub

Bu makro ile sadece bir satırı AJ7 ye toplayabiliyorum.

Bu makroyu E8:AI8 hücresini AJ8 e
E9:AI9 hücresini AJ9 a gibi 50 satır için kısa yolu varmıdır

 

[Orion1]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 50 Then Exit Sub
Cells(Target.Row, "A").Value = WorksheetFunction.Sum(Range("E" & Target.Row & ":AI" & Target.Row))

End Sub

 

[Yesilyurtlu]

ÜSTAD;
Her sıkıntıma cevap verdiğiniz için TEŞEKKÜR EDERİM.

Sağolun

 

[Orion1]

ÜSTAD;
Her sıkıntıma cevap verdiğiniz için TEŞEKKÜR EDERİM.

Sağolun

Rica ederim.