Çözüldü Sayfa Gizlenmiyor

[derbedero]

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?

 

[derbedero]

sorun sadece gizlemek istedgim sayfalar neden gizlenmedigi o sorunh cozecek biri yok mu ?

 

[Adnan]

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

 

[derbedero]

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

tesekkurler deneyecem

 

[Adnan]

düzeltme
If ws.Name <> "Uyari" and ws.Name "and yazan yeri "or " olarak yazın

 

[derbedero]

hata aliyorum olmadi

 

[Adnan]

hangi sayfayı gizlemek istiyorsunuz

 

[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

 

[derbedero]

düzeltme
If ws.Name <> "Uyari" and ws.Name "and yazan yeri "or " olarak yazın

en son gonderdigin ile oldu ornegim sayfa 2 gizledim ama bu sefer uyari sayfasida gorunur oldu ve 15 sayfa var mesela hepsi icin tek tek mi yapmaliyim?

 

[derbedero]

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

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

 

[derbedero]

baskan son bisey rica edicem 7-8 sayfa var hepsini nasil boyle yapabilirim