Çözüldü A1 Hücresi boşsa b1,c1,d1,e1,f1 hücrelerinin içeriğini silme

himmgarip · 2 Ocak 2019

Merhaba,

Forumda aradım ama bulamadım. Aynı satırda bir hücre boşsa yine aynı satırdaki diğer hücre içeriğini nasıl silebiliriz.

A1 Hücresi boşsa b1,c1,d1,e1,f1 hücrelerinin içeriğini silme gibi. A1 dolu ise diğer hücrelerde bir değişiklik olmasın. Teşekkürler.

Murat OSMA · 2 Ocak 2019

Merhaba,
Bu kodları sayfanın kod penceresine yapıştırıp deneyebilirsiniz..

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    If IsEmpty(Target) Then
        Range("A" & Target.Row).Resize(, 6).ClearContents
    End If
End Sub

A sütunundaki herhangi bir hücreden veri silindiğinde o satırdaki A:F aralığında bulunan tüm hücrelerin içeriğini temizler.

himmgarip · 3 Ocak 2019

Cevap için teşekkürler. Son olarak silinen alanın arkaplan dogusunu nasıl silebilirim.

Murat OSMA · 3 Ocak 2019

Koddaki ClearContents yerine Clear yazın.

himmgarip · 3 Ocak 2019

Admin' Alıntı:
Koddaki ClearContents yerine Clear yazın.

Sayın Admin
Clear komutu hücreyi siliyor kenarlıklar falan gidiyor hep.

Üstte verdiğiniz kodla A hücresini silince A:F aralığını siliyorum. Bu silinen alanda oluşan dolguları temizlemek istiyorum. Bu koda bi ekleme yapmak lazım diye düşünüyorum.

himmgarip · 3 Ocak 2019

Kod:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    If IsEmpty(Target) Then
        Range("B" & Target.Row).Resize(, 16).ClearContents
        Range("B" & Target.Row).Resize(, 16).Interior.Color = xlNone
       End If
End Sub

Bu şekilde çözüm buldum. Teşekkürler.

Murat OSMA · 4 Ocak 2019

Güzel.. sizin çözüm üretmenize sevindim.

İyi günler.

Çözüldü A1 Hücresi boşsa b1,c1,d1,e1,f1 hücrelerinin içeriğini silme

himmgarip

Murat OSMA

himmgarip

Murat OSMA

himmgarip

himmgarip

Murat OSMA