Herzaman Aynı Sayfanın Açılması İçin

Katılım
29 Ocak 2006
Mesajlar
4
Excel Vers. ve Dili
Office 2003 Tr
Excel kitabımın hep aynı sayfadan açılması için aşağıdaki kodu yazdım
fakat bu şekilde çalışıyor fakat kitap açıldıktan sonra ilk makroyu çalıştırdığım zaman sorun çıkıyor. Auto_Close kodunu kullanmadan tek bir kod ile açılabilmesi mümkün mü? TEŞEKKÜRLER



Sub Auto_Close()
Sheets("ANA MENÜ").Select
End Sub
Sub Auto_Open()
Sheets("ANA MENÜ").Select
End Sub
 

Metin Karaağaç

Uzman
Altın Üye
Katılım
25 Aralık 2004
Mesajlar
1,793
Excel Vers. ve Dili
Office 2016 Pro Plus-Türkçe
Altın Üyelik Bitiş Tarihi
10-12-2025
Auto close u kullanmasanız da açılışta "ANA MENÜ" sayfasını seçer zaten.
kapanışta o sayfayı seçmesine gerek yok bence.
Auto close u silin
 
Katılım
17 Ağustos 2004
Mesajlar
222
Excel Vers. ve Dili
Ofiste Excel 2000 Türkçe
Evde Excel 2003 Türkçe
Merhaba

Sub aa()
,
,
,
Kodlarınız
Sheets("ANA MENÜ").Select
End Sub
 
Katılım
29 Ocak 2006
Mesajlar
4
Excel Vers. ve Dili
Office 2003 Tr
Teşekkürler Acemi1 Auto Close yi sildiğim zaman kapanışta hata verip kod sayfası açılıyor du , Şimdi düzeldi. :arkadas:
 

Metin Karaağaç

Uzman
Altın Üye
Katılım
25 Aralık 2004
Mesajlar
1,793
Excel Vers. ve Dili
Office 2016 Pro Plus-Türkçe
Altın Üyelik Bitiş Tarihi
10-12-2025
Yardımcı olduğuma sevindim
 
Katılım
16 Şubat 2011
Mesajlar
13
Excel Vers. ve Dili
office 2007
Merhaba;

Excel kitabımın hangi sayfada kaydedilip kapatılırsa kapatılsın hep aynı sayfada açılmasını istiyorum.
Fakat makro konusunda iyi değilim! Makro kullanmadan da bu işlem yapılabilir mi?
 
İ

İhsan Tank

Misafir
Merhaba;

Excel kitabımın hangi sayfada kaydedilip kapatılırsa kapatılsın hep aynı sayfada açılmasını istiyorum.
Fakat makro konusunda iyi değilim! Makro kullanmadan da bu işlem yapılabilir mi?
makro kullanmadan bu istediğinizi yapmanız biraz zor
benim bildiğim kadarı ile siz her kayıtta istediğiniz sayfada kayıt etmek zorundasınız.
makro kullanmak isterseniz
kitabınızın Makro Bölümünde Bulunan Thisworkbook Bölümüne
Kod:
Private Sub Workbook_Open()
Sheets("[COLOR="Red"]Sayfa1[/COLOR]").Select
End Sub
bu kod'u yazın. kırmızı yeri kendinize göre uyarlayınız
 
Üst