Satır yerlerini değiştirme

[selin26]

Merhaba arkadaşlar,
elimde
1
2
3
4
satırları var ben bu satırları bir komşusuyla nasıl yer değiştiririm kodu nedir?(1234'ün 2134,1324,1243 olmasını istiyorum satır şeklinde ve satır sayısı n olacak)

 

[Asri]

Sayı sınırlaması yok. Sayı,harf yada kelime kullanılabilir

SayiDegistir.xlsm

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

Dim sayi As String
Dim i, j, sonsatir, satir As Long
'Asri Akdeniz - asriakdeniz@gmail.com - www.asriakdeniz.com
Sub sayidegistir()
Columns("B:B").Clear
sonsatir = Cells(Rows.Count, "A").End(3).Row
ReDim liste(sonsatir) As String
For i = 1 To sonsatir
   liste(i) = Cells(i, "A").Value
Next i

sonsatir = Cells(Rows.Count, "A").End(3).Row
satir = 0
For i = 1 To sonsatir - 1
     sayi = liste(i)
     liste(i) = liste(i + 1)
     liste(i + 1) = sayi
     For j = 1 To sonsatir
          satir = satir + 1
          Cells(satir, "B").Value = liste(j)
     Next j
     satir = satir + 1
     sayi = liste(i)
     liste(i) = liste(i + 1)
     liste(i + 1) = sayi
Next i

End Sub

 

[selin26]

Sayı sınırlaması yok. Sayı,harf yada kelime kullanılabilir

SayiDegistir.xlsm

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

Dim sayi As String
Dim i, j, sonsatir, satir As Long
'Asri Akdeniz - asriakdeniz@gmail.com - www.asriakdeniz.com
Sub sayidegistir()
Columns("B:B").Clear
sonsatir = Cells(Rows.Count, "A").End(3).Row
ReDim liste(sonsatir) As String
For i = 1 To sonsatir
   liste(i) = Cells(i, "A").Value
Next i

sonsatir = Cells(Rows.Count, "A").End(3).Row
satir = 0
For i = 1 To sonsatir - 1
     sayi = liste(i)
     liste(i) = liste(i + 1)
     liste(i + 1) = sayi
     For j = 1 To sonsatir
          satir = satir + 1
          Cells(satir, "B").Value = liste(j)
     Next j
     satir = satir + 1
     sayi = liste(i)
     liste(i) = liste(i + 1)
     liste(i + 1) = sayi
Next i

End Sub

Teşekkür ederim!