Satır Kaydırma

[resder]

Merhaba arkadaşlar benim bir sorum olucaktı.

Ben otomatik bir günlük nöbet listesi yapıcam bunun için sizden biraz yardıma ihtiyacım var. İhtiyacım olan şey şu.

Benim bi sayfada alt alta yaklaşık 30 tane isim listem olucak ve ben her değiştir butonuna bastığımda makroyla otomatik olarak en alttaki isim en üstteki sıraya taşınıcak.

Örnek vermem gerekirse;

1 - Ahmet
2 - Mehmet
3 - Veli
.
.
.
.
19- Hasan
20- Ayşe

Değiştir butonuna bastığımda

1 - Ayşe
2 - Ahmet
3 - Mehmet
4 - Veli
.
.
.
.
19- Kubilay
20- Hasan

Şeklinde sıralamanın değişmesini istiyorum bu konuda bana yardımcı olabilirseniz sevinirim sanırım bunu makroyla yapabilirim yardımcı olursanız sevinirim.

Kolay gelsin, iyi çalışmalar.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub SpinButton1_SpinDown()
Dim deg
deg = Range("A30").Value
Range("A2:A29").Copy Range("A3")
Range("A2").Value = deg

End Sub

Private Sub SpinButton1_SpinUp()
Dim deg
deg = Range("A2").Value
Range("A3:A30").Copy Range("A2")
Range("A30").Value = deg
End Sub

 

[resder]

Tam aradığım ve istediğim şekilde olmuş ellerine sağlık çok teşekkür ederim yanlız ufak bir sorunum var bunu interneti usb girişi cd rom girişi olmayan bir yerde yapacağım için aynısını oraya götüremiyorum. Şu okları nasıl ekleyip makroyla birleştirdiğinizide kısaca anlatırsanız çok çok sevinirim

 

[resder]

bir üstteki sorunumu kendim çözdüm fakat şu soruda tıkandım.

Butonlar mevcut çalışma sayfasında fakat çekiceği veriler başka sayfada olucak şekilde bu işlemi nasıl yapabilirim acaba ?

 

[Orion1]

bir üstteki sorunumu kendim çözdüm fakat şu soruda tıkandım.

Butonlar mevcut çalışma sayfasında fakat çekiceği veriler başka sayfada olucak şekilde bu işlemi nasıl yapabilirim acaba ?

Örnek dosya ekleyiniz.