Veriye göre tablonun boş olması

[gecebekcisi]

Arkadaşlar ekteki excel dosyasında bir deney süreci hazırladım. Fakat şartname diye bir bölüm var. Burada Şartname Yok seçildiğinde Sartname alanının otomatik olarak boş olmasını, aynı zamanda 2+7 ve 2+2 gün seçildiğinde TEST1-2-3 bölümünün boş olmasını istiyorum. Böyle birşey mümkün mü?

Teşekkürler..

Ekli dosyayı görüntüle test.xlsx

 

[Huseyinkis]

Arkadaşlar ekteki excel dosyasında bir deney süreci hazırladım. Fakat şartname diye bir bölüm var. Burada Şartname Yok seçildiğinde Sartname alanının otomatik olarak boş olmasını, aynı zamanda 2+7 ve 2+2 gün seçildiğinde TEST1-2-3 bölümünün boş olmasını istiyorum. Böyle birşey mümkün mü?

Teşekkürler..

Ekli dosyayı görüntüle 136613

Ekli kodları deneyler sayfasının kod kısmına yerleştirip denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target = "Yok" Then
Cells(Target.Row, 6).Value = ""
Cells(Target.Row, 7).Value = ""
ElseIf Target = "2+7" Or Target = "2+2" Then
Cells(Target.Row, 3).Value = ""
Cells(Target.Row, 4).Value = ""
Cells(Target.Row, 5).Value = ""
End If
End Sub

 

[gecebekcisi]

çok teşekkürler.. Tam istediğim gibi oldu..

 

[gecebekcisi]

@hüseyinkis

hücreyi silmek istediğimde Run time error "13" hatası veriyor bunu nasıl düzeltebilirim?

 

[Huseyinkis]

@hüseyinkis

hücreyi silmek istediğimde Run time error "13" hatası veriyor bunu nasıl düzeltebilirim?

programın başına aşağıdaki kodu ekleyin

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next