Klasörlere veri kopyalama Hk.

[mertatakan3838]

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.

 

Userformu başka çalışma kitabına taşıma.

Makro ile Veri Doğrulama Yapma

[Ömer BARAN]

Sayın @mertatakan_3838 .

Dikkatten kaçmış ve üzerinden vakit geçmiş.
Sorunu hallettiniz mi yoksa destek ihtiyacınız devam mı ediyor?

.

 

[mertatakan3838]

Sayın @mertatakan_3838 .

Dikkatten kaçmış ve üzerinden vakit geçmiş.
Sorunu hallettiniz mi yoksa destek ihtiyacınız devam mı ediyor?

.

Destek ihtiyacım devam ediyor Ömer hocam

 

[Ömer BARAN]

Aranıp, oluşturuacak klasörlerin içine kopyalanacak dosyalar nelerdir?
jpg, pdf, excel belgesi....vs dosya türü nedir?

 

[mertatakan3838]

Aranıp, oluşturuacak klasörlerin içine kopyalanacak dosyalar nelerdir?
jpg, pdf, excel belgesi....vs dosya türü nedir?

dosyaların uzantıları pdf ve Jpg uzantılı dosyalar hocam

 

[Ömer BARAN]

Yani belgeler;
-- Foto >> 12345678901.jpg
-- Kimlik >> 12345678901.pdf
-- İşe Giriş >> 12345678901.pdf
şeklinde mi?
Uzantıları doğru mu yazmışım?

.

 

[mertatakan3838]

Yani belgeler;
-- Foto >> 12345678901.jpg
-- Kimlik >> 12345678901.pdf
-- İşe Giriş >> 12345678901.pdf
şeklinde mi?
Uzantıları doğru mu yazmışım?

.

Aynen bu şekilde Ömer hocam

 

[Ömer BARAN]

Yanlış düşünmüyorsam aşağıdaki kod istenilen işlemleri yapar.

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

 

[Ömer BARAN]

Sayfayı yenileyerek kodu tekrar kontrol edin. Küçük değişiklik yapıldı.

 

[mertatakan3838]

Sayfayı yenileyerek kodu tekrar kontrol edin. Küçük değişiklik yapıldı.

Ömer hocam ilk denediğimde hata verdi sonra makroları incelediğimde makroda uzantıların hepsinin jpg olduğunu gördüm. Sonra ilgili satırları pdf yapıp çalıştırdım makro sorunsuz çalıştı. Emeğiniz için çok teşekkür ederim Ömer hocam.

 

[Ömer BARAN]

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.

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

.

 

[mertatakan3838]

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.

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

.

Ömer hocam denedim ama revize edemedim siz makroyu buna göre revize edebilirmisiniz

 

[mertatakan3838]

Sayfayı yenileyerek kodu tekrar kontrol edin. Küçük değişiklik yapıldı.

Ö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

 

[mertatakan3838]

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.

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

.

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

 

[mertatakan3838]

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.

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

.

 

[mertatakan3838]

Tamamdır Ömer hocam biraz deneme yanılma yoluyla son verdiğiniz makrolarıda ilk makronuza entegre ettim. 4000 satırlık veride denedim istediğim sonucu verdi. Tekrardan çok teşekkür ederim. Sağolun

 

[Ömer BARAN]

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.

 

[mertatakan3838]

Dosyanın çalışır son hali ektedir. Tekrardan Ömer hocama teşekkür ederim

 

[Ömer BARAN]

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.

 

[mertatakan3838]

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.

Aynen Ömer hocan ben koda eklerken orayı düzeltip eklemiştim. Saygılar