açılış makrosu konusunda yardım

[metinavci23]

merahabalar,

birraz önce ayni soruyu yormuştum ancak neden iptal edildi anlamadım.umarım site yöneticileri bilgi verirler.benim yapmak istediğim excel'de bir dosya açarken bu dosyanın açılışı başka bir dosyadan bir veriye bağlı olsun.aşağıda göreceğiniz üzere birşeyler yaptım ama olmadı.yaptığım çok saçma birşey ise kusura bakmayın.yardımınızı bekliyorum saygılar sunuyorum.

benim yazdığım:

Sub Seri_No()
Dim SeriNo As Long
If C:\Documents and Settings\admin\Belgelerim\acilis.xls.[a1].Value=123456789
Then ThisWorkbook.Close True
ElseIf C:\Documents and Settings\admin\Belgelerim\acilis.xls.[a1].Value<>123456789
Then ThisWorkbook.Close False
End If
End Sub

Sub Autpen()
Call Seri_No
End Sub

 

[Ömer]

Merhaba Say&#305;n metinavci23,

Sorunuz iptal edilmemi&#351;tir, Forum Kurallar&#305;na Uygun bir ba&#351;l&#305;k olamd&#305;&#287;&#305; i&#231;in Forum Kurallar&#305;na Uymayan ba&#351;l&#305;&#287;a ta&#351;&#305;nm&#305;&#351;t&#305;r, bu gibi durumlarda ba&#351;l&#305;&#287;&#305; d&#252;zeltirseniz sorunuz geri ta&#351;&#305;n&#305;r.

Anlaya&#351;&#305;n&#305;z i&#231;in &#351;imdiden te&#351;ekk&#252;r ederim.

&#304;yi &#231;al&#305;&#351;malar..

 

[metinavci23]

cevap

kusura bakmayın ama neresi uygun değil gerçekten anlamadım????şuandakide mi uygun değil?????zannediyorum ki çok basit bir makro sordum???lütfen beni yanlış anlamayın ama gerçekten çok şaşırdım

 

[Ömer]

kusura bakmayın ama neresi uygun değil gerçekten anlamadım????şuandakide mi uygun değil?????zannediyorum ki çok basit bir makro sordum???lütfen beni yanlış anlamayın ama gerçekten çok şaşırdım

Diğer Soru başlığınız,

yapmak istediğim mümkünmü acaba

Bu şekilde de idi sizce uygun bir başlıkmı? Bu konuyla ilgili gerekli açıklama aşağıdaki likte yapılmıştır..


Forum Kurallarina Uymayan Basliklar Hakkinda

 

[metinavci23]

cevap

kusura bakmayın sayın espiyonajl.olan oldu artık.özür dileriz.yalnız makro ile ilgili herhangi birşey yazmamışsınız ) yardımınızı bekliyorum.saygılar sunarım

 

[metinavci23]

yok mu yardım eden????

 

[Korhan Ayhan]

Selamlar,

Kitap1 ve Kitap2 isimli iki excel dosyas&#305; olu&#351;turun. Kitap2 dosyas&#305;n&#305;n A1 h&#252;cresine 123456789 yaz&#305;n kaydedip kapat&#305;n. Kitap1 dosyas&#305;na a&#351;a&#287;&#305;daki kodu uygulay&#305;n. K&#305;rm&#305;z&#305; renkli k&#305;s&#305;mlar&#305; kendi sisteminize g&#246;re ayarlamay&#305; unutmay&#305;n.

Const YOL As String = [COLOR=red]"C:\Documents and Settings\Admin\Desktop\"[/COLOR]
Const DOSYA As String = "Kitap2.xls"
Const SAYFA As String = "Sayfa1"
Dim HEDEF As String
Dim SERİNO_No As String
 
Sub AUTO_OPEN()
    HEDEF = "'" & YOL & "[" & DOSYA & "]" & SAYFA & "'!R"
    SERİNO = ExecuteExcel4Macro(HEDEF & 1 & "C1")
    If SER&#304;NO <> "123456789" Then
    ThisWorkbook.Close False
    End If
End Sub

 

[metinavci23]

cevap

Teşekürler Sn.Korhan Ayhan

Henüz makroyu denemedim ama buradaki uzmanlara gövenim sonsuzdur.Makronun çalışacağından eminim.Yalnız bir sorum olacak.dediğim gibi henüz denemedim ama yine bi sorayım dedim.seri no'yu kitap2\sayfa1\c1 mi yazmamız gerekiyor?tekrar teşekür ederim.ellerinize sağlık

 

[Korhan Ayhan]

Selamlar,

Hay&#305;r A1 h&#252;cresine yazman&#305;z gerekiyor.