- Katılım
- 27 Haziran 2022
- Mesajlar
- 2
- Excel Vers. ve Dili
- excel vba
- Altın Üyelik Bitiş Tarihi
- 05-08-2024
Merhaba.
Bir klasör içinde birtane ana dosya var. Bu dosyada tüm makrolar kayıtlı.
Klasör içindeki diğer dosyaları açıp, ana dosyadaki B makrosu sırasıyla herbirinin A1 hücresine işlem tamam yazıyor.
Ancak aşağıdaki kodda ana dosyadaki B makrosu yanlış bir şekilde ana dosyada çalışıyor. Diğer dosyalar üzerinde çalışması gerekiyordu.
Yardımınızı rica ediyorm. Okuduğunuz için teşekkür ederim.
Bir klasör içinde birtane ana dosya var. Bu dosyada tüm makrolar kayıtlı.
Klasör içindeki diğer dosyaları açıp, ana dosyadaki B makrosu sırasıyla herbirinin A1 hücresine işlem tamam yazıyor.
Ancak aşağıdaki kodda ana dosyadaki B makrosu yanlış bir şekilde ana dosyada çalışıyor. Diğer dosyalar üzerinde çalışması gerekiyordu.
Yardımınızı rica ediyorm. Okuduğunuz için teşekkür ederim.
Kod:
<code>
Sub A()
Dim currentWb As Workbook
Dim otherWb As Workbook
Dim folderPath As String
Dim otherFilePath As String
Set currentWb = ThisWorkbook
folderPath = currentWb.Path
Dim fileName As String
fileName = Dir(folderPath & "\*.xlsx")
Do While fileName <> ""
Dim currentFileName As String
currentFileName = currentWb.Name
If fileName <> currentFileName Then
otherFilePath = folderPath & "\" & fileName
Set otherWb = Workbooks.Open(otherFilePath)
otherWb.Activate
Application.Run "'" & currentWb.Name & "'!MacroB"
' otherWb.Close SaveChanges:=True
End If
fileName = Dir
Loop
currentWb.Activate
End Sub<code>