A sutununda alt alta tckimlik numaralarıyla dosya içinde resmi kıyaslama hk.

[balanar]

Merhaba,


Örnek bir excel dosyası ekledim. Amacım A sutununda olup resim dosyalarında olmayan tckimlik numaralarını ayıklamak. Eklediğimde exceldeki gibi.. Bu otomatik yapılabilir mi

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Sub dosya_varmı()
yol = ThisWorkbook.Path & "\"
Set dosyaa = CreateObject("Scripting.FileSystemObject")
Range("c2:c65536").ClearContents
sat = 2
For i = 2 To Range("A65536").End(xlUp).Row
aranan = dosyaa.FileExists(yol & Cells(i, "a") & ".jpg")
If aranan = False Then
Cells(sat, "c") = Cells(i, "a")
sat = sat + 1
End If
Next i
End Sub

Kodlarını ekleyip deneyin.
İyi çalışmalar.

 

[balanar]

çok teşekkür ederim hocam