- Katılım
- 21 Ocak 2008
- Mesajlar
- 312
- Excel Vers. ve Dili
- Excel 2013 / Türkçe
Yapmaya çalıştığım işi basitçe anlatayım;
10 sekmeden oluşan bir tablonun sekmelerine bir "Ana Sayfa"dan makrolarla ulaşıp, o sekmede işim bitince yine bir makro butonuyla "Ana Sayfa"ya geri dönüş yapıyorum.
"Ana Sayfa"da iken diğer sekmelerin tamamı "Gizli" modda.
Makro Butonuyla ulaştığım sekmeye geçtiğimde de aynı şekilde "Ana Sayfa"yı "gizli"yorum.
Sıkıntı şurada;
Tüm sekmelerden "Ana Sayfa"ya dönüş butonuna "Aynı" makroyu kullanmak istiyorum. Her bir sekmeden "Ana Sayfa"ya dönüş için ayrı bir mokro yazmak istemiyorum.
Böyle olunca da şunu yaptırabilmem lazım : x sekmesinde iken, "Ana Sayfaya Don" butonuna tıkladığımda "Ana Sayfa"yı "Görünür" yapıp,
"Ana Sayfa"nın hemen yanında bulunan sekmeyi (sekme ismi her ne olursa olsun) "Gizle"meli...
Kullandığım kod aşağıda. Kırmızı ile göstermiş olduğum satırlara nasıl bir müdahalede bulunmalıyım ki; isimden bağımsız bir şekilde, "Ana Sayfa"ya geçtikten sonra yanda duran diğer sekmeyi "Gizle"sin ?
Sub Ana_Sayfaya_Don()
Sheets("Musteri Kayit").Select
Sheets("Ana Sayfa").Visible = True
Sheets("Musteri Kayit").Select
ActiveWindow.SelectedSheets.Visible = False
Range("A1").Select
End Sub
10 sekmeden oluşan bir tablonun sekmelerine bir "Ana Sayfa"dan makrolarla ulaşıp, o sekmede işim bitince yine bir makro butonuyla "Ana Sayfa"ya geri dönüş yapıyorum.
"Ana Sayfa"da iken diğer sekmelerin tamamı "Gizli" modda.
Makro Butonuyla ulaştığım sekmeye geçtiğimde de aynı şekilde "Ana Sayfa"yı "gizli"yorum.
Sıkıntı şurada;
Tüm sekmelerden "Ana Sayfa"ya dönüş butonuna "Aynı" makroyu kullanmak istiyorum. Her bir sekmeden "Ana Sayfa"ya dönüş için ayrı bir mokro yazmak istemiyorum.
Böyle olunca da şunu yaptırabilmem lazım : x sekmesinde iken, "Ana Sayfaya Don" butonuna tıkladığımda "Ana Sayfa"yı "Görünür" yapıp,
"Ana Sayfa"nın hemen yanında bulunan sekmeyi (sekme ismi her ne olursa olsun) "Gizle"meli...
Kullandığım kod aşağıda. Kırmızı ile göstermiş olduğum satırlara nasıl bir müdahalede bulunmalıyım ki; isimden bağımsız bir şekilde, "Ana Sayfa"ya geçtikten sonra yanda duran diğer sekmeyi "Gizle"sin ?
Sub Ana_Sayfaya_Don()
Sheets("Musteri Kayit").Select
Sheets("Ana Sayfa").Visible = True
Sheets("Musteri Kayit").Select
ActiveWindow.SelectedSheets.Visible = False
Range("A1").Select
End Sub