Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
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.
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.