Blok halinde ters yapıştırma

[kemalist]

blok halinde bir ters çevirme işlemi var açıklama ekteki dosyada ilginize şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

Verilerinizi A sütununa göre Büyükten Küçüğe sıralamanız sorunuzu çözmez mi?

 

[Ziynettin]

Evren Bey'in kodu üzerinden düzenlenmiş hali.

Sub ters()
Dim liste(), myarr(), sat As Long, i As Long, a As Long, j As Byte
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
sat = Cells(65536, "A").End(xlUp).Row
liste = Range("A2:BS" & sat).Value
ReDim myarr(1 To UBound(liste), 1 To UBound(liste, 2))
For i = UBound(liste) To 1 Step -1
    a = a + 1
    For j = 1 To UBound(liste, 2)
        myarr(a, j) = liste(i, j)
    Next j
Next
If a > 0 Then Range("A2").Resize(a, UBound(liste, 2)) = myarr
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[kemalist]

Teşekkür ederim Ziynettin Bey

 

[Necdet]

Merak ettiğim için bir soru sormuştum, kaale bile alınmadık.

 

[kemalist]

Merak ettiğim için bir soru sormuştum, kaale bile alınmadık.

Necdet bey şayet benim için diyorsanız açıklamalarım ekli dosyanın içinde yazılı.Büyükten küçüğe sıralama yapıldığında tarihlerde oynama oluyor diye yazmıştım.