Değer değiştirme butonu ile verinin yerini değiştirme

[Emir Hüseyin Çoban]

Merhaba Arkadaşlar,

Değer değiştirme buyonundaki alt veya üst oklarını tıkladığımda.
X işareti hangi satırda ise A3:A65000 aralığında bir aşağı veya yukarı götürebilmeliyim.

Yardım ve fikirlerinizi bekliyorum.

 

[hamitcan]

Private Sub SpinButton1_Change()
    Columns(1).Clear
    Cells(SpinButton1.Value, 1) = "X"
End Sub

 

[Emir Hüseyin Çoban]

Private Sub SpinButton1_Change()
    Columns(1).Clear
    Cells(SpinButton1.Value, 1) = "X"
End Sub

Teşekkürler Sy Hamitcan,
Belirli bir hücre aralığında çalışması biraz nasıl bir revize yapmam gerekir.

Private Sub SpinButton1_Change()
    range("a3:a65000").Clear
    Cells(SpinButton1.Value, 1) = "X"
End Sub

Bu şekliyle A3 den önceki verileri silmemesini sağladım. Ancak X işaretinide A3 den öncesine yazmaması gerekiyor.

 

[Emir Hüseyin Çoban]

Teşekkürler Sy Hamitcan,
Belirli bir hücre aralığında çalışması biraz nasıl bir revize yapmam gerekir.

Private Sub SpinButton1_Change()
    range("a3:a65000").Clear
    Cells(SpinButton1.Value, 1) = "X"
End Sub

Bu şekliyle A3 den önceki verileri silmemesini sağladım. Ancak X işaretinide A3 den öncesine yazmaması gerekiyor.

Buton özelliklerinden Max ve Min özelliği ile sorunu çözdüm.
İlgi ve yardımınız için tekrar teşekkürler Sy Hamitcan.