Hücre boş ise satırı gizle

[serdarca]

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]

Merhaba

Bütun D sütunu için uyarladım siz isterseniz

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

 

[serdarca]

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]

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]

Şöyle deneyin.

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]

Merhaba

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

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.

 

[serdarca]

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.

 

[serdarca]

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]

Merhaba

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

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

 

[serdarca]

Hocam dediğinizi aynen uyguladım fakat satırları gizlemiyor. Hücrede formül olduğundan hücreleri gizlemiyor. Formülü silince gizliyor

 

[zafer]

Merhaba

Formülle ilgisi yok D sütünündaki sonuç eğer 0 ise her şekilde satırı gizler.

 

[serdarca]

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.

 

[AHMETDMR83]

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]

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.

 

[ali_haber]

formüllüsü var mıdır ? eğer satırda veya şu hücrede değer yoksa, komple satırı gizlesin gibi ?

 

[ÖmerFaruk]

Formülle satırı gizleyemeyiz.

 

[Mahmut1976]

teşekkür edeim sayın hocam