formül yada makro yardım ?

[aligunes]

ekte gönderdiğim dosyaya açıklama yazdım bu konuda yardımlarınızı bekliyorum.tşk.iyi bayramlar

 

[veyselemre]

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]

 

[veyselemre]

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]