spinbutton da hata giderme

[ramazan uçar]

merhaba arkadaşlar.
userform üzerine yerleştirdiğim spinbutton ile aşağıdaki kodlarla listemdeki bilgileri userform uzerindeki textboxlara çağırıp görüntüleyebiliyorum.
fakat geri işlemi yapılırken ilk satıra geldikten sonra tekrar tıklanırsa hata veriyor.bunu engellemenin bir yolu varmı? yada sadece dolu olan satır içinde gezinti yapıp boş olan satıra yada ilk satırdan sonraki tıklamada hata mesajı yerine uygun veri bulunamadı mesajı almak için koda ne gibi bir ilave yapmam gerekiyor?

yardımlarınız için şimdiden teşekkürler...


Private Sub SpinButton1_SpinDown()
Sheets("Data").Select

Cells(ActiveCell.Row - 1, 2).Select

TextBox1.Value = ActiveCell.Value
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 2).Value
TextBox4.Value = ActiveCell.Offset(0, 3).Value
TextBox5.Value = ActiveCell.Offset(0, 4).Value
TextBox6.Value = ActiveCell.Offset(0, 5).Value
TextBox7.Value = ActiveCell.Offset(0, 6).Value
TextBox8.Value = ActiveCell.Offset(0, 7).Value
TextBox9.Value = ActiveCell.Offset(0, 8).Value
TextBox12.Value = ActiveCell.Offset(0, 9).Value
TextBox13.Value = ActiveCell.Offset(0, 10).Value
Image3.Picture = LoadPicture(TextBox12.Text)
End Sub

Private Sub SpinButton1_SpinUp()
Sheets("Data").Select

Cells(ActiveCell.Row + 1, 2).Select

TextBox1.Value = ActiveCell.Value
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 2).Value
TextBox4.Value = ActiveCell.Offset(0, 3).Value
TextBox5.Value = ActiveCell.Offset(0, 4).Value
TextBox6.Value = ActiveCell.Offset(0, 5).Value
TextBox7.Value = ActiveCell.Offset(0, 6).Value
TextBox8.Value = ActiveCell.Offset(0, 7).Value
TextBox9.Value = ActiveCell.Offset(0, 8).Value
TextBox12.Value = ActiveCell.Offset(0, 9).Value
TextBox13.Value = ActiveCell.Offset(0, 10).Value
Image3.Picture = LoadPicture(TextBox12.Text)
End Sub

 

[hamitcan]

Kodun başına,

if ActiveCell.Row=1 then exit sub

satırını ekleyip dener misiniz ?

 

[ramazan uçar]

sayın hamitcan çözüm için teşekkürler.peki son dolu olan satırdan daha aşağı inmemesini nasıl sağlayabiliriz?

 

[hamitcan]

if cells(ActiveCell.Row + 1, 2)=empty then exit sub

şeklinde dener misiniz ?

 

[ramazan uçar]

sayın hamitcan özür dilerim ben istediğimitam olarak anlatamadım sanırım.

diyelimki 10 tane kayıdım var.spinbutton la hareket ederken 10.kayıda geldiğim zaman 11.satıra geçemesin.1.ve 11. satırlar arasında hareket edebilsin.
ama tabiki yeni kayıtlar eklendiğinde o kayıtlarıda görmeme müsade etsin.
sanırım daha açıklayıcı olmuştur.

son verdiğiniz kodla sadece ileri hareket edilebiliyor geri gelinmiyor.

ilginiz için ayrıca teşekkürler

 

[hamitcan]

Dosyanızı ekler misiniz?

 

[ramazan uçar]

dosya ektedir...

 

[hamitcan]

Eskileri ile değiştirin.

Private Sub SpinButton1_SpinDown()
Sheets("Data").Select
If ActiveCell.Row = 1 Then Exit Sub

Cells(ActiveCell.Row - 1, 2).Select

TextBox1.Value = ActiveCell.Value
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 2).Value
TextBox4.Value = ActiveCell.Offset(0, 3).Value
TextBox5.Value = ActiveCell.Offset(0, 4).Value
TextBox6.Value = ActiveCell.Offset(0, 5).Value
TextBox7.Value = ActiveCell.Offset(0, 6).Value
TextBox8.Value = ActiveCell.Offset(0, 7).Value
TextBox9.Value = ActiveCell.Offset(0, 8).Value
TextBox12.Value = ActiveCell.Offset(0, 9).Value
TextBox13.Value = ActiveCell.Offset(0, 10).Value
Image3.Picture = LoadPicture(TextBox12.Text)


End Sub

Private Sub SpinButton1_SpinUp()

Sheets("Data").Select
If Cells(ActiveCell.Row + 1, 2) = Empty Then Exit Sub
Cells(ActiveCell.Row + 1, 2).Select

TextBox1.Value = ActiveCell.Value
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 2).Value
TextBox4.Value = ActiveCell.Offset(0, 3).Value
TextBox5.Value = ActiveCell.Offset(0, 4).Value
TextBox6.Value = ActiveCell.Offset(0, 5).Value
TextBox7.Value = ActiveCell.Offset(0, 6).Value
TextBox8.Value = ActiveCell.Offset(0, 7).Value
TextBox9.Value = ActiveCell.Offset(0, 8).Value
TextBox12.Value = ActiveCell.Offset(0, 9).Value
TextBox13.Value = ActiveCell.Offset(0, 10).Value
Image3.Picture = LoadPicture(TextBox12.Text)

End Sub

 

[ramazan uçar]

sayın hamitcan ilginiz ve yardımlarınız için teşekkürler.