Kako bi seštevala v listu 2

[princesa]

pozdravljeni Matjaž koda dela sedaj pa me zanima kako mi naj še soltira v LISTU2 kolono B1 in A1 od največjega proti najmanjšemu številu
naprimer da bi v listu2 v koloni A1 IN B1 BILA NAJVEČJA ŠTEVILKA v koloni A50 in koloni B50 pa najnižja
leppozdrav

[admin]

Željeno vam bo naredila spodnja procedura:

Koda: Izberi vse

Sub SortNaListu2()
    Sheets("List2").Range("A1").CurrentRegion.Columns(1).Sort _
        Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("List2").Range("B1").CurrentRegion.Columns(2).Sort _
        Key1:=Range("B1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

[princesa]

Matjažkaj sem naredila da mi v lisru 2soltorasamo stolpec B1 mislilasem dabi mi soltiralo nap. v stolpcu A1 je vpisanih x=10 p= 5 in da bi mi potem v listu 2 tudi soltiralo tako da bi bilo zapisano A1 x v B PA10 v naslednji vrstica pa v A 2 = P v B2 pa6
hvala in lep dan še naprej