Satır gizleme

[vasifokur]

Satır gizleme ile ilgili bir örnek dosyam var.3 ve 4 numaralı butonlarla 2. sayfadaki makroları çalıştırabiliyorum.Sorunum şu;1 ve 2 numaralı butonlarla 1. ve 2. sayfadaki makroları çalıştıramıyorum. Mutlaka bir yerlerde hata yapıyorumdur. Bana yardımcı olursanız çok sevinirim. Teşekkürler

 

[seismic]

Makro atama hatası

Dosyanız üzerinde gerekli değişikliği yaptım,kontrol ederseniz sevinirim.

 

[vasifokur]

Sayın Seismic; öncelikle ilginize teşekkür ederim. Bir ricam daha olacak. 1 numaralı buton ile her iki sayfayı gizleyebilir miyim ? Saygılarımla,iyi geceler.

 

[seismic]

Düzenleme yapıldı

Yukarıdaki dosyada gerekli değişikliği yaptım,kontrol ederseniz iyi olur

 

[vasifokur]

Sn. Seismic ; herhalde tam ifade edemedim. Sorunum şu: 1 nolu buton yardımı ile 1. ve 2. sayfadaki boş satırları gizleyebilir miyim ? Nasıl 2 nolu buton yardımı ile her iki sayfadaki gizli satırlar gözüküyorsa 1 nolu buton ile istediğim mümkün olur mu? Tekrar teşekkür ederim.

 

[seismic]

Yanlış anlamışım

Dosyayı tekrar düzelttim,biraz tarzanca oldu ama idare edin artık.Hem çalışıp hem excel ile ilgilenince böyle kestirme yollara başvuruyor insan

 

[vasifokur]

Sn. Seismic ; ellerinize kollarınıza sağlık. Tam istediğim gibi olmuş. Teşekkür ederim.

 

[Seyit Tiken]

Bu kodu bir butona bağlayarak deneyiniz.

Sub Makro5()
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
Sheets("Sayfa2").Select
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
Sheets("Sayfa1").Select
End Sub

 

[seismic]

Yavaş yavaş öğreniyoruz

Bir önceki dosyada kodun sonunda diğer makro çalışıyordu,bu da biraz kolaya kaçmak anlamına geliyor.Birde bu dosyayı deneyin.