Belirli hücreleri filtreleme

[ozgurpeh]

Merhabalar,

Filtreleme ile ilgili sorun yaşıyorum. Ekli örnek üzerinde açıklama mevcut yardımlarınızı rica ederim

 

[Korhan Ayhan]

İlgili alana filtre uygulayın. "Ürün Miktarı" bölümündeki filtre seçeneğinden "büyüktür" parametresini seçin. Değer bölümüne de sıfır (0) yazıp işlemi tamamlayın.

Umarım istediğiniz budur..

 

[ozgurpeh]

o zama

İlgili alana filtre uygulayın. "Ürün Miktarı" bölümündeki filtre seçeneğinden "büyüktür" parametresini seçin. Değer bölümüne de sıfır (0) yazıp işlemi tamamlayın.

Umarım istediğiniz budur..

ozaman tüm satırı siliyor müşteri adıda gidiyor

 

[Ömer BARAN]

Merhaba.
Sayın AYHAN şu an çevrimiçi değil.
Sorunuzdaki net olmayan kısım SİLİNSİN ibaresi.
SİLİNSİN demekten kastınız; hücre içeriklerinin silinmesi mi, yoksa sarı işaretlediğiniz hücrelerin silinip, alttaki satırların yukarı doğru kayması mı?
.

 

[ozgurpeh]

Merhaba.
Sayın AYHAN şu an çevrimiçi değil.
Sorunuzdaki net olmayan kısım SİLİNSİN ibaresi.
SİLİNSİN demekten kastınız; hücre içeriklerinin silinmesi mi, yoksa sarı işaretlediğiniz hücrelerin silinip, alttaki satırların yukarı doğru kayması mı?
.

Alttaki satirlarin yukari kaymasi


Tapatalk kullanarak iPhone aracılığıyla gönderildi

 

[Ömer BARAN]

Aşağıdaki kod'u kullanabilirsiniz.

Sub E_SIFIRSA_DEF_SIL()
For sat = Cells(Rows.Count, "E").End(3).Row To 7 Step -1
    If Cells(sat, "E") = 0 Then Range("D" & sat & ":F" & sat).Delete Shift:=xlUp
Next
End Sub

 

[ozgurpeh]

Aşağıdaki kod'u kullanabilirsiniz.

Sub E_SIFIRSA_DEF_SIL()
For sat = Cells(Rows.Count, "E").End(3).Row To 7 Step -1
If Cells(sat, "E") = 0 Then Range("D" & sat & ":F" & sat).Delete Shift:=xlUp
Next
End Sub

Deneyip bilgi verecegim, tesekkurler



Tapatalk kullanarak iPhone aracılığıyla gönderildi

 

[ozgurpeh]

Teşekkürler çalışıyor fakat bu kodu Module ekleyerek sadece Sayfa2 için çalışması istenilirse kod nasıl olur ?

 

[Ömer BARAN]

Tüm Range ve Cells ibarelerinin başına,
Sheets("Sayfa2").
ibaresini eklemeniz yeterli olur.
.

 

[ozgurpeh]

Tekrar teşekkürler,

 

[Ömer BARAN]

Kolay gelsin.