Soru Satırdaki sayıları ters-düz yapma

[MESUT K]

Herkese Merhaba
Aşağıdaki resimlerde sayı1 in karşılığında elle 1 yazıldıktan sonra "ters düz" butonuna 1.tıklatmada 2,3,4 şeklinde sıralama yapması

2.tıklatmada 4,3,2,1 şeklinde sıralaması

3 ve sonsuz döngüde ters-düz sıralama yaptırılması mümkünmüdür.Bilen üstadlarımdan yardım istiyorum

 

[mustafa1205]

Sub TersCevir()
Dim ws As Worksheet
Dim cell As Range
Dim startCell As Range
Dim dataRange As Range
Dim dataArray() As Variant
Dim i As Long, j As Long
Set ws = ThisWorkbook.Sheets("Sayfa1")
Set startCell = ws.Range("E6")

Set dataRange = ws.Range(startCell, startCell.End(xlDown))

dataArray = dataRange.Value

j = UBound(dataArray)
For i = 1 To UBound(dataArray) / 2
Dim temp As Variant
temp = dataArray(i, 1)
dataArray(i, 1) = dataArray(j, 1)
dataArray(j, 1) = temp
j = j - 1
Next i

dataRange.Value = dataArray
End Sub



Bu kodu bir dener misiniz ? Butona her bastığınızda ters -düz eder. Bilginiz olsun

 

[MESUT K]

Çok teşekkür ediyorum.Kod çalışıyor.Eklediğim çalışma kitabında ek olarak "sırala" butonu yerleştirdim.Buton "e6" hücresine yazılan 1 sayısını

e7=2,
e8=3
e9=4 şeklinde 1 artırarak sıralıyor

Yukarıda verdiğiniz kod ile mühürleri sırala butonunu birleştirmenin yolu varmıdır