Butonla isimlerin makara gibi bir tık dönmesi

[ASLAN7410]

Merhaba arkadaşlar hayırlı çalışmalar.

Ekte gönderdiğim excel sayfasında gerekli açıklama yaptım.

Benim istediğim B sütununda siciller var, C sütununda isimler var. Butona bastığımda sicillerin ve isimlerin makara gibi dönmesini istiyorum. Yani en sondaki ismin en başa gelmesini, en baştaki ismin ve diğer isimlerin bir alta kaymasını, butona her bastığımda bu işlemin olmasını istiyorum.
Böyle bir konuyu forumda bulamadım.

Yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırınız. Yalnız değer değiştiriciyi Formlardan değil Activex denetimlerinden eklemeniz gerekiyor:

Private Sub SpinButton1_SpinUp()
With SpinButton1
    son = Cells(Rows.Count, "B").End(3).Row
    Range("B" & son & ":C" & son).Select
    Selection.Cut
    Range("B2").Select
    Selection.Insert Shift:=xlDown
    [A1].Select
End With
End Sub

Private Sub SpinButton1_Spindown()
With SpinButton1
    son = Cells(Rows.Count, "B").End(3).Row + 1
    Range("B2:C2").Select
    Selection.Cut
    Range("B" & son & ":C" & son).Select
    Selection.Insert Shift:=xlDown
    [A1].Select
End With
End Sub

 

[Ömer BARAN]

Merhaba.
Formül kullanılarak hazırlanan dosya alternatif olsun.

 

[ASLAN7410]

Sayın Yusuf Bey ve Ömer Bey valla ikiside çok süper olmuş, ellerinize sağlık çok teşekkür ediyorum Allah razı olsun.

Hayırlı geceler.