İki sütündeki sayıları kıyaslayıp sıralama

[unbqlqnced]

Arkadaşlar merhaba,

Benim iki adet sütunum var. Her iki sütunda da sayısal değerler var. Örneğin sırası ile F sütununda 18,51,82 değerleri var G sütununda ise 10,20,60 değerleri var benim istediğim makro bu iki sütunda ki rakamları kıyaslayıp atıyorum H sütununa küçükten büyüğe doğru sıralayacak.

Sub Kot()
Range("F1:G3").Sort [F1], Order1:=xlDescending
End Sub
makrosunu kullanıyorum ama pek işimi görmüyor gibi yani sadece tek sütun için çalışıyor ve bunu başka bir hücreye nasıl sıralı birleşmiş bir biçimde yazdıracağı mı kestiremedim.

 

[askm]

Aşağıdaki kodlar işinizi görecektir sanırım.

Sub askm_birlestir_Sirala()
Dim Depo(), i%, b%
SonSatir1 = Cells(65536, "F").End(xlUp).Row
SonSatir2 = Cells(65536, "G").End(xlUp).Row

For i = 1 To SonSatir1
        If Cells(i, "F") <> "" Then
            ReDim Preserve Depo(b)
            Depo(b) = Cells(i, "F")
            b = b + 1
        End If
Next i
For i = 1 To SonSatir2
        If Cells(i, "G") <> "" Then
            ReDim Preserve Depo(b)
            Depo(b) = Cells(i, "G")
            b = b + 1
        End If
Next i
Range("H1").Resize(b, 1).Value = Application.Transpose(Depo)
Range("H1:H" & b).Sort [H1], Order1:=xlDescending
b = Empty: i = Empty: Erase Depo
MsgBox "İşleminiz tamamlanmıştır.", vbInformation, "ASKM"
End Sub

 

[unbqlqnced]

Çok çok teşekkür ederim harikasınız:hihoho: