Blok halinde ters yapıştırma

kemalist

Altın Üye
Katılım
4 Haziran 2008
Mesajlar
795
Excel Vers. ve Dili
Excel 2021 TÜRKÇE
blok halinde bir ters çevirme işlemi var açıklama ekteki dosyada ilginize şimdiden teşekkür ederim.
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,181
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

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

Ziynettin

Destek Ekibi
Destek Ekibi
Katılım
18 Nisan 2008
Mesajlar
1,104
Excel Vers. ve Dili
office2010
Evren Bey'in kodu üzerinden düzenlenmiş hali.

Kod:
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

Altın Üye
Katılım
4 Haziran 2008
Mesajlar
795
Excel Vers. ve Dili
Excel 2021 TÜRKÇE
Teşekkür ederim Ziynettin Bey
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,181
Excel Vers. ve Dili
Ofis 365 Türkçe
Merak ettiğim için bir soru sormuştum, kaale bile alınmadık.
 

kemalist

Altın Üye
Katılım
4 Haziran 2008
Mesajlar
795
Excel Vers. ve Dili
Excel 2021 TÜRKÇE
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.
 
Üst