• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Ambiguous name Delected:Auto_Open hatası veriyor?

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.
 
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.
 
İ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]
 
leventm çok tesekkürler iyi çalışmalat dilerim.
 
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
 
Geri
Üst