Otomatik hücre bilgisi seçeneğe bağlı silme

[burhancavus61]

Bir satırdaki hücreye veri girince otomatik diğer hücre bilgisini boşaltmak istiyorum ve bunu birden fazla satırda bağımsız olarak makro ile uyarlayabilirmiyiz.

Mesela
A5 seçince C5 boşalacak
B9 seçince D9 boşalacak bu şekilde artırabilecek şekilde bir çözüme ihtiyacım var. Yardımlarınız için şimdiden teşekkürler.

 

[YUSUF44]

Elbette yapılabilir ama işlem hücre seçince mi yoksa hücrede değişiklik yapıp veri girilince mi yapılacak? Örnek dosyada gösterirseniz iyi olur.

 

[burhancavus61]

Veri girişi yapılınca hocam

 

[burhancavus61]

Örnek form ekledim sarı renkli hücreler. Bazıları 2 sütun. Birini seçip veri girince diğeri boşalacak. 3 sütun olanlarda var onlarda yine birine veri girince diğer hücre boşalacak ama 3. hücreye sayı yazılacağından orayıda boşaltabiliriz.

 

[AdemCan]

Aşağıdaki kodlar ile yapabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 29 Then
If Cells(Target.Row, Target.Column) = "" Then Exit Sub
    If Target.Value = "X" Then
        Target.Offset(0, 3).Value = ""
    Else
        Exit Sub
    End If
End If

If Target.Column = 33 Then
    If Cells(Target.Row, Target.Column) = "" Then Exit Sub
    If Target.Value = "X" Then
        Target.Offset(0, 3).Value = ""
        Target.Offset(0, -4).Value = ""
    Else
        Exit Sub
    End If
End If

End Sub

 

[burhancavus61]

Çok teşekkür ederim emeğinize sağlık. Tam istediğim gibi olmuş.

 

[AdemCan]

Rica ederim.