• 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ü Sayfa Gizlenmiyor

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.
D

derbedero

Yeni Üye
Katılım
3 Ocak 2023
Mesajlar
8
Aldığı beğeni
0
Excel V
Office 2010 TR
Konu Sahibi
arkadaslar suskun hocanin paylastigi bi excel var bu isime yaradi ama bi sorun var cözemiyorum bu excelde hersey tamam ama sadece sayfalari gizledigimde kaydet deyip ciktgim halde..exceli actgimda sayfalar gizlenmiyor sadece onun gizlemis oldgu sayfalar gizli gerisi hep aciliyor bunu bana duzeltebilecek biri var mi?
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
Adnan
ben de yaptım kodlar aşağıda ama hata yok
For Each ws In Worksheets
If ws.Name <> "Uyari" Or ws.Name <> "Sayfa2" Then ws.Visible = xlSheetVisible
Next
Worksheets("Uyari").Visible = xlVeryHidden
Worksheets("Sayfa2").Visible = xlVeryHidden
Tarihe göre sırala Oylara göre sırala
For Each ws In Worksheets
If ws.Name <> "Uyari" Then ws.Visible = xlSheetVisible
Next
Worksheets("Uyari").Visible = xlVeryHidden

ActiveWindow.DisplayGridlines = True

auto open içindeki kodu bulun " If ws.Name <> "Uyari" Then ws.Visible = xlSheetVisible" bu satırı
If ws.Name <> "Uyari" and ws.Name <> "İSTEDİĞİNİZ SAYFA ADI" Then ws.Visible = xlSheetVisible şekline getirin
bir de aşağıdaki satırı Worksheets("Uyari").Visible = xlVeryHidden satırının altına ekleyin
Worksheets("İSTEDİĞİNİZ SAYFA ADI").Visible = xlVeryHidden
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
For Each ws In Worksheets
If ws.Name <> "Uyari" Then ws.Visible = xlSheetVisible
Next
Worksheets("Uyari").Visible = xlVeryHidden

ActiveWindow.DisplayGridlines = True

auto open içindeki kodu bulun " If ws.Name <> "Uyari" Then ws.Visible = xlSheetVisible" bu satırı
If ws.Name <> "Uyari" and ws.Name <> "İSTEDİĞİNİZ SAYFA ADI" Then ws.Visible = xlSheetVisible şekline getirin
bir de aşağıdaki satırı Worksheets("Uyari").Visible = xlVeryHidden satırının altına ekleyin
Worksheets("İSTEDİĞİNİZ SAYFA ADI").Visible = xlVeryHidden
Genişletmek için tıkla...
tesekkurler deneyecem
 
Olumlu oy 0 Negatif oyla
düzeltme
If ws.Name <> "Uyari" and ws.Name "and yazan yeri "or " olarak yazın
 
Olumlu oy 0 Negatif oyla
hangi sayfayı gizlemek istiyorsunuz
 
Olumlu oy 0 Negatif oyla
ben de yaptım kodlar aşağıda ama hata yok
For Each ws In Worksheets
If ws.Name <> "Uyari" Or ws.Name <> "Sayfa2" Then ws.Visible = xlSheetVisible
Next
Worksheets("Uyari").Visible = xlVeryHidden
Worksheets("Sayfa2").Visible = xlVeryHidden
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Adnan' Alıntı:
ben de yaptım kodlar aşağıda ama hata yok
For Each ws In Worksheets
If ws.Name <> "Uyari" Or ws.Name <> "Sayfa2" Then ws.Visible = xlSheetVisible
Next
Worksheets("Uyari").Visible = xlVeryHidden
Worksheets("Sayfa2").Visible = xlVeryHidden
Genişletmek için tıkla...
baskan cok sağol ben yanlis anlamisim
uyari silip icine sayfa 2 yaptigimda hata aldim suan gonderdgin sekilde sorun yok oldu cok sağol başkan
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst