Ambiguous name Delected:Auto_Open hatası veriyor?

dilekgüç

Altın Üye
Katılım
23 Mart 2005
Mesajlar
156
Excel Vers. ve Dili
Acemi
Altın Üyelik Bitiş Tarihi
30-09-2025
Ecxel dosyası açılışta hata veriyor.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Dosyanızda iki adet auto_open makrosu bulunuyor, aynı isimli iki makro kullanamazsınız. Ayrıca Sheets("Filateli").Select satırında sayfa adını yanlış yazmışsınız.
 

dilekgüç

Altın Üye
Katılım
23 Mart 2005
Mesajlar
156
Excel Vers. ve Dili
Acemi
Altın Üyelik Bitiş Tarihi
30-09-2025
Sayın leventm bay Sheets("Filateli").Select düzelt sen bile aynı iki adet auto_open Module2 dekini silsem dosya normal açılıyor ama büyük harf küçük harf oygulamsı çalışmıyor.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
İki makroyu tek makro altında birleştirebilirsiniz. Dosyanızdaki iki makroyu silin ve aşağıdakini kullanın.

[vb:1:36348b788a]Sub Auto_Open()
Call SpecialCellMenu
Application.StatusBar = " PUL OFİSİ Â© 2005"
Application.Caption = "PUL OFİSİ"
ActiveWindow.Caption = "www.pularsivi.com"
Sheets("Filateli").Select
Range("A1").Select
Dim kullanici As String
Dim tarih As String
Dim saat As String
tarih = Now()
kullanici = Application.UserName
saat = Format(tarih, "hh:mm:ss")
tarih = Format(tarih, "d mmmm yyyy dddd")
MsgBox " MERHABA " & kullanici & ", HOÞ GELDİNİZ!" & Chr(13) & Chr(13) & _
"Tarih : " & tarih & Chr(13) & Chr(13) _
& "Saat : " & saat & Chr(13) & Chr(13) _
& "PUL OFİSİ İyi Çalışmalar Diler." & Chr(13) & Chr(13), vbApplicationModal, " PUL OFİSİ 2005 ® "
UserForm1.Show
End Sub
[/vb:1:36348b788a]
 

dilekgüç

Altın Üye
Katılım
23 Mart 2005
Mesajlar
156
Excel Vers. ve Dili
Acemi
Altın Üyelik Bitiş Tarihi
30-09-2025
leventm çok tesekkürler iyi çalışmalat dilerim.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Sn dilekgüc

Aslında farkında olmadan daha öncede sorduğunuz bu soruya gerekli cevap verildiği halde bende cevap vermiş oldum. Aşağıdaki başlıkta zaten gerekli cevap size verilmiş, size verilen cevapları dikkatlice okuyarak uygulamanızı ve mükerrer soru sormamanızı rica ediyorum.

http://www.excel.web.tr/viewtopic.php?p=75409#75409
 
Üst