hücreye değer girdiğinde başka hücredeki değeri kaldırma

[jaguar0007]

merhabalar hocam
yıllık izin giriyorum hesaplamaları yapıyorum.
örnegin a1 de yıllık izin 5 yazdığımda d1 e1 f1 gibi hücrelerdeki formüller kaldırılsın boş görülsün. istiyorum.

teşekkürler

 

[Muzaffer Ali]

Merhaba.

Sayfanın kod kısmına aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing And Target.Text = "yıllık izin 5" Then
        Range("D1:F1").Clear
    End If
End Sub

 

[jaguar0007]

Merhaba.

Sayfanın kod kısmına aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing And Target.Text = "yıllık izin 5" Then
        Range("D1:F1").Clear
    End If
End Sub

hocam yıllık izin 5 yazısı değil o hücreye her hangi bir sayı yazabiliyorum. mesela 10 5 gibi nasıl düzeltebiliriz.

 

[Muzaffer Ali]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Range("D1:F1").Clear
    End If
End Sub

 

[jaguar0007]

Hocam hakkınızı helal edin ekleyemedim heralde ekleyebilirmisiniz size zahmet E2 ve e sütununda personellere yıllık izin girdiğimde f2 den s2 kadar boş göstersin. yapabilirmisiniz.

 

[Muzaffer Ali]

Aşağıdaki kodu kullanın.
Kodu sayfanın kod sayfasına ekleyeceksiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E2:E" & Rows.Count)) Is Nothing Then
        Range("F" & Target.Row & ":S" & Target.Row).ClearContents
    End If
End Sub