Yan Hücreye Geçmek

[zehirlee]

Merhaba Arkadaşlar,

Bir excel dosyasında ctrl+f ile kod aratma yapıyorum. Aradığım kodu bulduğunda hemen sağındaki hücreye geçmesini istiyorum.
Mümkün müdür ? Basit bir kodu var mıdır?

Yardımınız için teşekkürler

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz

On Error GoTo Hata
Bul = Application.InputBox("Aranacak veriyi giriniz.")
Cells.Find(Bul).Offset(, 1).Activate
Hata:
If Err Then
MsgBox "Aradığınız değer bulunamadı."
End If

 

[zehirlee]

Merhaba cevap için teşekkür ederim. Örnek bir dosya ekledim.

 

[Seyit Tiken]

Kodu bir düğmeye atarak deneyiniz.

On Error GoTo Hata
Bul = Application.InputBox("Aranacak veriyi giriniz")
If Bul = Empty Then Exit Sub
Cells.Find(Bul).Offset(, 1).Activate
Hata:
If Err Then
MsgBox "Aradığınız değer bulunamadı"
End If

 

[zehirlee]

Sanırım Kod hatalı yada beceremedim üstad

 

[YUSUF44]

Kodun makro olduğunu belirten ilk ve son satırlar eklenmemiş sanırım. Kodun başına

Sub yanhucre()

ve sonuna da

End Sub

satırlarını ekleyip kullanın.

 

[zehirlee]

Evet şimdi oldu. Yalnız şöyle bir problemim var. Bir düğme ile çalışıyor. Bu düğmeyi sürekli göreceğim şekilde nasıl monte ederim sayfaya?

Teşekkürler

 

[Seyit Tiken]

Bu kodu kendinize göre günceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("Düğme 1").Top = ActiveCell.Top - 5
Shapes("Düğme 1").Left = ActiveCell.Left + 60
End Sub

 

[zehirlee]

Üstad Çok teşekkürler.