Makroda bir önceki bir sonraki hücreyi seçtirme

[bezl]

Makroda bir önceki bir sonraki hücreyi seçtirmek için nasıl bir kod yazmalıyım

 

[Mahmut Bayram]

Sub alttakine()
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

 

[Mahmut Bayram]

Sub sagasıçra()
ActiveCell.Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
End Sub

 

[bezl]

Çok teşekkür ederim
bir de bulunulan sütunu seçtirebilir miyim

 

[Mahmut Bayram]

Sub bulununsutun()
Selection.EntireColumn.Select
End Sub