İşlemi tersine çevirme ve aktarma

Değerli Okutkan hocam merhaba

Bildirimi göremediğim için gözümden kaçmış. Şimdi görebildim. Çözümünüz mükemmel olmuş (özellikle Call satırı)

Hocam ben de şunu dile getirmek için bu sayfaya gelmiştim. Şöyle ki;

Bu sayfadaki konu çözüldü.
Ve
Fark ettim ki sizin 4,8 ve 9 nolu mesajlarınızda yazdığınız kodlar daha hızlı.

Hani ilk mesajımda üç örnek dosya paylaşmıştım ya;
Örnek1
Örnek2 ve
Örnek3 diye

İşte o 3 örnek dosyadaki kodların yaptığı işi yapan aynı kodları (müsait vaktiniz olduğunda) kendi tekniğinizle de yazar mısınız?

Talebinizi tam olarak anlamadım.

Şöyle hocam
İlk mesajımdaki örnek dosya 1,2 ve 3 vardı ya; (ilk üç dosya)

O dosyaların içindeki kodları kendi tekniğinizle yeniden yazar mısınız? Müsait olduğunuzda. (Daha hızlı olduğu için)

@hakki83
İşlemi sadece örnek.1 isimli belgede denedim.
Şu kod yeterince hızlı sonuç verecektir.

@hakki83

Örnek belgelerinden bir diğerine baktım ve 2 sütunlu sonuç alınan dosya (örnek3 galiba) için,
önceki verdiğim kodda küçük düzenleme yapılarak şöyle hızlıca sonuç alınabilir.

Değerli Ömer hocam emeğinize sağlık. Bilgisayar başına geçemedim, geçince hemen deneyeceğim.

Ömer BARAN' Alıntı:

@hakki83

Örnek belgelerinden bir diğerine baktım ve 2 sütunlu sonuç alınan dosya (örnek3 galiba) için,
önceki verdiğim kodda küçük düzenleme yapılarak şöyle hızlıca sonuç alınabilir.

VBA:

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

Genişletmek için tıklayın ...

Değerli Ömer hocam. Emeğinize sağlık.
Örnek 1 ve
Örnek 3 olmuştur.

Müsait vaktiniz olduğunuzda Örnek2’yi de aynı teknikle yapabilirseniz, bu konu tamamiyle çözülmüş olacak.
Teşekkürler.

Verdiğim son kodda;
-- ilgili kısmı şöyle değiştirin >>> IIf(snc(va, 1) = Empty, "", ", ") & i_liste(1, vu)
-- şuradaki True değerini False olarak değiştirin >>> r.[B:B].WrapText = False

Hemen deniyorum hocam.

Ömer hocam olmuştur.

Okutkan hocamızın ve Ömer hocamızın emeklerine bilgilerine sağlık. Teşekkür ederim. Sayelerinde konumuz çözülmüştür.

okutkan' Alıntı:

Bu dosya da uygulanmış hali.

Genişletmek için tıklayın ...

Okutkan hocam merhaba


Diğer ikisini yaptım da bunu yapamadım. Galiba Resize komutuyla yapılıyor.

A1’e İSİMLER başlığını
B1’den itibaren tüm verili sütunlara SORUNLAR başlığını getirecek kod satırını ekleyebilir misiniz?
Teşekkürler.

Rapor sayfasındaki butonu çalıştırıp istediğiniz bu mu kontrol edin.

Çok güzel oldu hocam emeğinize sağlık.
Hem sayfayı ilk önce temizleyen Clear, hem de başlıklar gelmiş oldu.

(Sadece içindeki Sami satırını sildim)