Hücre boş ise satırı gizle

Katılım
7 Ağustos 2006
Mesajlar
82
Excel Vers. ve Dili
excel 2003 Türkçe
Bi sorum olacak. A2 B2 C2 D2 hücrelerinden D2 de eğer değer yoksa o satırı gizlemek istiyorum değer var ise gizlemesin. Makro ile nasıl yapabilirim yardımcı olursanız sevinirim. Allah kolaylık versin.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

Bütun D sütunu için uyarladım siz isterseniz
Kod:
Sub satgiz()
Application.ScreenUpdating = False

son = Cells(65536, 2).End(xlUp).Row
For i = 1 To son
If Cells(i + 1, 4).Value = "S" Then Rows(i + 1).EntireRow.Hidden = True
Next
End Sub
eğer sadece d2 için isterseniz.Aşağıdaki kodları kullanın
If cells(2,4) = "" Then Rows(2).EntireRow.Hidden = True
 
Katılım
7 Ağustos 2006
Mesajlar
82
Excel Vers. ve Dili
excel 2003 Türkçe
Zafer Hocam denedim ama olmadı. Boş hücrelerin içerisinde formül var acaba ondanmıdır diye formülleride sildim yine olmadı. Hocam örneğini ekte gönderiyorum. Kolay gelsin
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

Özür dilerim Yanlışlıkla "" içine S harfi eklemişim.

Sub satgiz()
Application.ScreenUpdating = False

son = Cells(65536, 2).End(xlUp).Row
For i = 1 To son
If Cells(i + 1, 4).Value = "" Then Rows(i + 1).EntireRow.Hidden = True
Next
End Sub​
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
Şöyle deneyin.
Kod:
Sub satgiz()
Application.ScreenUpdating = False
Rows.Hidden = False
son = Cells(65536, 2).End(xlUp).Row
For i = 1 To son
If Cells(i + 1, 4).Value = 0 Then Rows(i + 1).Hidden = True
Next
End Sub
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

Eğer hücrede formül var ve değeri sıfırsa aşağıdaki makroyu deneyiniz.

Kod:
Sub satgiz()
Application.ScreenUpdating = False
son = Cells(65536, 2).End(xlUp).Row
For i = 1 To son
If Cells(i + 1, 4).Value = 0 Then Rows(i + 1).EntireRow.Hidden = True
Next
End Sub

edit: Hızımı kaybetmeye başladım.
 
Katılım
7 Ağustos 2006
Mesajlar
82
Excel Vers. ve Dili
excel 2003 Türkçe
Güzel oldu fakat hücrenin içerisindeki formül düşeyarama ile ilgili yani ismin karşılığında Özet tabloda değer varsa onu alıyordu. Acaba buna uygulayabilirmiyiz.
 
Katılım
7 Ağustos 2006
Mesajlar
82
Excel Vers. ve Dili
excel 2003 Türkçe
ToggleButton ile ilk bastığımızda verdiğiniz kodla gizlemesini. İkinci bastığımızda ise gizlediğimiz satırları göstermesini istiyorum acaba nasıl yapabiliriz yardımcı olabilirmisiniz. Teşekkür ederim hayırlı günler dilerim.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

Değiştirme düğmesinin (ToggleButton) bulunduğu sayfanın kod sayfasına aşağıdaki kodları yapıştırınız.

Kod:
Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False
son = Cells(65536, 2).End(xlUp).Row
If ToggleButton1.Value = True Then
For i = 1 To son
If Cells(i + 1, 4).Value = 0 Then Rows(i + 1).EntireRow.Hidden = True
Next
Else
For i = 1 To son
If Cells(i + 1, 4).Value = 0 Then Rows(i + 1).EntireRow.Hidden = False
Next
End If
End Sub
 
Katılım
7 Ağustos 2006
Mesajlar
82
Excel Vers. ve Dili
excel 2003 Türkçe
Hocam dediğinizi aynen uyguladım fakat satırları gizlemiyor. Hücrede formül olduğundan hücreleri gizlemiyor. Formülü silince gizliyor
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

Formülle ilgisi yok D sütünündaki sonuç eğer 0 ise her şekilde satırı gizler.
 
Katılım
7 Ağustos 2006
Mesajlar
82
Excel Vers. ve Dili
excel 2003 Türkçe
Zafer hocam formül düşeyarama ile ilgili ismin karşısında varsa değer getiriyor yoksa getirmiyor. Yani formül sonucu sıfır değil.
 
Katılım
19 Ocak 2012
Mesajlar
6
Excel Vers. ve Dili
office 2010
Altın Üyelik Bitiş Tarihi
26/06/2023
SAYIN HOCALARIM KOLAY GELSİN BU ÜSTTE YAZILAN KODLAR İŞİME YARAYACAK GİBİ AMA BU KODU NEREYE NE ŞEKİLDE KOYACAĞIM TARİF EDERSENİZ SEVİNİRİM TEŞEKKÜRLER...
 

Mahmut1976

Altın Üye
Katılım
22 Temmuz 2019
Mesajlar
32
Excel Vers. ve Dili
Ofis7
Altın Üyelik Bitiş Tarihi
11-03-2025
Bi sorum olacak. A2 B2 C2 D2 hücrelerinden D2 de eğer değer yoksa D Sutununu otomatik gizlemek istiyorum değer var ise gizlemesin. Makro kullanmadan formülle nasıl yapabilirim yardımcı olursanız sevinirim. Allah kolaylık versin.
 
Katılım
12 Mayıs 2022
Mesajlar
8
Excel Vers. ve Dili
2021-türkçe
formüllüsü var mıdır ? eğer satırda veya şu hücrede değer yoksa, komple satırı gizlesin gibi ?
 

Mahmut1976

Altın Üye
Katılım
22 Temmuz 2019
Mesajlar
32
Excel Vers. ve Dili
Ofis7
Altın Üyelik Bitiş Tarihi
11-03-2025
teşekkür edeim sayın hocam
 
Üst