bu kodları anket sayfasının kod sayfasına kopyala
[vb:1:5129220853]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Columns("F:I"), Target) Is Nothing And Target <> "" Then
Cells(Target.Row, Target.Column - 4) = Cells(Target.Row, Target.Column - 4) + Target
End If
End Sub[/vb:1:5129220853]
bu şekildede kullanabilirsin
[vb:1:15d7b9b8c3]
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Columns("F:I"), Target) Is Nothing And Target <> "" Then
Target.Offset(0, -4) = Target.Offset(0, -4) + Target
End If
End Sub
[/vb:1:15d7b9b8c3]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.