Hep aynı sayfada açılsın

[ToZ_KaLDiRaN]

Excel çalışmasını açtığımda hep sayfa1 ' de açılmasını istiyorum. Birde mümkünse sayfalar arasındaki geçişlerde awçili hücrenin hep A1 hücresinde olmasını istiyorum ne yapmam gerekli

Yardımlarınız için şimdiden teşekkürler. Kolay gelsin..

 

[Orion1]

AutoOpen Prosedürünüz yoksa aşğıdaki prosedürü boş bir modüle kopyalayınız.
Varsa sadece içindeki kodu prosedürün içine kopyalayınız.
İlk sayfada açılacaktır.

Sub Auto_Open()
Sheets(1).Select
End Sub

 

[leumruk]

Private Sub Worksheet_Activate()
[A1].Select
End Sub

Kodu sayfaların kod bölümüne kopyalayınız. Sayfalar A1'de açılacaktır.

 

[Orion1]

Devamlı Sayfaların A1 hücresinde açılması için çalışma sayfasının thisworkbook modülüne aşağıdaki kodu yapıştırın.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("A1").Select
End Sub

 

[ToZ_KaLDiRaN]

Sayın leumruk & Sayın Evren bey Yardımlarınız için Teşekkür ederim...

 

[Orion1]

Sayın leumruk & Sayın Evren bey Yardımlarınız için Teşekkür ederim...

Rica ederim.
İyi çalışmalar.

 

[b_balban]

Merhaba,

Exceli hangi sayfada kaydedersem edeyim hep ANASAYFA isimli sayfada açılmasını istiyorum, sizin söyledikleriniz gibi yaptım ama yine kaydettğim yerden açılıyor.Userformun açılması için auto_open modülüm var kodu onun içine kopyaladım yine olmadı.Kullandığım kod;

Sub Autpen()
UserForm1.Show
Sheets("ANASAYFA").Select
End Sub

ayrı bir auto open modülü oluşturamıyorum ayrıca.

yardımlarınızı bekliyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub Auto_Open()
    [COLOR=red]Sheets("ANASAYFA").Select[/COLOR]
    UserForm1.Show
End Sub

 

[teknadir]

Dosyanın her açılışta İletişim kutusunu çalıştırarak açılmasını nasıl sağlarız?

 

[İhsan Tank]

Dosyanın her açılışta İletişim kutusunu çalıştırarak açılmasını nasıl sağlarız?

biraz daha açıklar mısınız tam anlamadım

 

[teknadir]

Çalışmamda bir MS 5.0 İletişim Kutusu sayfası oluşturdum, düzenledim. İletişim Kutusu sayfasında boş bir yerde sağ tık yapıp "iletişim kutusunu çalıştır'a bastığımızda açılan şekliyle açılmasını diğer sayfaların gizlenmesini istiyorum.

 

[U2ANGEL]

Çok teşekkür ederim. Çok işime yaradı.

 

[Mehmet Sait]

AutoOpen Prosedürünüz yoksa aşğıdaki prosedürü boş bir modüle kopyalayınız.
Varsa sadece içindeki kodu prosedürün içine kopyalayınız.
İlk sayfada açılacaktır.

Sub Auto_Open()
Sheets(1).Select
End Sub

Merhaba,

Defalarca denememe rağmen açılışta bu kod çalışmadı. Sorun ne olabilir?

 

[EmrExcel16]

Merhaba , kodu nereye yapiştiriyorsunuz.

 

[Mehmet Sait]

Merhaba , kodu nereye yapiştiriyorsunuz.

Merhaba Hocam, bu çalışma kitabına yapıştırıyordum. Ama sonra yine buraya baktığımda mödül yazılmış, farketmemişim. Modüle ekledim sorun düzeldi.
Teşekkür ederim.

 

[EmrExcel16]

Rica ederim