Buton ile filitrede bazı bilgilerin çentiği kaldırılsın

[ASLAN7410]

Merhaba hayırlı geceler.

Excel dosyamın Sayfa2'nin B sütununda sayılar var, butona bastığımda bu verilerden bazılarının
otomatik olarak çentiğinin kaldırılmasını istiyorum, örneğin 1'den 4'e kadar olan rakamlarının çentiğinin
otomatik kaldırılmasını istiyorum. Bu rakamların hangileri varsa çentiği kalksın.

Makro kaydet ile yapıyorum ancak Sayfa2'ye başka veriler yapıştırıp işleme devam ettiğimde
sütununda verilerim sabit olmadığı için olmuyor.

Yardımcı olur musunuz?

 

[ASLAN7410]

Merhaba arkadaşlar hayırlı akşamlar.

Satır gizle göster ile yaptığımda sayfadaki ALTTOPLAM formülü çalışmıyor bu sefer.

Yardımcı olur musunuz?

Konu günceldir.

 

[ASLAN7410]

Sayın hocalarım böyle bir çalışma yok galiba, kimse bir fikir yazmadı.

Forumda gizle göster şeklinde bir çok konu işlenmiş ama makro bilgim fazla olmadığı için kendi sayfama bir türlü uyarlayamadım.

Yapmak istediğim Sayfa1'den, Sayfa2'ye geçtiğimde B2'den son satıra kadar makro kontrol edip hücrelerde bulunan 1-2-3-4 rakamlarının bulunduğu satırların gizlenmesini istiyorum.
Butonlada bu gizlenen satırların geri açılmasını istiyorum.

Yardımcı olur musunuz? Şimdiden teşekkür ederim.

 

[Orion1]

Sayın hocalarım böyle bir çalışma yok galiba, kimse bir fikir yazmadı.

Örnek dosya eklemediğiniz için olabilirmi acaba!!

 

[ASLAN7410]

Sayın Evren Bey ilginize çok teşekkür ederim, örnek dosyayı ekledim.

 

[Orion1]

Bu 4 ten büyük olanları süzer.

Range("A1").AutoFilter field:=3, Criteria1:=">4"

Buda istediğiniz değerleri süzer.

ActiveSheet.Range("$A$1").AutoFilter field:=3, Criteria1:=Array( _
        "11111", "14", "15", "23213"), _
        Operator:=xlFilterValues

 

[ASLAN7410]

Sayın Evren Bey ellerinize sağlık, çok teşekkür ederim, Allah razı olsun aşağıdaki kod tam istediğim gibi oldu.

Range("A1").AutoFilter field:=3, Criteria1:=">4"

Hayırlı çalışmalar, hayırlı geceler diliyorum.

 

[Orion1]

Sayın Evren Bey ellerinize sağlık, çok teşekkür ederim, Allah razı olsun aşağıdaki kod tam istediğim gibi oldu.

Range("A1").AutoFilter field:=3, Criteria1:=">4"

Hayırlı çalışmalar, hayırlı geceler diliyorum.

Rica ederim.
İyi çalışmalar.