Sheet Gizle

[Kemal Demir]

Site içerisinde tam bir cevap bulamadım ıcın yazdım ..
bu kodlar neden hata verıyor

Çalışması için yapılması gereken duzenleme neler acaba Ekte bir dosya yoluyorum
*********
Sub b_c_gizle()
Sheets("b1,b2,b3,c1,c2,c3,").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("ındex").Select
End Sub
**********
***********
Sub a_c_gizle()
Sheets("a1,a2,a3,c1,c2,c3,").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("ındex").Select
End Sub
************
Sub b_a_gizle()
Sheets("b1,b2,b3,a1,a2,a3,").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("ındex").Select
End Sub
********

yardımcı olursanız sevinirim.

 

[Hüseyin]

Sheets("b1,b2,b3,a1,a2,a3,").Select

yerine

Sheets(Array("b1","b2","b3","a1","a2","a3")).Select
deneyin

 

[Serpily]

Sheets("b1,b2,b3,c1,c2,c3,").Select

Bu işi Excele yaptırdım o şöyle yaptı.

Sheets(Array("b1", "b2")).Select

Sebep bu olabilir mi acaba?

 

[Hüseyin]

dosyayı görmeden yorum yapmamak gerek ama;

Sheets("ındex").Select

ifadesindeki "ındex" bana potansiyel hata kaynağı gibi geldi.
"index" olabilirmi?

 

[Serpily]

Sayın Rakkas,

Makronuz ilk defasında çalışıyor ancak ikinci kez çalıştırınca b1....c3 sayfaları visible olmadığından Select başarısız oluyor.

Bunu önlemek için kodları

If Sheets("b1").Visible = True Then
.
..
.
end if

içine yazabilirsiniz.

Ayrıca gizlenen sayfaları göstermek içinde bir tuş eklemeli ve o tuşa da

Sheets("b1").Visible = True
Sheets("b2").Visible = True
Sheets("b3").Visible = True
Sheets("c1").Visible = True
Sheets("c2").Visible = True
Sheets("c3").Visible = True

gibi bir makro atamalısınız. Umarım olmuşdur.

 

[Kemal Demir]

Cevaplar için teşekkur ederim cok sağolun

ama ben yapamadım ve olmadı o yuzden dosyayı yoluyorum

Yaparsanız sevinirim

Kolay Gelsin

 

[Kemal Demir]

Dosyayı koymayı unuttum
Sımdı eklıyorum

 

[Serpily]

Bir bakın.

 

[Kemal Demir]

teşekkurler