yan yana sayıları sıralama

[forum34uyelik]

A1 den A8 hücresine kadar 32 65 15 02 65 37 45 48

B1 den B8 hücresine kadar 61 75 05 16 22 98 47 06

şeklinde karmaşık sayılarım var. C1 den C8 ve D1 den D8 hücrelerine

küçükten büyüğe formül kullanarak sıralatabilir miyim? şimdiden teşekkürler.

 

[NBATMAN]

Merhaba,

aşağıdaki kodları excel sayfasına bir commandbutton ekleyerek çift tıkladığınızda açılan pencereye kopyalayın...

Private Sub CommandButton1_Click()
'
' Makro1 Makro
' Makro Nbatman tarafından 14/04/2013 tarihinde kaydedildi.
'

'
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1:A8").Select
Selection.Copy
Range("C1").Select
ActiveSheet.Paste
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B1:B8").Select
Selection.Copy
Range("D18").Select
ActiveSheet.Paste
Range("E1").Select
Application.CutCopyMode = False
End Sub

 

[turist]

A1 den A8 hücresine kadar 32 65 15 02 65 37 45 48

B1 den B8 hücresine kadar 61 75 05 16 22 98 47 06

şeklinde karmaşık sayılarım var. C1 den C8 ve D1 den D8 hücrelerine

küçükten büyüğe formül kullanarak sıralatabilir miyim? şimdiden teşekkürler.

Formülle yapmak isterseniz,
C1 hücresine:
İngilizce Excel için:

=SMALL(A:A;ROW())

Türkçe Excel için:

=KÜÇÜK(A:A;SATIR())

D1 hücresine:

=SMALL(B:B;ROW())

Türkçe Excel için:

=KÜÇÜK(B:B;SATIR())

yazın, aşağıya doğru kopyalayıp yapıştırın.

 

[forum34uyelik]

denedim fakat olmadı, rica etsem dosya üzerine kaydedip gönderebilir misiniz?

 

[turist]

denedim fakat olmadı, rica etsem dosya üzerine kaydedip gönderebilir misiniz?

Ekli dosyadadır.

 

[forum34uyelik]

yukarıdan aşağı yapıyor, soldan sağa yapmasının imkanı var mı acaba?

 

[forum34uyelik]

Ekli dosyadadır.

yukarıdan aşağı yapıyor, soldan sağa yapmasının imkanı var mı acaba?

 

[NBATMAN]

Aşağıdaki kodu excel sayfası içinde oluşturacağınız bir buton içine kopyalayın...

A1 ile A8 arasındaki sayıları soldan sağa büyükten küçüğe olduğu yerde bir yere taşımadan sıralar...

Range("A1:H1").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal

 

[turist]

yukarıdan aşağı yapıyor, soldan sağa yapmasının imkanı var mı acaba?

Ekli dosyayı inceleyiniz.