Çözüldü Satırı koşullu çoğaltma ve aktarma

Aşağıdaki kodu kullanabilirsiniz.
Veri miktarı çok fazlaysa iletin, daha hızlı sonuç verecek bir alternatif oluşturulabilir.

Hocam, emeğinize sağlık. Geç yazdım özür dilerim. Tam üye olduğum zaman bu sorun ortadan kalkacak.
Yok hocam, aşırı veri olmaz.
Saygılarımla. Tekrar teşekkür eder, sağlıklı günler dilerim.

Ömer BARAN' Alıntı:

Aşağıdaki kodu kullanabilirsiniz.
Veri miktarı çok fazlaysa iletin, daha hızlı sonuç verecek bir alternatif oluşturulabilir.

VBA:

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

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

Hocam merhaba, siz benden daha iyi tahmin ettiniz. Bir hanımefendi rica etmişti aslında bunu.
Hocam, şimdi şöyle; "İLGİLİ DOSYA" sütunu bazen 6. bazen 7. sütuna denk gelebiliyor. (ama mutlaka son sütun).
Hocam zahmet olacak ama, o şekilde yapabilir miyiz. Siz nasıl uygun görürseniz. İsterseniz Son sütun şeklinde. İsterseniz bir MsgBox ile İLGİLİ DOSYA kaçıncı sütunda diye sorarak. Nasıl uygun görürseniz.
Şimdiden teşekkür ederim.

"İLGİLİ DOSYA" başlığı kaçıncı sütunsa (dikkat tam olarak aynışekilde yazılmış olmalıdır) ona göre işlem yapılır.
B sütunundan, İLGİLİ DOSYA başlığına kadarki sütunlardaki değerler tekrarlanarak, son sütundakiler NOKTALI VİRGÜL
karakterine göre ayrıştırılarak tablo oluşturulur. Diyelim tablo A:K aralığında (A sütunu sıra no) ise;
B:J aralığı tekrarlanır, K sütunundakiler NOKTALI VİRGÜLE göre ayrıştırılır.

Ömer BARAN' Alıntı:

"İLGİLİ DOSYA" başlığı kaçıncı sütunsa (dikkat tam olarak aynışekilde yazılmış olmalıdır) ona göre işlem yapılır.
B sütunundan, İLGİLİ DOSYA başlığına kadarki sütunlardaki değerler tekrarlanarak, son sütundakiler NOKTALI VİRGÜL
karakterine göre ayrıştırılarak tablo oluşturulur. Diyelim tablo A:K aralığında (A sütunu sıra no) ise;
B:J aralığı tekrarlanır, K sütunundakiler NOKTALI VİRGÜLE göre ayrıştırılır.

VBA:

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

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

Hocam, "İLGİLİ DOSYA" sütunundaki rakamların sadece ilkini aldı. Benim bir şey mi değiştirmem gerekiyordu. Sadece kodu yapıştırdım.

Kodu tekrar güncelledim (küçük bir yeri atlamışım), son belgenize bakmadım.
Yeni kodu dener misiniz?

Ömer BARAN' Alıntı:

"İLGİLİ DOSYA" başlığı kaçıncı sütunsa (dikkat tam olarak aynışekilde yazılmış olmalıdır) ona göre işlem yapılır.
B sütunundan, İLGİLİ DOSYA başlığına kadarki sütunlardaki değerler tekrarlanarak, son sütundakiler NOKTALI VİRGÜL
karakterine göre ayrıştırılarak tablo oluşturulur. Diyelim tablo A:K aralığında (A sütunu sıra no) ise;
B:J aralığı tekrarlanır, K sütunundakiler NOKTALI VİRGÜLE göre ayrıştırılır.

VBA:

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

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

Hocam, çok teşekkür ederim. Emeğinize sağlık.