DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub auto_open()
Workbooks.Open Filename:="C:\Belgelerim\veri.xls", UpdateLinks:=3
Workbooks("kitap1").Activate
End Sub
sheets("sayfa1").button1.enabled = true