kardelen79
Altın Üye
- Katılım
- 18 Mayıs 2018
- Mesajlar
- 492
- Excel Vers. ve Dili
- 2007
- Altın Üyelik Bitiş Tarihi
- 11-06-2025
Arkadaşlar bu makro ile dosyada bulunan tüm kitapları açıp kaydedip kapatıyor 370 tane felan var bu kitaplardan hepside aynı ama bu kitapları çoğalttığım 1 hücresinde formul eksik yazılmış hepsine tek tek açıp kopyala yapıştır yapıyorum ve bu kitaplara bazen değişiklik yapıyorum herseferinde kitapları açıp kaydediyorum bu formul kitapları açınca benim istediğim formulü yapıştırıp istediğim hücreye ondan sonra kaydedip kapatabilir mi ? örneğin Her kitaba J5 HÜCRESİNE =(J5+P11+O8-Q11)-(J11+K11) bu formulü eklemek istiyorum
Sub Test2()
Application.ScreenUpdating = False
Dim Dosya As Object
Application.DisplayAlerts = False
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path & "\BİROL OYAK").Files
If Dosya.Type = "Microsoft Excel Çalışma Sayfası" And Not Dosya.Name = ThisWorkbook.Name Then
Workbooks.Open(Dosya.Path).Close True
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Sub Test2()
Application.ScreenUpdating = False
Dim Dosya As Object
Application.DisplayAlerts = False
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path & "\BİROL OYAK").Files
If Dosya.Type = "Microsoft Excel Çalışma Sayfası" And Not Dosya.Name = ThisWorkbook.Name Then
Workbooks.Open(Dosya.Path).Close True
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub