Sütunu sütun üstüne toplama

[Yesilyurtlu]

Hayırlı akşamlar
Uzmanlarım F3:F100 sütununa girdiğim her değeri entere basınca U3:U100 sütununa toplatabilir miyim?
Teşekkür ederim

 

[Orion1]

Hayırlı akşamlar
Uzmanlarım F3:F100 sütununa girdiğim her değeri entere basınca U3:U100 sütununa toplatabilir miyim?
Teşekkür ederim

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F3:F100]) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
    Cells(Target.Row, "U").Value = Cells(Target.Row, "U").Value + Target.Value
End If
End Sub

 

[Yesilyurtlu]

Üstadım Teşekkür ederim.

 

[Orion1]

Üstadım Teşekkür ederim.

Rica ederim.
İyi çalışmalar.