Sıralı Veri Kopyalama

[askm]

Kolay gelsin.
Sayfa1 deki verileri sıralı olarak kopyalama imkanı varmı. Kopyalayıp sıralamak veya sıralayıp kopyalamak değil. Örneğin önce 1 olanları, sonra 2 olanları gibi...

 

[YUSUF44]

For i = 1 to 2000 'bu satır kopyalanacak satırda arayacağımız değeri gösteriyor.
     For j = 1 to 3000 'Bu satır birinci satırdan 3000. satıra kadar kontrol edileceğini belirtiyor
           if cells(j,"A") = i then 'Eğer A sütununun j satırındaki değer i ise
                 yeni = cells(rows.count,"D").end(3).row +1 'Bu satır D sütunundaki ilk boş hücreyi buluyor
                 cells(yeni,"D") = cells(j,"A") 'A sütunundaki değeri D sütununa kopyalıyor.
           End if
     next
next

 

[askm]

Benim demek istediğim döngü olacak ama önce sütunda en küçük değeri bulacak, Bulduğu en küçük değerden kaç tane varsa onu sayfa2 ye kopyalayacak. Sonra bir sonraki değeri bulacak onları kopyalayacak. Sayı olarak düşünürse önce 1 leri bulacak aktaracak, sonra 2 sonra 3 ler gibi. harf olarak düşünürsen de önce A ları sonra B leri gibi.

 

[YUSUF44]

Bunun kopyalayıp küçükten büyüğe sıralamak ya da sıralayıp sonra kopyalamakla farkı nedir?