İki koşula göre makro ile seçip uyan satırları yazdır

[ex48]

Merhaba;
Ekteki dosyada Şube 01, Sayfa 01_Kayıtİcmalindeki listede
Makroyla ilçe ve ay+yıl seçip uyan satırları yazdırmak ve diğer iki hususta (Dosyada açıklanan) yardım ederseniz sevinirim.

 

[ex48]

Merhaba;
Ekteki dosyada Şube 01, Sayfa 01_Kayıtİcmalindeki listede
Makroyla ilçe ve ay+yıl seçip uyan satırları yazdırmak ve diğer iki hususta (Dosyada açıklanan) yardım ederseniz sevinirim.

Yokmudur yardımcı olabilecek bir arkadaş.

 

[ex48]

Üstadlar, mümkün değilmidir? iki kolonda süzüp yazdırmakda olabilir fakat makroyla daha uygun olur diye düşünmüştüm.

 

[Orion1]

Otomatik filtre ile istediğiniz süzme işlemini rahatlıkla yapabilirsiniz.

 

[ex48]

Otomatik filtre ile istediğiniz süzme işlemini rahatlıkla yapabilirsiniz.

Sayın, Evren Bey
Fi
Filtre işlemi yapılmış ve kaydedilmiş dosyanın, ilk açılışında filtre edilmemiş halde açılmasını sağlayabilirmiyiz ve bir butonada aynı fonksiyonu ekleyebilirmiyiz?

 

[Orion1]

Filtreyi kaldırmak için aşağıdaki kodu kullanabilirsiniz.
Butona atamak için ise makro kaydet yöntemi ile kodların nasıl olduğunu anlayabilirsiniz.Ve butona uyarlayarak kodları yazabilirsiniz.

If ActiveSheet.FilterMode = True Then
    ActiveSheet.ShowAllData
End If

 

[ex48]

Sağolun Evren Bey

 

[Orion1]

Sağolun Evren Bey

Rica ederim.