Makro ile güncelleştirme

[kardelen79]

ama buraya bilgi sekmesinde değilde seçenekler güvenmerkezi ,güvenmerkezi ayarlarından girdim

 

[Muzaffer Ali]

Bir de ortadaki sor seçeneğini seçerek deneyin.
Eğer yine olmazsa tüm Excel dosyalarını kapatıp yeniden deneyin.

 

[Muzaffer Ali]

Aslında öyle bir ileti çıkmaması lazım. Bende çıkmıyor.
Application.DisplayAlerts = False
Satırı iletileri göstermemesi için yazılıyor.
Bu satırı silmediniz değil mi?

 

[kardelen79]

1 sıradaki
Application.DisplayAlerts =false
ikinci sıradaki
Application.DisplayAlerts = True
bu şekilde abi

 

[kardelen79]

Bir de ortadaki sor seçeneğini seçerek deneyin.
Eğer yine olmazsa tüm Excel dosyalarını kapatıp yeniden deneyin.

ortayada aldım abi yine sordu

 

[kardelen79]

Hatayı bu şekilde açtım

 

[kardelen79]

resimde yüklemiştim ama excelweb resimleri yüklemiyor

 

[kardelen79]

peki abi bu klasördeki hisselerin hepsine baktığı için biraz zaman alıyor ben liste yapsam sadece o liste isimlerine göre o klasördekinlere işlem yapabilir mi

 

[kardelen79]

Merhaba.
Aşağıdaki kod bulunduğu klasördeki tüm excel dosyalarını açıp kaydedip kapatır.

Sub Test()
    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
End Sub

 

[kardelen79]

peki abi bu klasördeki hisselerin hepsine baktığı için biraz zaman alıyor ben liste yapsam sadece o liste isimlerine göre o klasördekinlere işlem yapabilir mi

 

[Muzaffer Ali]

Bir klasör daha ekle bakılmasını istemediğin dosyaları bu klasöre taşı. Bu daha kolay olur.

 

[kardelen79]

abi o çok zor olur ben 2 sayfaya isimlerini yazsam oradaki isimlerine bakabilir mi 2 sayfanın A1 Hücresinden A300 Kadar buraya yazsam

 

[Muzaffer Ali]

Dosya isimleri Sayfa2 adlı sayfanın A2. satırından itibaren yazıyor olması lazım.

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

 

[kardelen79]

bugün üye olmama rağmen bir şey yükleyemiyorum
abi hata olarak
run time error 9
subscript out of range

 

[kardelen79]

hatalı dosya uyarısı

 

[kardelen79]

hata

 

[kardelen79]

ben ekran görüntüsü yükleyemiyorum hata uyarsını göstereceğim ama web sitesinde hatamı var ki

 

[kardelen79]

bu dosya masa üstünde ama dosya bulunamadı hatası veriyor

Dosya isimleri Sayfa2 adlı sayfanın 2. satırından itibaren yazıyor olması lazım.

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

 

[kardelen79]

 

[kardelen79]

bu hatayı alıyorum dosya masa üstünde