Klasördeki resim isimlerini karşılaştırma

[hasnhasan]

Ekteki gibi exel listem var benim yapmak istediğim
Pers. no ile c:/resim klasöründe aynı olanları Pers.Resim tarafında listelemek lütfen ayrımcı olun 80000 kaydım var

 

[Ömer]

Merhaba,

Aynı olandan kastınız, B sütunundaki isimler C:/resim klasöründe varsa B deki ismi A ya yazmak mı?

.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub resimkontrol()
klasor = "c:\resim\"
Set s1 = Sheets("sheet1")
Set nesne = CreateObject("Scripting.FileSystemObject")
say = WorksheetFunction.CountA(s1.[b:b])
For a = 2 To say
If nesne.FileExists(klasor & s1.Cells(a, "b") & ".jpg") = True Then
s1.Cells(a, "a") = s1.Cells(a, "b") & ".jpg"
End If
Next
End Sub

 

[hasnhasan]

Levent Menteşoğlu Teşekkür Ederim Tam istediğim gibi oldu, fakat benim bir sorum daha olacak.
A hücresine resim yolu olarak atadı.Ben Bunu Hücrede Resim olarak nasıl göstere bilirim ?
Böyle Bir imkanım varmıdır ?

 

[Levent Menteşoğlu]

Levent Menteşoğlu Teşekkür Ederim Tam istediğim gibi oldu, fakat benim bir sorum daha olacak.
A hücresine resim yolu olarak atadı.Ben Bunu Hücrede Resim olarak nasıl göstere bilirim ?
Böyle Bir imkanım varmıdır ?

Hücre içine resim olarak direk alamazsınız. Bunun için bir kaç yöntem uygulanabilir. bunlar;

1-Hücre adresine resim nesnesi olarak ekleyebilirsiniz.
2-Hücreye eklenecek bir açıklama içine ekleyebilirsiniz.
3-Hücre içine yerleştirilecek bir image nesnesine çağırabilirsiniz.

Ancak 80.000 kayıt için sanıyorum bu olanaksız bir uygulamadır. Ben sayfa üzerine çok sayıda resim eklenmesini hiç bir zaman önermem. Dosyanızın boyutunu aşırı şişirecektir.

 

[hasnhasan]

Anladım Yardımlarınız ve Bilgilendirdiğiniz için çok teşekkür ederim..