Makro ile güncelleştirme

[Mehmet Sait]

Sizin dosyalarınız sabit olduğu ve farklı klasörlerde olduğu için aşağıdaki gibi yapabilirsiniz.

Sub Test()
    Application.DisplayAlerts = False
    Workbooks.Open(Filename:="\\192.168.1.242\ortak\SEVKİYAT\SEVKİYAT VE STOK RAPORLARI\2022 SEVKİYAT VE STOK RAPORLARI\2022 Günlük Raporlar\2022 STOK SAYIM KOLİ.xlsm", Password:="3300").Close True
   
    'Diğer dosyaları da üst satırdaki gibi tam yolunu yazarak yapabilirsiniz. Dikkat edin tam yolu yazacaksınız yani .xlsm de dahil
    Application.DisplayAlerts = True
End Sub

Gayet güzel çalıştı. Teşekkür ederim.

Sub test()
    Dim Dosya As Object
    Application.DisplayAlerts = False
    For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder("\\192.168.1.242\ortak\SEVKİYAT\SEVKİYAT VE STOK RAPORLARI\2022 SEVKİYAT VE STOK RAPORLARI\2022 Günlük Raporlar\").Files
        If Dosya.Type = "Microsoft Excel Çalışma Sayfası" And Not Dosya.Name = ThisWorkbook.Name Then
            Workbooks.Open(Filename:=Dosya.Path, Password:="3300").Close True
            Workbooks.Open(Filename:="E:\Belgeler\Dosyalar\Günlük Üretim Takibi\2022 Aylık Üretim Takibi Tablosu.xlsm", Password:="2022").Close True
        End If
    Next
    Application.DisplayAlerts = True
End Sub

 

[kardelen79]

Bu formulde hata var abi diğer sayfaya yazdıgım A2:A?? hücrelerinde for döngüsünde mi hata var anlayamadım abi
Sub Test()
Dim Bak As Long
Dim Klasor As String
Klasor = ThisWorkbook.Path & "\BİROL OYAK\"
Application.DisplayAlerts = False
With Worksheets("Sayfa2")
For Bak = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
If Dir(Klasor & .Cells(Bak, "A")) = "" Then
MsgBox "Dosya: " & Klasor & .Cells(Bak, "A") & vbLf & "Bulunamıyor. Dosya adı ve yolunu doğru yazdığınızdan emin olunuz.", vbInformation
Else
Workbooks.Open(Klasor & .Cells(Bak, "A")).Close True
End If
Next
End With
Application.DisplayAlerts = True
End Sub

 

[Muzaffer Ali]

Bu formulde hata var abi diğer sayfaya yazdıgım A2:A?? hücrelerinde for döngüsünde mi hata var anlayamadım abi
Sub Test()
Dim Bak As Long
Dim Klasor As String
Klasor = ThisWorkbook.Path & "\BİROL OYAK\"
Application.DisplayAlerts = False
With Worksheets("Sayfa2")
For Bak = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
If Dir(Klasor & .Cells(Bak, "A")) = "" Then
MsgBox "Dosya: " & Klasor & .Cells(Bak, "A") & vbLf & "Bulunamıyor. Dosya adı ve yolunu doğru yazdığınızdan emin olunuz.", vbInformation
Else
Workbooks.Open(Klasor & .Cells(Bak, "A")).Close True
End If
Next
End With
Application.DisplayAlerts = True
End Sub

33 numaralı mesajda şöyle yazmıştım
"Dosya isimleri Sayfa2 adlı sayfanın A2. satırından itibaren yazıyor olması lazım."
Sizin sayfa adı doğru mu?
A2 den itibaren mi yazılı?

 

[kardelen79]

evet abi

 

[kardelen79]

 

[Muzaffer Ali]

Sayfanın adı da Sayfa2 mi değilse düzeltip deneyin.
Yine de olmazsa dosyanızı paylaşın kontrol edelim.

 

[kardelen79]

for döngüsüyle bir problem olabilir mi abi

 

[kardelen79]

DOSYA

 

[kardelen79]

Sayfa numaraları hepsini denedim abi 1-2-3