Sort işlemi

[Rainbows]

Merhaba Arkadaşlar bir sorunum var bana bu konu da yardımcı olursanız sevinirim.

A1 ile A10 sütununda ki en büyük sayıyı bulup bunları b1 ile b10 sütununa büyükten kücüge yazdırmak istiyorum
bana bu konuda yardımcı olursanız sevinirim.

Yardımlarınız için Şimdiden tesekkürler..

 

[dEdE]

.....A1 ile A10 sütununda ki en büyük sayıyı bulup bunları b1 ile b10 sütununa büyükten kücüge yazdırmak istiyorum.
...

Merhaba,
Sorunuzu anlamadım.
A1-A10 sütunu demişsiniz. Bundan A1 den A10 kadar olan 10 hücreyi anlıyorum. Bunları B1 den B10 kadar yazdırmak istediğinizde ise; hepsinin aynı sayı olması lazım. 10 adet sayıyı yine 10 adet hücreye yazdıracak isek en büyüğü nasıl olacak.
Örnek dosya eklerseniz daha çabuk yanıt alırsınız.

Özet: Soru anlaşıllamadı.

 

[Rainbows]

benim yapmak istedigim ekdeki örnekte b hücresindeki en büyük sayıyı buldum 9 olarak buluyorum daha sonra 8 6 3 vb gibi taranan hücrede ne varsa büyük ten kücüge dogru sıralanmasını istiyorum..

 

[dEdE]

benim yapmak istedigim ekdeki örnekte b hücresindeki en büyük sayıyı buldum 9 olarak buluyorum daha sonra 8 6 3 vb gibi taranan hücrede ne varsa büyük ten kücüge dogru sıralanmasını istiyorum..

Merhaba,
Kusura bakmayın ama gene anlamadım.
Yada anladığımı şöyle anlatayım. B kolonundaki sayıları A kolonunda büyükten küçüğe doğru sıralı olarak yazdırmak istiyorsunuz.
Eğer böyle ise Max fonksiyonuna gerek yok. Basit bir kod ile B sütunu A sütununa kopyalanıp, büyükten küçüğe sıralanabilir.
Hoşçakalın.

 

[Rainbows]

nedir bu basit kod peki rica etsem paylasabilirmisin...

 

[dEdE]

nedir bu basit kod peki rica etsem paylasabilirmisin...

Elbette

Sub Kopyala_Sırala()
Sheets(1).Select
    Columns("B:B").Copy
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("A1"), Order1:=xlDescending
    Range("A1").Select
End Sub

 

[Rainbows]

teşekkürler...

 

[dEdE]

Rica ederim.
Güle güle kullanın.