Buradaki kodları forumlarınızdan buldum gerçekten çok işime yaradı. Fakat görüldüğü gibi bu sadece tek satırlık bir makro bunu aşağı doğru tüm satırlara devam ettirmek istiyorum. Kodları değiştirerek yapmayı denedim ama 4000 satırlık bi veri var : ) ilginiz için teşekkürler.
'Buradan başla
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" And Target.Value <> 0 Then
Range("E10").Value = Range("E10").Value + Range("C10").Value
End If
If Target.Address = "$D$10" And Target.Value <> 0 Then
Range("E10").Value = Range("E10").Value - Range("D10").Value
End If
End Sub
'Bu formülün 11, 12, 13 olarak devam etmesi için ne yapmalıyım.
'Buradan başla
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" And Target.Value <> 0 Then
Range("E10").Value = Range("E10").Value + Range("C10").Value
End If
If Target.Address = "$D$10" And Target.Value <> 0 Then
Range("E10").Value = Range("E10").Value - Range("D10").Value
End If
End Sub
'Bu formülün 11, 12, 13 olarak devam etmesi için ne yapmalıyım.