Eğer Çalışma Kitabı açık değilse aç

[DeliBalta58]

Userforma bir buton koyup aynı klasör içindeki nakit.xls adlı çalışma kitabı
eğer açıksa aktif hale gelecek açık değilse nakit.xls adlı kitap açılacak.
Kodları hususunda yardımcı olabilirmisiniz.

 

[DeliBalta58]

Bu konuda yardımcı olabilecek yokmu acaba?

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
Workbooks.Open Filename:=ActiveWorkbook.Path & "\nakit.xls"
End Sub

 

[DeliBalta58]

sayın uzmanım. Eğer Kitap açıksa aktif kitap yapacak.
Eğer Açık değilse açacak

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
On Error GoTo git
Workbooks("nakit.xls").Activate
git:
Workbooks.Open Filename:=ActiveWorkbook.Path & "\nakit.xls"
End Sub

 

[Orion1]

Aşağıdaki kodlar işinizi görür.

Workbooks.Open (ThisWorkbook.Path & "\Nakit.xls")
If ActiveWorkbook.ReadOnly = True Then ActiveWorkbook.Close
Workbooks("Nakit.xls").Activate

 

[DeliBalta58]

Teşekkürler.Elinize Sağlık