Dim ws As Worksheet, LastRow As Long, i As Long
Set ws = ThisWorkbook.Sheets("Sayfa1") ' Çalışmak istediğiniz sayfa adı
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' Son kullanılan satır
For i = 2 To LastRow ' Başlıkların olduğu ilk satırı atlar
belgeYolu = ws.Cells(i, 3).Value
If Len(belgeYolu) > 0 Then ' Belge sütunu boş değilse
On Error Resume Next
Open belgeYolu For Input As #1 ' Belgeyi açmaya çalış
If Err.Number = 0 Then
ws.Cells(i, 4).Value = "Var" ' Belge Durumu sütununa durum kaydı işle
Close #1
Else
ws.Cells(i, 4).Value = "Yok"
End If
On Error GoTo 0
Else
ws.Cells(i, 4).Value = "Yok"
End If
Next i
. Bu kod çalışmanızda kaç satır varsa hepsinde C sütunundaki köprüde yer alan dosyayı okur, açılıyor mu kontrol eder ve dosya mevcut olup açılıyorsa durum sütununa var aksi halinde yok yazar.
Excel sayfanıza bir buton ekleyin ve tıklandığında olayına aşağıdaki kodu girin