koşullu sıralama

[ahm11]

ekteki örnekte belirtilen konuda yardımcı olurmusunuz.

 

[Orion1]

Merhaba.
Ekli dosyayı incelermisiniz

Sub sirala()
Dim sat As Byte, adi As String, deger As Long
sat = 2
Sheets("Sayfa1").Select
Range("J2:K65536").ClearContents
For Each hucre In Range("B2:G8")
    adi = Cells(hucre.Row, "A").Value
    deger = hucre.Value
    Cells(sat, "J").Value = adi
    Cells(sat, "K").Value = deger
    sat = sat + 1
Next
Range("J2:K" & Cells(65536, "J").End(xlUp).Row).Sort Range("K2"), xlDescending
MsgBox "İŞLEM TAMAMDIR..!!"
End Sub

 

[ahm11]

üstad teşekkürler
sorumun ikinci bölümünüde cevaplasaydın çok iyi olurdu

 

[Orion1]

üstad teşekkürler
sorumun ikinci bölümünüde cevaplasaydın çok iyi olurdu

2nci bölümden bir şey anlamadım.
Şimdi 1nci bölümü yapılmış şekli ile dosyada açıklama yapıp,dosyayı eklerseniz,Uğraşırım.

 

[ahm11]

dosyayı gönderiyorum

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

 

[ahm11]

üstad çok teşekkür ederim

 

[Orion1]

üstad çok teşekkür ederim

Rica ederim.
İyi çalışmalar.