Klasör İçindeki Dosya İsimlerine Var Yazma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

tahsinanarat

Kullanıcı
Katılım
13 May 2019
Mesajlar
303
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(35 satır)

Yukarıda Sn. Halit3 hocama ait kodlar ile D sutununda yazılı TC kimlik numaralarını hızlı bir şekilde Klasör içindeki eşleşen TC lerin P sutunu karşılığına VAR yok ise YOK yazmaktadır.

Buraya kadar herhangi bir sıkıntı yok. Ancak Ben Klasör içinde uzun olan dosya isminde eğer TC numarası geçiyor ise bu durumda da bulup var ise VAR yok ise YOK yazması için kodda nasıl bir değişiklik yapmalıyız. Yardımcı olacak arkadaşlarıma şimdiden teşekkür ediyorum.
 
Tüm Sayfaları Tek Seferde Kilitleme ve Açma
Tüm Sayfaları Tek Seferde Kilitleme ve Açma
Vba kod revize talebi

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Merhaba,
If fs.FileExists(yol & "\" & aranan & "." & uzanti) = True Then satırını
If Dir(yol & "\*" & aranan & "*." & uzanti) <> "" Then satırıyla değiştirip deneyiniz.
 
Oyla 0 Olumsuz oyla
Sn. @ÖmerBey hocam, dediğiniz gibi yaptım, ancak bu bire bir eşleşenleri getiriyor, benim istediğim dosya isminin içinde TC numarası geçiyorsa getirsin istiyorum.
Bu şekilde olmazsa en azından ilk 11 karakteri eşleyenleri getirse de olur.
 
Oyla 0 Olumsuz oyla
Dosya uzantısıyla alakalı bir problem olabilir mi? Zira ben deneme yaptığımda olumlu sonuç alıyorum.
Dosya uzantısı kodlarda jpg olarak ayarlı...
 
Oyla 0 Olumsuz oyla
Merhaba.

Sanırım mevcut kodun son tarafındaki aşağıdaki döngü pasif hale geldiğinde sonuç alınabiliyor durumda.
Ana klasörde arama yapıp sonucu VAR yazıyor, ardından alt klasörlere geçip orada bulamadığı için VAR
yazdığı değeri tekrar YOK olarak değiştiriyor gibi görüyorum.

Kırmızı satırlar pasif edilince sorun yok sanırım.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)

.
 
Oyla 0 Olumsuz oyla
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(37 satır)
En son kullandığım kod yukarıda olduğu gibi;
Sn. @Ömer BARAN Hocam; D sütununa olmayacak uzun kelimeler yazdım, boş bıraktım ne yaptımsa hepsine var yazıyor hocam.
 
Oyla 0 Olumsuz oyla
Sayın @tahsinanarat .

Sayın adaşım @ÖmerBey 'in 2 numaralı cevabındaki öneriyi uygulamamışsınız.
Kodda yer alan aşağıdaki kırmızı satırın yerine, yeşil olan satırı eklerseniz istenilen sonuç alınıyor bence.

.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(2 satır)


.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt