Dizin/Dosya kontrol programı

[turkuaz81]

Merhabalar;

A kolonunda dosya yollarım var. Yaklaşık 8000 link var. Her hücredeki dosya yolunda herhangi bir dosya var mı diye kontrol etmek istiyorum. Alttaki haliyle kod çalışıyor ama bunun döngüsel olarak yapılması gerekiyor.

Ben makroyu çalıştırdığımda a1 den başlayıp bu sorgulamayı yapıp karşılığındaki b hücresine var/yok diye yazdırmak istiyorum. Nasıl yapabilirim?

Option Explicit
 
Sub PROGRAM_KONTROL()
   If Dir([A1]) = "" Then
              [B1] = "yok"
        Exit Sub
    Else
             [B1] = "Var"
    End If
End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub PROGRAM_KONTROL()
 
    Dim i As Long
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Dir(Cells(i, "A")) = "" Then
            Cells(i, "B") = "yok"
        Else
            Cells(i, "B") = "Var"
        End If
    Next i
    
End Sub

.

 

[turkuaz81]

Çok teşekkürler. Harika oldu.