Blok halinde ters yapıştırma

kemalist

Altın Üye
Altın Üye
Katılım
4 Haziran 2008
Mesajlar
752
Excel Vers. ve Dili
Excel 2016
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
13,001
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
835
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
Altın Üye
Katılım
4 Haziran 2008
Mesajlar
752
Excel Vers. ve Dili
Excel 2016
Teşekkür ederim Ziynettin Bey
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
13,001
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
Altın Üye
Katılım
4 Haziran 2008
Mesajlar
752
Excel Vers. ve Dili
Excel 2016
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