• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Sheet'leri belirli bir değer aralığına göre gösterme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
E

erdem28

Yeni Üye
Katılım
9 May 2022
Mesajlar
4
Aldığı beğeni
1
Excel V
Office 2019 TR
Konu Sahibi
Arkadaşlar merhaba,
Bir hücredeki değer aralığına göre, belirli sayfaları visible veya invisible yapmak istiyorum. Yardımcı olursanız sevinirim.

Sub Sayfalar()
If Sayfa0.Range("C7") <= 40 Or Sayfa0.Range("C7") >= 160 Then
Worksheets("Sayfa1").Visible = False
End If
End Sub
 
Çözüm
Adnan
yukarıdaki kod bu işlemi yapar ancak sayfa 0 olamaz. yan kod sayfasında yan taraftan sayfa numarasını görebilirsin. aşağıdaki kodların bir tanesini kullanın.

örnek
Sub g()
Sayfa4.Visible = xlSheetHidden 'gizli
Sayfa4.Visible = xlSheetVeryHidden ' herhangi nedenle açılamayacak kadar güçlü gizli
Sayfa4.Visible = xlSheetVisible 'görünür
End Sub
Tarihe göre sırala Oylara göre sırala
yukarıdaki kod bu işlemi yapar ancak sayfa 0 olamaz. yan kod sayfasında yan taraftan sayfa numarasını görebilirsin. aşağıdaki kodların bir tanesini kullanın.

örnek
Sub g()
Sayfa4.Visible = xlSheetHidden 'gizli
Sayfa4.Visible = xlSheetVeryHidden ' herhangi nedenle açılamayacak kadar güçlü gizli
Sayfa4.Visible = xlSheetVisible 'görünür
End Sub
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Adnan' Alıntı:
yukarıdaki kod bu işlemi yapar ancak sayfa 0 olamaz. yan kod sayfasında yan taraftan sayfa numarasını görebilirsin. aşağıdaki kodların bir tanesini kullanın.

örnek
Sub g()
Sayfa4.Visible = xlSheetHidden 'gizli
Sayfa4.Visible = xlSheetVeryHidden ' herhangi nedenle açılamayacak kadar güçlü gizli
Sayfa4.Visible = xlSheetVisible 'görünür
End Sub
Genişletmek için tıkla...
Teşekkür ederim.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst