İlk Açılışta Hep aynı Sayfa Gelsin..!

[DOLAR]

Ýlk Açılışta Hep aynı Sayfa Gelsin..!

Selam;

Excelde yaptığım tabloda 50 kadar sayfa var. İlk sayfada ise bu sayfalara ait toplamlar ve sayfa isimlerine köprüler var. Bu dosyayı açtığımda her zaman en baştaki toplamlar isimli sayfanın gelmesi mümkünmü. Ben diğer sayfalardan birine veri girişi yapıp kaydedip kapattığımda doğal olarak açılışta o sayfa geliyor.
Tabi bu işlemin Fonsiyon & İşlev yardımıyla yapılması önemli.

İyi çalışmalar..

 

[Haluk]

Fonksiyon ve / veya işlevler ile mümkün değildir.

VBA gerekir.

 

[DOLAR]

Çok Teşekkürler..

 

[onursaltastan]

Sn. Raider;

Peki bunun VBA kodları nasıldır?

 

[Levent Menteşoğlu]

Aşağıdaki kodda sayfa ismini kendinize göre değiştirin.

[vb:1:cbd0014b2f]sub auto_open()
sheets("sayfa1").select
end sub[/vb:1:cbd0014b2f]

 

[murat kalyon]

Sayfa 1 de C15 hücresi seçili olarak açmayı nasıl sağlayabiliriz.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:c35c3c5f38]Sub auto_open()
sheets("sayfa1").[c15].select
End Sub [/vb:1:c35c3c5f38]

 

[murat kalyon]

Saygılarımı sunarım. Teşekkürler

 

[GursoyC]

merhabalar, konuyu hortlatmış gibi olacağım ama bende bu yöntemi uyguladım. ancak dosyayı açarken hata alıyorum. debug'a tıkladığımda sheets ile başlayan satırda bir hata olduğunu gösteriyor. yardımcı olabilir misiniz?

 

[Ömer]

Merhaba,

Kodları Insert menüsünden Module ekleyip bu bölümü kopyalamanız gerekir. Ayrıca yazdığınız sayfa adı doğru mu?

Sayfa1 A5 hücresine gider.

Sub Auto_Open()
    Sheets("[COLOR="Red"]Sayfa1[/COLOR]").[[COLOR="red"]A5[/COLOR]].Select
End Sub

.

 

[GursoyC]

aynen dediğiniz şekilde yapıyorum. dosyayı açtığımda runtime error 1004, select method of range class failed yazıyor.

hatta sayfa ismi hatası yapmayayım diye sayfanın ismini bile kopyala-yapıştır yaptım

 

[Emir Hüseyin Çoban]

aynen dediğiniz şekilde yapıyorum. dosyayı açtığımda runtime error 1004, select method of range class failed yazıyor.

hatta sayfa ismi hatası yapmayayım diye sayfanın ismini bile kopyala-yapıştır yaptım

. . .

Sub Auto_Open()
    Sheets("Sayfa1").Select
    Sheets("Sayfa1").[A5].Select
End Sub

. . .

 

[GursoyC]

bu kodlarla oldu, yardımlarınız için çok teşekkür ederim ömer hocam ve hüseyin hocam.
bu arada yabancı forumlarda aşağıdaki kod veriliyor. ancak bunu da denedim bu da işe yaramıyor. belki sonradan bir arkadaşın işine yarar diye eklemek istedim.

tekrar teşekkürler.

Private Sub Workbook_Open()
Worksheets("StartSheet").Activate
End Sub

 

[Ömer]

Bu kodu BuÇalışmakitabı(ThisWorkBook) bölümüne kopyalamanız gerekir.

 

[GursoyC]

yeni başladım makrolara ve VBA'lara. öğrenmeye çalışıyorum.
teşekkür ederim.