Başka bir çalışma kitabını açma

[mkuru28]

Arkadaşlar çalıştığım bir çalışma kitabına ekleyeceğim bir buton ile
D sürücüsü
KURUM klasörü
personel.xlsb dosyası
VERİLER sayfasını açabilecek bir bir kod olabilir mi? Bu kod açık olan çalışma kitabını kaydederek kapattıktan sonra dediğim çalışma kitabının VERİLER sayfasını açsın istiyorum.

 

[Necdet]

Merhaba,
Makro kaydet ile alıp düzenlediğim kodu deneyiniz.

Sub Makro1()

Dim wb As Workbook

Set wb = ThisWorkbook

Workbooks.Open Filename:="D:\KURUM\personel.xlsb"
Sheets("VERİLER").Select
wb.Close savechanges:=False

End Sub

 

[mkuru28]

Hocam çok teşekkür ederim. Kodlar tıkır tıkır çalışıyor. Emeğinize sağlık