• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Yaklaşık Maliyet

Katılım
11 Mayıs 2006
Mesajlar
708
Excel Vers. ve Dili
Ofis 2016 64 Bit Türkçe
Ekteki belgedeki sarı alanlarda malzeme ismi yoksa 7 İLE 105 SATIRLARI GİZLESİN SONRADA GÖSTERSİN şimdiden teşekkür ederim.
 

Ekli dosyalar

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

PHP:
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:

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

PHP:
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:

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


teşekkür ederim
 
Geri
Üst