0 Olan Satirdakİ HÜcreyİ Temİzlesİ.

[yesilcan]

Hocalarim ArkadaŞlarim Hepİnİze Kolay Gelsİn ;

Ekdekİ Dosyada B SÜtÜnundakİ Adet BaŞliĞi Altindakİ 0(sifir) Veya (-)eksİ Olan Satirdakİ(sari Renklİ Olan) İlgİlİ ÜrÜn Kodu Ve Model Satirlarina Denk Gelİyorsa O HÜcrelerİ Sİlmesİnİ Ve A SÜtÜnundakİ Numaraya GÖre Siralamasini İstİyorum.yanİ B SÜtÜnÜnda Sifir Ve Adetlerİn SaĞinda Ve Solundakİ HÜcrelerİ Temİzlesİn.a SÜtÜnÜnÜ ÜrÜn Koduna GÖre Otomatİk Siralasin.

Yardimlariniz İÇİn Şİmdİden

 

[Seyit Tiken]

Aşağıdaki gibi kullanabilirsiniz.

Sub Düğme1_Tıklat()
For s = [B100].End(3).Row To 1 Step -1
If Range("b" & s) = 0 Then Range("b" & s).Rows = Empty
If Range("b" & s) < 0 Then Range("b" & s).Rows = Empty
Next
End Sub

 

[yesilcan]

hocam ilgin için tşk.ederim.

hocam bu kodları uyguladım fakat sadece b sütünündaki eksi ve sıfır olan sayıları siliyor.bu sayıların sağındaki ve solundaki hücrelerinde temizlenmesini istemiştim.ayrıca temizleme işlemi bittikten sonra a sütünündaki ürün kodundaki sayılara göre sırlasın.

mümkünmüdür ?

 

[Ali]

Sub silsatır()
For satir = [B100].End(3).Row To 1 Step -1
If Range("b" & satir) <= 0 Then Rows(satir).Delete
Next
satir = [a100].End(3).Row
kod = 22223100
For i = 2 To satir
Cells(i, 1) = kod
kod = kod + 1
Next
End Sub

 

[yesilcan]

ilginiz için çok teşekkür ederim.

başarılarınızın devamını dilerim.