baydeniro
Altın Üye
- Katılım
- 26 Ocak 2007
- Mesajlar
- 4,625
- Excel Vers. ve Dili
- Ofis 2016
- Altın Üyelik Bitiş Tarihi
- 20-02-2025
Merhaba Arkadaşlar,
Aşağıdaki kodu uyguluyorum. Yani B-C-D-E sütunlarına bir veri girildiğinde 1 sağındaki sütuna x 2 olarak kaydetsin diye. İlk işlemi güzel yapıyor ama şöyle bir sorun oluyor.
Diyelim B sütununa 100 yazdım. Kod C sütuna 200 yazıyor ama bu işlem D sütuna 400, E sütununa 800 olarak devam ediyor !
İstediğim sadece ilk işlemi olması ve diğer hücreleri tetiklememesi. Bunu nasıl yapmak lazım acaba ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then
If Target.Column < 5 Then
Target.Offset(0, 1) = Target.Offset(0, 0) * 2
End If
End If
End Sub
Aşağıdaki kodu uyguluyorum. Yani B-C-D-E sütunlarına bir veri girildiğinde 1 sağındaki sütuna x 2 olarak kaydetsin diye. İlk işlemi güzel yapıyor ama şöyle bir sorun oluyor.
Diyelim B sütununa 100 yazdım. Kod C sütuna 200 yazıyor ama bu işlem D sütuna 400, E sütununa 800 olarak devam ediyor !
İstediğim sadece ilk işlemi olması ve diğer hücreleri tetiklememesi. Bunu nasıl yapmak lazım acaba ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then
If Target.Column < 5 Then
Target.Offset(0, 1) = Target.Offset(0, 0) * 2
End If
End If
End Sub