Buton İle Aynı Sütundaki verileri döndürme

[imyourfate]

Arkadaşlar herkese hayırlı işler dilerim,

Yardıma ihtiyacım olan konu ;çok basit gibi görünmesine rağmen epey araştırdım ama ilgili bir makro yada başka bir yötem bulamadım söyle ki ; aynı sütunda 8 adet alt alta satırda isimler var bir butonla bunları mevcut sıraya göre döndürmek istiyorum ; yani en alt satırdaki en üste gelecek , en üstteki bir alt satıra kayacak gibi ?

Öneride bulunacak arkadaşlara şimdiden teşekkür ederim

Saygılarımla

 

[Necdet]

Merhaba,

verinin A2 den başlayıp A9 da bittiği varsayımıyla basit bir şey yaptım. Aşağıdaki kodları kendinize göre uyarlayınız.

Sub Kaydırıver()

    Dim Dizi(1 To 8)
    Dim i As Integer
    
    Dizi(1) = Range("A9")
    For i = 2 To 8
        Dizi(i) = Cells(i, "A")
    Next i
    
    Range("A2").Resize(8) = Application.WorksheetFunction.Transpose(Dizi)
    
End Sub

 

[Ömer BARAN]

Merhaba. Alternatif olsun.

Ben de aşağıdaki gibi düşündüm.
(Verilerin A sütununda 2'nci satırdan itibaren A2:A9 hücre aralığında yer aldığı varsayıldı)
.

[FONT="Arial Narrow"]Sub DÖNDÜR()
    son = Cells([B][COLOR="red"]9[/COLOR][/B], 1): For satır = [B][COLOR="red"]9[/COLOR][/B] To 3 Step -1
    Cells(satır, 1) = Cells(satır - 1, 1): Next: Cells([B][COLOR="Blue"]2[/COLOR][/B], 1) = son
End Sub[/FONT]

 

[Necdet]

Merhaba,

Yukarıdaki açıklamalar geçerli olmak kaydıyla döngüsüz çözüm :

Sub Cevir()

    Dim Yedek
    
    Yedek = Range("A9")
    
    Range("A2:A8").Copy Range("A3")
    Range("A2") = Yedek
    
    
End Sub

 

[imyourfate]

Her iki kodda mükemmel çalışıyor F3 - F10 şeklinde nasıl uyarlayabilirim?

Çok teşekkür ederim.

Saygılarımla

 

[imyourfate]

Aşağıdaki kodu kendim uyarladım çok teşekkür ederim

Sub Cevir()

Dim Yedek

Yedek = Range("A9")

Range("A2:A8").Copy Range("A3")
Range("A2") = Yedek


End Sub