Spin Button ile ileri geri giderken hücrelerde değer olmayınca işlem yapmasın

[ferhatgurbuz]

Arama yaptırdıktan sonra Spin Button ile ileri geri giderken boş hücrelere gelince işlem yapmasın istiyorum.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub SpinButton1_SpinDown()
If ActiveCell.Address(False, False) = "A" & Cells(65536, "A").End(xlUp).Row Then Exit Sub
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value <> "" Then
    MsgBox ActiveCell.Value
End If
End Sub

Private Sub SpinButton1_SpinUp()
If ActiveCell.Address(False, False) = "A1" Then Exit Sub
ActiveCell.Offset(-1, 0).Select
If ActiveCell.Value <> "" Then
    MsgBox ActiveCell.Value
End If
End Sub