Çözüldü Klasörlere veri kopyalama Hk.

M

mertatakan3838

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Değerli üstatlar masa üstündeki LİSTE isimli klasörün içine A sütunundaki sicillere göre klasörler açıp daha sonra bu klasörler içine Foto,Kimlik ve İşe Giriş isimli alt klasörler açarak B sütunundaki dosya isimlerine göre C:\Foto,C:\kimlik,C:\İşe giriş klasörlerinin içinden dosyaları arayıp, bulduklarını ilgili sicil klasörlerinin içindeki ilgili alt klasörlere kopyalamasını istiyorum. Eğer eksik dosya kopyalama olduysa ilgili sicili kırımızı renkte dolgu olarak işaretlerse eksik verileri tespit edebilmek açısından benim için daha iyi olur. Not: Arama yapılacak dosya isimlerinin tamamı TC kimlik numarasından oluşmaktadır.
 

Ekli dosyalar

  • Run-Time error 438.webp
    Run-Time error 438.webp
    4.8 KB · Görüntüleme: 7
Tarihe göre sırala Oylamaya göre sırala
Renk olayı için üç koşul vardı.

Bence;
-- Set s = .... satırının altına s.Range("C2:E" & Rows.Count).ClearContents diye bir satır ekleyip,
-- For i = 2 To Range.... kısmını For i = 2 To s.Range.... diye değiştirip,
-- C1, D1 ve E1'e FOTO, KİMLİK, İŞE GİRİŞ başlıklarını yazıp,
kodun ilgili kısmını aşağıdaki şekilde güncellerseniz (uzantılara yine dikkat)
TC bilgilerinin karşısına hangi belge varsa o sütuna EVET yazılır, siz de neyin eksik olduğunu görebilirsiniz.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(6 satır)

.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Renk olayı için üç koşul vardı.

Bence;
-- Set s = .... satırının altına s.Range("C2:E" & Rows.Count).ClearContents diye bir satır ekleyip,
-- For i = 2 To Range.... kısmını For i = 2 To s.Range.... diye değiştirip,
-- C1, D1 ve E1'e FOTO, KİMLİK, İŞE GİRİŞ başlıklarını yazıp,
kodun ilgili kısmını aşağıdaki şekilde güncellerseniz (uzantılara yine dikkat)
TC bilgilerinin karşısına hangi belge varsa o sütuna EVET yazılır, siz de neyin eksik olduğunu görebilirsiniz.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(6 satır)

.
Genişletmek için tıklayın ...
Ömer hocam denedim ama revize edemedim siz makroyu buna göre revize edebilirmisiniz
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Sayfayı yenileyerek kodu tekrar kontrol edin. Küçük değişiklik yapıldı.
Genişletmek için tıklayın ...
Ömer hocam toplu bir deneme yaptım Kimlik dosyalarınıda işe giriş klasörüne kopyalıyor. Bu şekilde işe giriş dosyalarını kopyalamıyor. İşe giriş dosyalarının içindede kimlik dosyaları olacak şekilde kopyalıyor. Sadece ilk satırdaki veriyi doğru şekilde kopyalayıp diğerleinde dediğim hatayı yapıyor
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Renk olayı için üç koşul vardı.

Bence;
-- Set s = .... satırının altına s.Range("C2:E" & Rows.Count).ClearContents diye bir satır ekleyip,
-- For i = 2 To Range.... kısmını For i = 2 To s.Range.... diye değiştirip,
-- C1, D1 ve E1'e FOTO, KİMLİK, İŞE GİRİŞ başlıklarını yazıp,
kodun ilgili kısmını aşağıdaki şekilde güncellerseniz (uzantılara yine dikkat)
TC bilgilerinin karşısına hangi belge varsa o sütuna EVET yazılır, siz de neyin eksik olduğunu görebilirsiniz.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(6 satır)

.
Genişletmek için tıklayın ...
Sorun son verdiğiniz makroları ekleyip denememden kaynaklanmış. İlk verdiğiniz makro sorunsuz çalışıyor. Son verdiğiniz makrolarıda makroya revize edersek sorun kalmıyor Ömer hocam
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Renk olayı için üç koşul vardı.

Bence;
-- Set s = .... satırının altına s.Range("C2:E" & Rows.Count).ClearContents diye bir satır ekleyip,
-- For i = 2 To Range.... kısmını For i = 2 To s.Range.... diye değiştirip,
-- C1, D1 ve E1'e FOTO, KİMLİK, İŞE GİRİŞ başlıklarını yazıp,
kodun ilgili kısmını aşağıdaki şekilde güncellerseniz (uzantılara yine dikkat)
TC bilgilerinin karşısına hangi belge varsa o sütuna EVET yazılır, siz de neyin eksik olduğunu görebilirsiniz.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(6 satır)

.
Genişletmek için tıklayın ...
 
Oyla 0 Olumsuz oyla
Kodun, düzenlediğiniz halini içerisine uyguladığınız son bir örnek belge ekleyip,
çözümü sağlayan cevap hangisiyse o cevabın sağındaki TİK işaretini fareyle tıklayarak konunun ÇÖZÜLDÜ önekini almasını sağlarsanız iyi olur.
 
Oyla 0 Olumsuz oyla
Estağfurullah.

Son cevabımdaki kaynak değişkenini üçü için de aynı yapmışım.
Bu hata ile ilgili kısımda düzeltilip ilk cevabıkdaki koda dahil edilerek, kod güncellendi.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.

Benzer Konular Popüler İçerikler Daha Fazlası

Üst