Yaklaşık Maliyet

[yuzun23]

Ekteki belgedeki sarı alanlarda malzeme ismi yoksa 7 İLE 105 SATIRLARI GİZLESİN SONRADA GÖSTERSİN şimdiden teşekkür ederim.

 

[YUSUF44]

https://www.excel.web.tr/threads/satir-gizleme.181235/#post-998179

Yukardaki sorunuzda sunulan çözüm önerilerini bu sorunuza uyarlamayı denediniz mi?

 

[yuzun23]

Evet bunlar ile çalıştım olmadı VEYA BECEREMEDİM İKİSİ BİRLİKTE

 

[YUSUF44]

Gizleme:

Sub gizle()
For i = 7 To 105
    If Cells(i, "B") = "" Then
        Rows(i).EntireRow.Hidden = True
    Else
        Rows(i).EntireRow.Hidden = False
    End If
Next
End Sub

Açma:

Sub Satirlari_Goster()
    Rows("7:105").Hidden = False
End Sub

 

[yuzun23]

Gizleme:

Sub gizle()
For i = 7 To 105
    If Cells(i, "B") = "" Then
        Rows(i).EntireRow.Hidden = True
    Else
        Rows(i).EntireRow.Hidden = False
    End If
Next
End Sub

Açma:

Sub Satirlari_Goster()
    Rows("7:105").Hidden = False
End Sub

teşekkür ederim