Belli bir hücrenin değerine göre diğer hücrelerdeki verileri temizlemek

[greenpierre]

İyi günler,
Bir hücreye girdiğim müşterilerin aktif yada pasif olma durumuna göre verilen 0 ve 1 değerini dikkate alarak aynı satırda bulunan fiyat, müşteri tipi vs.. Değerlerini temizleyen bir kod nasıl yazabilirim.
örnek: a1 hücresine yazılan 0 değeri yanında bulunan b1, c1, d1 hücrelerinin içeriğini temizlesin gibi.

 

[uzmanamele]

merhaba
ek dosya işinizi görür mü

Sub deneme()
son = Range("b65356").End(3).Row
For i = 2 To son
If Range("b" & i) = 0 Then
Range("b" & i, "e" & i) = ""
End If
Next
MsgBox "temizlik bitti"
End Sub

 

[greenpierre]

merhaba
ek dosya işinizi görür mü

Sub deneme()
son = Range("b65356").End(3).Row
For i = 2 To son
If Range("b" & i) = 0 Then
Range("b" & i, "e" & i) = ""
End If
Next
MsgBox "temizlik bitti"
End Sub

Bu ekin işime yarayacağını sanmıyorum. Yukarıda belirttiğim gibi aktif/pasif olup olmadıgını kontrol ettiğim c kolonundaki 0 veya 1 değerine göre d,e,f,g hucrelerındekı degerlerı temızleyecek bır koda ıhtıyacım var her hangı bı uyarı mesajı cıkarmasını da ıstemıyorum. Hücre içindeki değer 0 oldugu anda butun dıger belırtecegım hucrelerı sılmesını ıstıyorum. Şunun gibi bir kod olmalı;
eğer c1 hücresi 0 ise d1 e1 f1 hücrelerini temizle, eğer 1 ise oldugu gıbı bırak

 

[uzmanamele]

merhaba
ben sizin gibi düşünmüyorum.
siz örnek dosya eklememişsiniz ki istediğiniz gibi olabilsin!
B sütunu boyunca, b hücrelerine bakar, hücrede 0 yazıyorsa b,c,d,e hücrelerini siler, değilse sonraki satıra geçer.
mesaj istemiyorsanız ilgili satırı silersiniz.

 

[Erdem Akdemir]

merhaba
ben sizin gibi düşünmüyorum.
siz örnek dosya eklememişsiniz ki istediğiniz gibi olabilsin!
B sütunu boyunca, b hücrelerine bakar, hücrede 0 yazıyorsa b,c,d,e hücrelerini siler, değilse sonraki satıra geçer.
mesaj istemiyorsanız ilgili satırı silersiniz.

uzmanamele size katılıyorum

kod gayet güzel çalışıyor, istediği gibi yapmışsınız

 

[greenpierre]

merhaba
ben sizin gibi düşünmüyorum.
siz örnek dosya eklememişsiniz ki istediğiniz gibi olabilsin!
B sütunu boyunca, b hücrelerine bakar, hücrede 0 yazıyorsa b,c,d,e hücrelerini siler, değilse sonraki satıra geçer.
mesaj istemiyorsanız ilgili satırı silersiniz.

Sub deneme()
son = Range("e65356").End(3).Row
For i = 2 To son
If Range("e" & i) = 0 Then
Range("f" & i, "m" & i) = ""
End If
Next
End Sub
kodu bu sekılde kendı excel sayfama göre degiştirince gayet güzel çalıştı teşekkürler . Bu kodda bazı kısımları anlamadım cok az acıklayabilirseniz kendime göre biraz geliştirmek istiyorum. Bir de makroyu devamlı çalışır halde nasıl ayarlamam lazım ? mutlaka her seferınde makroyu kısa yolundan calıstırmam mı gerekıyor 0 sayısı gırılır gırılmez hemen sılemez mı dıger sutunları?

 

[uzmanamele]

merhaba
sayfanın kod bölümüne yazınız.
E sütununda veri girildikçe kod aktifleşir

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [e:e]) Is Nothing Then Exit Sub
If Target.Value = 0 Then
Range("f" & Target.Row, "m" & Target.Row) = ""
End If
End Sub

 

[greenpierre]

merhaba
sayfanın kod bölümüne yazınız.
E sütununda veri girildikçe kod aktifleşir

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [e:e]) Is Nothing Then Exit Sub
If Target.Value = 0 Then
Range("f" & Target.Row, "m" & Target.Row) = ""
End If
End Sub

Sayfanın ustunde makro kısmından ilk makroyu eklemiştim. Şimdi diğer makroyuda aynı yere mi eklemek gerekiyor. Ekledim orda yenı bır ad olusturup makro 2 dıye ama işe yaramadı.

 

[uzmanamele]

merhaba
ek dosyayı inceleyiniz

 

[greenpierre]

merhaba
ek dosyayı inceleyiniz

Çok teşekkür ederim en sonunda becerdim . Bir ara makroları göstere basınca hiç bir şey göstermiyordu sanki yokmuş gibi ama makro çalışıyordu bi kaç saat uğraştırdı en sonunda içindeki makroyu görmek için yeni makro açarak ulaştım makrolara hehe.