Soru Hücrede Yazılı Uzantıların Dosya Kontrolü

[bulentkars]

Arkadaşlar Merhaba,

Ekte ki Dosyada örnek ile anlattım, Yapmak istedeğim H:I satırlarında dosya uzantıları var, bu dosya uzantılarını ilgili adreste kontrol edecek, eksik dosya varsa a hücresine Gönderme Yazdırmak istiyorum, Bu konuda yardımcı olabilirseniz sevinirim. şimdiden Teşekkürler..

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub File_Checked()
    Dim Rng As Range, X As Long, Y As Long, Last_Row As Long
    
    Range("A6:A" & Rows.Count).ClearContents
    
    X = Cells(Rows.Count, "H").End(3).Row
    Y = Cells(Rows.Count, "I").End(3).Row
    Last_Row = WorksheetFunction.Max(X, Y)
    
    If Last_Row < 6 Then
        MsgBox "Kontrol edilecek dosya bulunamadı!", vbExclamation
        Exit Sub
    End If
    
    For Each Rng In Range("H6:I" & Last_Row)
        If Rng.Value <> "" Then
            If Dir(Rng.Value) = "" Then Cells(Rng.Row, "A") = "Gönderme"
        End If
    Next
    
    MsgBox "Dosya kontrolü tamamlanmıştır.", vbInformation
End Sub

 

[bulentkars]

Korhan Bey,

Çok çok teşekkür ediyorum, Elinize emeğinize sağlık tam istediğim gibi olmuş..
Bu vesile ile Sizin ve Ailenizin Kurban Bayramınızı en Kalbi Duygularımla Kutluyorum...

 

[Korhan Ayhan]

Sizlere de iyi bayramlar dilerim.