Klasörlere veri kopyalama Hk.

mertatakan3838 · 9 Ocak 2021

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.

Ömer BARAN · 24 Ocak 2021

Sayın @mertatakan_3838 .

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

.

mertatakan3838 · 24 Ocak 2021

Ömer BARAN' Alıntı:
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 · 24 Ocak 2021

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

mertatakan3838 · 24 Ocak 2021

Ömer BARAN' Alıntı:
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 · 24 Ocak 2021

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

.

mertatakan3838 · 24 Ocak 2021

Ömer BARAN' Alıntı:
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 · 24 Ocak 2021

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

CPP:

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

Ömer BARAN · 24 Ocak 2021

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

mertatakan3838 · 24 Ocak 2021

Ömer BARAN' Alıntı:
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 · 24 Ocak 2021

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:

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

.

mertatakan3838 · 24 Ocak 2021

Ö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:

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

.

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

mertatakan3838 · 24 Ocak 2021

Ömer BARAN' Alıntı:
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 · 24 Ocak 2021

Ö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:

İndirmek 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 · 24 Ocak 2021

Ö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:

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

.

mertatakan3838 · 24 Ocak 2021

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 · 24 Ocak 2021

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 · 24 Ocak 2021

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

Ömer BARAN · 24 Ocak 2021

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 · 24 Ocak 2021

Ömer BARAN' Alıntı:
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

	Verilere Göre Ayrı Klasörlere Dosya Oluşturma orcnsdk 9 Kas 2023 Makro Soruları
	FileDialog kullanarak seçtiğim resimler Klasörlere taşınması esancak828 22 Tem 2020 Makro Soruları
	SAP Programından Excele Otomatik Veri Çekme engin0687 1 Şub 2024 Makro Soruları
	Makro ile Kapalı Dosyadan Veri Çekme PriveT 4 Mar 2025 Makro Soruları
	Filtreli Alana Veri Yapıştırma ExcelDepo 10 Şub 2025 Makro Soruları