DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Workbook_Open()
Workbooks.Open ThisWorkbook.Path & Application.PathSeparator & "bbb.XLS"
End Sub
*********************************************Merhaba,
aaa.xls dosyasının ThisWorkbook'un kod bölümüne aşağıdaki kodları yapıştırıp, deneyiniz.
Not : Dosyalar aynı dizin içinde olmalıdır. Yada ikinci dosyanın dosya yolunu belirtmelisiniz.
Kod:Private Sub Workbook_Open() Workbooks.Open ThisWorkbook.Path & Application.PathSeparator & "bbb.XLS" End Sub
Merhaba,
Kodları Sayfa1'in kod bölümüne kopyalamışsınız. Türkçe olduğu için bende karıştırmışım ThisWorkbook (BuÇalışmaKitabı) içine kopyalamanız gerekir.
Bu işlem makrosuz yapılmaz bildiğim kadarıyla.
Ancak aaa dosyasından bbb dosyasına köprü kurup bu köprüye tıklandığında ikinci dosya açılır.