Ctrl+F Uygulamasını Kod ile Yazmak

[orrhankaya]

Ctrl+F Uygulamasını Birbirinden farklı değişik kodlar kullanarak yazabiliyorum.
Aradığım ilk kaydı buluyorum. ancak sonraki benzer kayıtları bulamıyorum.
Aşağıdaki kodda nasıl bir değişiklik yapmalıyım.
Yardımcı olacaklara şimdiden teşekkürler.

Private Sub CommandButton1_Click()
On Error Resume Next
Sheets("Sayfa1").Select
Columns("A:A").Select
Selection.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
End Sub

 

[orrhankaya]

Ctrl+F Uygulamasını kod ile yazmak

Sorumun daha iyi anlaşılması ve daha kolay cevaplanması için dosya ekliyorum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Butona her bastığınızda bir sonrakine gidecektir.

[vb:1:4bce8968a3]Private Sub CommandButton1_Click()
On Error Resume Next
If ActiveCell.Column <> 1 Then Sheets("Sayfa1").[a1].Select
Sheets("Sayfa1").Columns("A:A").Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
End Sub
[/vb:1:4bce8968a3]

 

[orrhankaya]

Çok Teşekkür ederim Leventm.
Yaptım, oldu, çalışıyor

 

[baydeniro]

Çok teşekkürler. Text Box nereden uygulanıyor acaba ?