TextBox ile arama

[ocamsul]

Arkadaşlar merhabalar herkese iyi günler, iyi haftalar. Forumda aradım ancak kafam karıştı. Basitçe sorum şu; UserForm üzerinde TextBox1 e girilen isme göre arayıp sayfadaki bilgileri TextBox2.3.4.5...... e buton ile nasıl aktarabiliriz. (Örneklerin çoğu ComboBox ile yapılmış)

 

[ocamsul]

Arkadaşlar Sorunumu Aşağıdaki Kodlarla Çözdüm Ancak Şimdiki Sorun; kodlar verileri TextBoxlara yerleştiriyor, Ancak buna Rağmen Aradığınız isimde bir kayıt bulunamadı mesajı çıkıyor. Bu neden Olabilir?

Private Sub CommandButton2_Click()
TextBox1.SetFocus
CommandButton2.Enabled = False
CommandButton4.Enabled = False
Dim ser As Range
For Each ser In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")) + 10)
ser.Select
If TextBox1.Value = ser Then
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 3).Value
ComboBox1.Value = ActiveCell.Offset(0, 2).Value
TextBox4.Value = ActiveCell.Offset(0, 4).Value
End If
Next ser
MsgBox "Aradığınız isimde bir kayıt bulunamadı...", vbInformatio
End Sub

 

[veyselemre]

TextBox4.Value = ActiveCell.Offset(0, 4).Value
exit sub
End If

 

[Hakan ERDOST]

Sayın ocamsul düzenledğim dosya ekte.Sayfa2 diye bir sayfa ekleyip süzme ve yazdırmayı b sütununda yaptım.Siz kendinze göre sütunu gizleyebliri veya düzenleyebilirsiniz.

 

[ocamsul]

Sn: veyselemre teşekkür ederim. biraz geç oldu ama anladım. Sağolun.