Bul ve Hedeflen

[Technology]

Merhabalar,

Forumda baktım lakin ya gözümden kaçtı yada dikkatli bakamadım..Eger Daha önce soruldu ve cevap verildiyse kusura bakmayın

UserForm1 üzerinde 1 textboxum ve bir CommandButonum var.
A Sutununda bir deger arayacagım.

Textbox1.text bir deger yazdıgımda bu degeri A sutununda bulup Bu Satırın
I kolonundaki satırına hedefleyecegim.

Hedeflenmede problem yok ama Form üzerinde aramayı bulamadım...

 

[Recep İpek]

Aşağıdaki kodları deneyebilirsiniz.

Sub  AraSeç()
On Error Resume Next
veri = Textbox1.text 
For Each alan In Range("A2:A100")
If alan = veri Then
alan.offset(0,8).Select
Else
MsgBox "Aradığınız Kayıt Bulunamadı."
Exit Sub
End If
Next
End Sub

 

[Kemal Demir]

Sn.Ripek Gerekli Cevabı vermiş ama bende kucuk bir örnek dosya ile başka bir yoldan cozum onerebilirim.

Dosyayı inceleyiniz.

 

[Kemal Demir]

Aşağıdaki kodları deneyebilirsiniz.

Sub  AraSeç()
On Error Resume Next
veri = Textbox1.text 
For Each alan In Range("A2:A100")
If alan = veri Then
alan.offset(0,8).Select
Else
MsgBox "Aradığınız Kayıt Bulunamadı."
Exit Sub
End If
Next
End Sub

Sn.Ripek,

Yanlıs anlamanızı İstemem ama Zannedersem aşagıdaki Kod Calısmayı sonuclandırmıyor.Yada Ben öyle zannettim.Aşagıdaki Kod'u cıkardıgımızda İse problem yok.

Else
MsgBox "Aradığınız Kayıt Bulunamadı."
Exit Sub

Kusura bakmanızı istemem.İyi Çalışmalar.

 

[Technology]

Cevap Veren gönül dostlarına Teşekkürler..

 

[Recep İpek]

Sn.kemaldemir

Uyarınız için teşekkür ederim.Kod çalışır düşüncesiyle, denemeden göndermiştim.

Sanırım aşağıdaki kod düzgün çalışıyor.

Sub AraSeç()
On Error Resume Next
veri = Textbox1.text 
s = 0
For Each alan In Range("A2:A100")
If alan = veri Then
alan.Offset(0, 8).Select
s = 1
End If
Next
If s = 0 Then
MsgBox "Aradığınız Kayıt Bulunamadı."
Exit Sub
End If
End Sub

 

[Technology]

Ben A Sutununda dedim evet ama burada Döngü ile yaparsam tabi 65 bin satır üzerinde dönerken yavaşlama meydana geliyor.. Dönmeden bunu yapabilme imkanımız varmı?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

on error goto 10
sat=[a1:a65536].find(textbox1).row
cells(sat,9).select
exit sub
10 MsgBox "Aradığınız Kayıt Bulunamadı."

 

[Technology]

Teşekkürler LeventM bu daha iyi oldu