Satır Gizleme - Gösterme

[yasso38]

Boş olan hücreleri gizleyecek koda ihtiyacım var. Form da çeşitli kodlar buldum ama onlarda eğer hücre içerisinde formül varsa gizleme yapmıyor.

Benim istediğim hem boş hücreleri hemde formül sonucu sıfır olan satırların gizlenmesini istiyorum. Aşağıdaki kod bu işi yapıyor ama onu da belli aralıklara için uygulayamadım. Mesela B1 ile B15 ve Y17 ile Y67

Şimdiden teşekkürler.

Sub sıfırgizle()
For Each rngRow In ActiveSheet.UsedRange.Rows
If Application.Sum(rngRow) = 0 Then
rngRow.EntireRow.Hidden = True
End If
Next rngRow
End Sub

 

[emrexcel123]

konu başlığı

arkadaşım konu açmadan önce 2 satır aşağıdaki konuyu inceleseydin sorunun cevabını alırdın şu linki inceler misin ii çalışmalar...
http://www.excel.web.tr/showthread.php?t=30911
LÜTFEN KONU AÇMADAN ÖNCE ARAMA YAPINIZ...

 

[yasso38]

Arkadaşım hem o konunun başlığı filtreleme gizle değil.

Hem de o benim işime yaramaz. Sorumu tam incelerseniz.

Saygılar, ilginize teşekkürler.

 

[emrexcel123]

ek

arkadaşım bir ek yollar mısın?

 

[yasso38]

Örnekteki D11 hücresini incelerseniz yeterli olur herhalde.

 

[kombo]

Sn. yasso38

Dosyayı inceleyin.

 

[Seyit Tiken]

Kodu deneyiniz.

Sub Düğme1_Tıklat()
For a = [a65526].End(3).Row To 1 Step -1
If Cells(a, 1).HasFormula Then Cells(a, 1).Rows.Hidden = 1
If Cells(a, 1) = "" Then Cells(a, 1).Rows.Hidden = 1
Next
End Sub

 

[yasso38]

Teşekkürler çok işime yaradı.

 

[yasso38]

Satır Gizleme - Gösterme - Kopyalama

Ek dosyadaki 1 kaç sorumuda cevaplarsanız memnun olurum. Satır gizleme ve makro ile kopyalama ile ilgili.

 

[teknadir]

arkadaşlar satırın boş veya dolu olduğuna bakmadan istenilen satırı gizleyip gösterecek makro yapamadım yardımcı olurmusunuz

 

[kombo]

Dosyayı inceleyin.
Aktif hücrenin olduğu satırı gizler.

 

[teknadir]

satır gizleme

sevgili kombo arkadaşım yazdığım soruya hemen cevap gönderdiğim için teşekkür ederim ama galiba sorum açık olmamış ekte gönderdiğim dosyaya bakarsanız daha iyi anlatmış olurum. yardımcı olursanız sevinirim.

 

[AS3434]

Sayın teknadir

İstediğiniz böyle birşey mi?

 

[teknadir]

teşekkür ederim arkadaşım

 

[teknadir]

Ancak Nasil YaptiĞini ÇÖzemedİm AÇiklarsan

 

[AS3434]

Sayfa1 in (BİLGİ GİRİŞİ) kod sayfasını açarsanız makro orada.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "9/12 GÖSTER"
Application.ScreenUpdating = False
Rows("9:12").EntireRow.Hidden = True
End If
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "9/12 GİZLE"
Rows("9:12").EntireRow.Hidden = False
End If
Application.ScreenUpdating = True
End Sub

ToggleButton Denetim Araç Kutusu çubuğundaki Değiştirme Düğmesi'dir. Kırmızı kısım GİZLE , mavi kısım GÖSTER için yazılmış kodlar.

 

[teknadir]

ToggleButtona makro atayamadım

 

[AS3434]

:yardim: AS3434 arkadaşım foruma gönderdiğim soruma cevap verdiğin için teşekkür ederim ortalamanın üzerinde bir excel kullanıcısı olduğumu düşünüyorum ama toogle butona makro atayamadım yardımcı olurmusun

Sn. teknadir
Sorunuza vermiş olduğum cevabın olduğu dosyayı açın, en alta BİLGİ GİRİŞİ sayfasının üzerinde fare ile sağ tık yapın, açılan pencerede KOD GÖRÜNTÜLE seçin, o sayfanın kodları ekrana gelecektir. Bu kodlar sadece o sayfada çalışır.
Private Sub ToggleButton1_Click

Adından da anlaşılacağı gibi özel bir durumdur.
ToggleButton1.Value = False (kapalı)
ToggleButton1.Value = True (Açık)
Butona tıklama ile sayfa içinde çalışır. Ayrıca Makro atamak isterseniz. False konumuna bir makro, True durumuna başka bir makro atayabilirsiniz. Ama bunu Buton üzerinde Sağ klik / Makro ata yöntemi ile yapamazsınız. Makroları bir modüle yazıp,
ToggleButton1.Value = False konumu ile birini,
ToggleButton1.Value = True konumu ile diğerini çalıştırabilirsiniz.

Veya doğrudan
ToggleButton1.Value = False konumuna ile birini,
ToggleButton1.Value = True konumuna diğerini yazarak çalıştırabilirsiniz.

1. Boş bir Excel Sayfası açın.
2. Denetim Araç Kutusu (Control Toolbox) Araç Çubuğundan, ToggleButton (Değiştirme Düğmesi) nesnesine fare ile tıklayın.
3. Bu nesneyi Fare ile Sayfa üzerine çizin. Sağ klik ile kod görüntüle deyin.
4. Aşağıdaki kodu çalıştığınız sayfanın kod kısmına yazın.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then   'eğer buton kapalı durumda ise
ToggleButton1.Caption = "9/12 GÖSTER" 'buton üzerine "9/12 GÖSTER" yaz
Rows("9:12").EntireRow.Hidden = True  'satır(9:12) yi gizle
End If
If ToggleButton1.Value = True Then    'eğer buton açık durumda ise
ToggleButton1.Caption = "9/12 GİZLE"  'buton üzerine "9/12 GİZLE" yaz
Rows("9:12").EntireRow.Hidden = False 'satır(9:12) yi göster
End If
End Sub

5. Tasarım modunu kapatın.
6. Şimdi Sayfadaki ToggleButton1 nesnesine peş peşe iki defa tıklayın.

Anlatma yeteneğim iyi değildir, umarım açıklayıcı olmuştur.
Lütfen özel mesajla soru sormayın. Forum içinde sorarsanız, daha çabuk yanıt alırsınız.