Sütunda makro kullanarak ileri ve geri gitme

[siar]

Aşağıdaki kodları kullanarak, A sütunuda birer birer ileri ve geri gitmekteyim. Fakat yapamadığım şey, A4 hücresinden sonra daha fazla geri gitmemeli ve liste bitti uyarısı gelmeli. Teşekkürlerimle,

Sub prev()
Sheets(".").Select
ActiveWindow.SmallScroll Down:=15
Range("A40").Select
ActiveWindow.SmallScroll Down:=-21
Range("A4").Select
Selection.Delete Shift:=xlUp
Sheets("Geliş Transfer").Select
Range("B3:C3").Select
End Sub

Sub forw()
Sheets(".").Select
Range("A4").Select
Selection.Insert Shift:=xlDown
Sheets("Geliş Transfer").Select
Range("B3:C3").Select
End Sub

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[Seyit Tiken]

Aşağıdaki gibi kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$5" Then MsgBox "Liste Bitti", vbCritical: [a1].Select
End Sub

 

[siar]

Arkadaslar tesekkur ederim yanıtlar için, lakin tam olarak kullamakta oldugum belgeye update edemedim kodları çünkü ekli belgede kullanmakta oldugum makroda X ısaretini kaydırarak ileri ve geri gidiyorum ve baska bir sayfada da duseyara formülüyle X işaretini kullanarak veri alıyorum. Burada sorun X işareti 4. satırdayken geri tuşua basılırsa, X işaretini silmesi ve listelerin bozulması. Belgeyi ekledim, yardımlarınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub ÖNCEKİ()
    Sheets(".").Select
    Range("A4").Select
    If Range("A4").Value = "X" Then
    MsgBox "LİSTE BİTTİ !", vbCritical
    Else
    Selection.Delete Shift:=xlUp
    Sheets("Geliş Transfer").Select
    Range("B3:C3").Select
    End If
End Sub