kardelen79
Altın Üye
- Katılım
- 18 Mayıs 2018
- Mesajlar
- 503
- Excel Vers. ve Dili
- 2007
- Altın Üyelik Bitiş Tarihi
- 11-06-2025
bu şekilde makro yazdım ekcel sayfasını açıp kaydedip aynı anda kapattırıyorum .burada her seferinde güncelleştirme yapılması için uyarı çıkıyor onu kendi okeyleyip excel sayfasını kapatmasını istiyorum birde bu sayfalardan 300 tane var hepsini açıp verileri gelmesini saglayıp kaydedip kapatma işlemini yapmak istiyorum .Her sayfanın yolunu yazmam mı gerekir Şimdiden teşekkür ederim
Sub dosyaac()
On Error GoTo hatakontrol
Dim w1 As Workbook
Dim w2 As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set w1 = Workbooks.Open(ThisWorkbook.Path & "\BİROL OYAK\ADESE.xlsx")
'MsgBox Sheets(1).Range("a1").Value
w1.Save
w1.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Exit Sub
hatakontrol:
MsgBox Err.Description
Resume son
son:
End Sub
Sub dosyaac()
On Error GoTo hatakontrol
Dim w1 As Workbook
Dim w2 As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set w1 = Workbooks.Open(ThisWorkbook.Path & "\BİROL OYAK\ADESE.xlsx")
'MsgBox Sheets(1).Range("a1").Value
w1.Save
w1.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Exit Sub
hatakontrol:
MsgBox Err.Description
Resume son
son:
End Sub