bul ve yanındaki şu hücreye git

[kucukdunyam]

excelde veri aratarak bilgi bulmasını istiyorum ve bulduğumda o satırın 3.cü hücresine bilgi girmek istiyorum.
veriyi bulduğumda kursörümü oraya taşıyacak bi formül yazabilirmiyiz,

Örneğin
3121233 numarasını bulduğumda, kürsörümün bulunan verinin satırının 4.cü hücresine gitmesini istiyorum.

 

[mancubus]

dim bul as Range

Set bul = Cells.Find(What:=3121233, After:=Cells(1, 1), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)

Cells(bul.Row, 4).Activate

 

[kucukdunyam]

bu komutu worksheet kısmına mı yazacağım, acaba, ya da workseet kısmına yazacağım şekilde nasıl düzenleyebiliriz

 

[kucukdunyam]

evet hallettim ve paylaşıyorum
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A:aa]) Is Nothing Then Exit Sub
If Target.Column = 4 Then Target.Offset(1, 5).Select

 

[mancubus]

birinci mesajda sorulan konu ile hallettim deki çözüm aynı şeyler değil yalnız.