Çözüldü Filtrelenmiş Aralıkta Görünür Hücrelere Değer Verme

[Kekoli]

Merhabalar,

yaptığım makro ile verimi filtreliyorum, filtrelediğim veriyi filtreledikten sonra filtelenmiş olan hücrelerde yeni bir sütuna "Uygun Olanlar" yazıp filtreyi tekrar kaldırmak istiyorum,
yardımcı olabilir misiniz?

 

[Kekoli]

Range(Cells(2, 33), Cells(sonsatir3, 33)).SpecialCells(xlCellTypeVisible).Value = "Uygun Bölüm ve Yas"

bu şekilde çözdüm arkadaşlar, başlık kirliliği oldu ama olması için başlığı açmam gerekiyormuş demek ki.

 

[Kekoli]

Görünenlere bunu yazabilirken, görünmeyenlere de başka bir şey yazdırabilir miyim, var mı onun da yolu?

 

[Orion1]

Deneyiniz.
Range(Cells(2, 3), Cells(sonsatir3, 33)).Value = "görünmeze yazılan yazı"
Range(Cells(2, 3), Cells(sonsatir3, 33)).SpecialCells(xlCellTypeVisible).Value = "Uygun Bölüm ve Yas"

 

[Kekoli]

önce hepsine yazıp sonra filtrelenenlerin üzerine yazıyor değil mi
ellerinize sağlık.

 

[Orion1]

önce hepsine yazıp sonra filtrelenenlerin üzerine yazıyor değil mi
ellerinize sağlık.

Evet öyle.