Sütun ve satırı sırala aktar

[snx111]

Sayfa1 A:A Sütununda ki verileri sayfa2 A:A ya büyükten Küçüğe dizli şekilde aktracağım Bunu yaparken de sayfa2 B:K YA kadar olan satırlar sıralamaki sıraya göre kopyalanmalı;

Kısaca sayfa1deki A:A sütununu sayfa2 ye büyükten küçüge sırala ( aşagıdaki formül );sayfa2 ye sıralarken ;a dan k ya satırlarıda kopyala


=BÜYÜK(Sayfa1!$A:$A;SATIR(A1))

 

[Muhammet Okumuş]

Merhaba,
Sanırım sizin soru makro ile çözülebilir. Kodu deneyiniz.

Sub Sırala()
Sheets("Sayfa1").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = "snx111-" & Sheets.Count - 1
Range("A1:K13").Sort KEY1:=Range("A1"), ORDER1:=xlDescending
ActiveSheet.DrawingObjects.Delete
End Sub

 

[snx111]

Büyükten küçüge için ?

 

[Muhammet Okumuş]

Kod zaten büyükten küçüğe sırlama yapıyor.
Küçükten büyüğe için;
Range("A1:K13").Sort KEY1:=Range("A1"), ORDER1:=xlDescending
xlDescending yerine xlAscending yapınız.

 

[asi_kral]

Sayfa1 A:A Sütununda ki verileri sayfa2 A:A ya büyükten Küçüğe dizli şekilde aktracağım Bunu yaparken de sayfa2 B:K YA kadar olan satırlar sıralamaki sıraya göre kopyalanmalı;

Kısaca sayfa1deki A:A sütununu sayfa2 ye büyükten küçüge sırala ( aşagıdaki formül );sayfa2 ye sıralarken ;a dan k ya satırlarıda kopyala


=BÜYÜK(Sayfa1!$A:$A;SATIR(A1))

Merhaba
B1 hücresine

=EĞER($A1="";"";İNDİS(Sayfa1!B$1:B$100;KÜÇÜK(EĞER(Sayfa1!$A$1:$A$100=$A1;SATIR(Sayfa1!$A$1:$A$100)-SATIR(Sayfa1!$A$1)+1);EĞERSAY($A$1:$A1;$A1))))

Bu formülü yazın ve diziye çevirin.
Diziye çevirme : formül hücreye girildikten sonra Enter tuşuna basılmadan Ctrl+Shift+Enter tuş kombinasyonu ile aktif olmaktadır.
Formülde 100 satır baz alınmıştır.
Formülü yazdıktan sonra sağa ve aşağıya doğru çekerek çoğaltın.

 

[Muhammet Okumuş]

Eğer A sütununda mükerrer varsa BÜYÜK fonksiyonu hataya neden olur.

 

[asi_kral]

Eğer A sütununda mükerrer varsa BÜYÜK fonksiyonu hataya neden olur.

Nasıl bir hata oluşur

 

[snx111]

sayın okumuş makro ikinci plandaydı benim için; asikralın formülünü sorunsuz çalışmaktadır ilginize teşekkür ederim

 

[Muhammet Okumuş]

Kusura bakmayın. Ben dizi formülünü denememiştim. Evet sorun yok.
Sn snx111;

Sayfa1 A:A Sütununda ki verileri sayfa2 A:A ya büyükten Küçüğe dizli şekilde aktracağım Bunu yaparken de sayfa2 B:K YA kadar olan satırlar sıralamaki sıraya göre kopyalanmalı;

kopyalanmalı dediğiniz için makro ile çözüm olabilir demiştim.

 

[asi_kral]

sayın okumuş makro ikinci plandaydı benim için; asikralın formülünü sorunsuz çalışmaktadır ilginize teşekkür ederim

Kolay Gelsin.