Çözüldü Sıralamayı MsgBox'ta Gösterme

Excel'e yeni başladım ve sort kodu yazmam gerekiyor. Sort için gerekli kodu yazdım. Fakat msgbox eklemem gerekiyor. A2:A13 arasında olan dataların msgbox kodunu girince alt alta yazmasını istiyorum. Nasıl yapabileceğim hakkında bilgisi olan var mı? Bu arada yazdığım kod:
Private Sub CommandButton4_Click()
Range("A2:C13").Sort key1:=Range("C2"), order1:=xlDescending, Header:=xlNo


MsgBox "Teams (Largest to smallest)"





End Sub

Merhaba,
Öncelikle, Excel'e direkt makrolardan başlamanız pek doğru olmamış.
Temel, İleri ve Uzmanlık eğitimleri/konuları sonrasında makrolara başlamanızı öneririm.

Bu çözüm işinize yarayacaktır..

Murat OSMA' Alıntı:

Merhaba,
Öncelikle, Excel'e direkt makrolardan başlamanız pek doğru olmamış.
Temel, İleri ve Uzmanlık eğitimleri/konuları sonrasında makrolara başlamanızı öneririm.

Bu çözüm işinize yarayacaktır..

PHP:Panoya kopyala

Private Sub CommandButton4_Click()
    Dim osma(), i&, listem$
    Range("A2:C13").Sort key1:=Range("C2"), order1:=xlDescending, Header:=xlNo
    osma = Application.Transpose(Range("A2:A13").Value)
    For i = 1 To 12
        listem = listem & osma(i) & Chr(10)
    Next i
    MsgBox listem
    listem = vbNullString: i = Empty: Erase osma
End Sub

Genişletmek için tıkla ...

Çok teşekkür ederim

Rica ederim iyi günler.