İstenilen sayfada açılması

[manisali50]

Arkadaşlar merhaba.
Sub Autpen()
Worksheets("Çizelge giriş ekranı").Activate
End Sub

kodları ile hangi sayfada kapatırsam kapatayım excel benim belirttiğim sayfada açılıyordu.
Başka yaptığım bir programda bu kodu yapıştırdım fakat;
"Ambiguous Name Detected : Autpen" uyarısı çıkıyor.. Tamam deyince sayfa benim belirttiği sayfadan açılmıyor..Nerde hata yapıyorum acaba?

 

[security]

Arkadaşlar merhaba.
Sub Autpen()
Worksheets("Çizelge giriş ekranı").Activate
End Sub

kodları ile hangi sayfada kapatırsam kapatayım excel benim belirttiğim sayfada açılıyordu.
Başka yaptığım bir programda bu kodu yapıştırdım fakat;
"Ambiguous Name Detected : Autpen" uyarısı çıkıyor.. Tamam deyince sayfa benim belirttiği sayfadan açılmıyor..Nerde hata yapıyorum acaba?

Sub auto_open()
Sheets("Çizelge giriş ekranı").Select
End Sub

kodunu ekleyin...

 

[manisali50]

Üstad..Verdiğin kod sorunu gidermedi..

 

[security]

hata nedir ?

 

[manisali50]

1. mesajımda hata yazıyor..

 

[İhsan Tank]

1. mesajımda hata yazıyor..

syn : manisali50

şu dosyanızı bir ekleseniz

 

[Mahir64]

Merhaba

Yeni Oluşturduğunuz çalışma kitabında "Çizelge giriş ekranı" sayfası mevcut mu?

 

[manisali50]

Hocam..Dosya eklemeye gerek olmadığı için eklemedim..Bir çok çalışma kitabım aynı kodla açılıyor. Sadece bir tanesinde 1. mesajımda belirttiğim hata veriyor..Aynı çalışma kitabının içinde birkaç tane modül var..Diğer başka modülde Sub Autpen yordamı mevcut..Ondan kaynaklanıyor sanırım..Eğer ondansa çözümü nedir?

 

[manisali50]

Black Lord arkadaşım..Dediğiniz sayfa var tabii ki..

 

[İhsan Tank]

Hocam..Dosya eklemeye gerek olmadığı için eklemedim..Bir çok çalışma kitabım aynı kodla açılıyor. Sadece bir tanesinde 1. mesajımda belirttiğim hata veriyor..Aynı çalışma kitabının içinde birkaç tane modül var..Diğer başka modülde Sub Autpen yordamı mevcut..Ondan kaynaklanıyor sanırım..Eğer ondansa çözümü nedir?

kitabın
thisworkbook bölümünde workbook_open presedörüne kod yapıştırın
kodlarınız çakışıyor

 

[Mahir64]

Merhaba

Sorun kaynağı birden fazla open olması

Çözüm: açılışta yapmasını istediklerinizi tek başlıkta toplayın

Sub auto_open()
1
2
3
end sub

 

[İhsan Tank]

Hocam..Dosya eklemeye gerek olmadığı için eklemedim..Bir çok çalışma kitabım aynı kodla açılıyor. Sadece bir tanesinde 1. mesajımda belirttiğim hata veriyor..Aynı çalışma kitabının içinde birkaç tane modül var..Diğer başka modülde Sub Autpen yordamı mevcut..Ondan kaynaklanıyor sanırım..Eğer ondansa çözümü nedir?

bu koduu kitabınızın thisworkbook bölümüne yapıştırın bakalım olacak mı_?

Private Sub Workbook_Open()
Worksheets("Çizelge giriş ekranı").Activate
End Sub

 

[manisali50]

Arkadaşlar şaşılacak birşey ki hiçbiri faydalı olmadı..

 

[manisali50]

Arkadaşlar sorunu hallettim..Bütün Sub Autpenları tek yorndam altına topladım.sorun halloldu..İlgi ve emeğinize teşekkürler

 

[İhsan Tank]

Arkadaşlar sorunu hallettim..Bütün Sub Autpenları tek yorndam altına topladım.sorun halloldu..İlgi ve emeğinize teşekkürler

syn : manisali50
13. mesajdaki kod'u denediniz mi_?