• Merhaba Ziyaretçi,
    Bayrama Özel VIP Paket %50 İndirim Fırsatından yararlanın. (bir kere öde, ömür boyu kullan)

  • Sn. Ziyaretçi,
    PEAKUP E-Book & Makale & Videoları yayınlandı.

Yardım sort butonuna datalardan en çok gol atan ilk 5 takımın kodunu yazmak

eda99

Yeni Üye
Katılım
18 May 2020
Mesajlar
1
En iyi yanıt
0
Puanları
1
Yaş
20
Konum
istanbul
Ad Soyad
eda
Private Sub CommandButton5_Click()
Dim total_data As range
Dim specific_column As range

Set total_data = Worksheets("Sheet").range("A2:C12")

Set specific_column = Worksheets("Sheet1").range("D:D")
total_data.Sort Key1:=specific_column, Order1:=xlDescending, Header:=xlYes

Worksheets("Sheet1").Cells(1, 1).Select



End Sub şöyle bir kod yazmıştım fakat range aralığımı kabul etmedi ve benim istediğim format msgbox ın içinde en çok gol atan ilk 5 takımın çıkması. Nasıl yapabilirm?
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,200
En iyi yanıt
9
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Merhabalar,
Burada daha yeni bir yanıt vermiştik, bakabilirsiniz.
 
Üst Alt