Textboxlara arama işlemi ile veri getirme

[meslek005]

ekte örnek olarak hazırladığım dosyada userform ile tablodan arama yapılıyor. ancak, sonrakini bul dediğimiz zaman tabloda gezinen aktif hücre O SATIR ÜZERİNDEKİ ilgili değerleri textboxlara taşımıyor. ekli dosyayada daha iyi anlaşılmaktadır. inceleyip yardımcı olacak kişilere şimdiden teşekkür ederim.

 

[asi_kral]

Merhaba
Hangi sütuna göre yapacaksınız_?

 

[meslek005]

Textbox

şuan için 3 adet sütun var ama sütun sayısı artacak. sütuna göre değil aranacak değere göre tablo dizisi içerisinde arama yapılacak ve eşleştiği hücre hangi satırda ise o satırın "textboxlara karşılık gelen sütundaki değerleri" soldaki 3 adet textboxa gelmesi sağlanacak. yani sütun sabit değil ama soldaki 3 adet textbox a gelmesi gereken değerler bir şekilde gelecek. teşekkür ederim.

 

[asi_kral]

Merhaba
Userform'un kod bölümündeki tüm kodları silin ve bu kodları ekleyerek deneyin.

Dim S1 As Worksheet, ARA As Range, SAB As Variant, STR As Long
Private Sub CommandButton4_Click()
Set S1 = Sheets("ARŞİV")
Set ARA = S1.Range("F" & ARA.Row & ":H" & STR).Find(TextBox1.Text, , , xlPart)
If Not ARA Is Nothing Then
TextBox2 = S1.Cells(ARA.Row, "F")
TextBox3 = S1.Cells(ARA.Row, "G")
TextBox4 = S1.Cells(ARA.Row, "H")
End If
End Sub
Private Sub CommandButton5_Click() 'ARA BUL
Set S1 = Sheets("ARŞİV")
STR = S1.Range("E" & Rows.Count).End(xlUp).Row
Set ARA = S1.Range("F3:H" & STR).Find(TextBox1.Text, , , xlPart)
If Not ARA Is Nothing Then
TextBox2 = S1.Cells(ARA.Row, "F")
TextBox3 = S1.Cells(ARA.Row, "G")
TextBox4 = S1.Cells(ARA.Row, "H")
End If
End Sub

 

[meslek005]

Textbox ile arama yaparken..

Hocam gönderdiğiniz kodları denedim. ancak aranan değerlerin tamamını bulmuyor. örneğin mehmet arda'yı bulmuyor ve son tıklamamda hata veriyor.

 

[asi_kral]

Hocam gönderdiğiniz kodları denedim. ancak aranan değerlerin tamamını bulmuyor. örneğin mehmet arda'yı bulmuyor ve son tıklamamda hata veriyor.

Üstteki kodu güncelledim.

 

[meslek005]

Textbox

Sayın Hocam, sizide yoruyorum kusura bakmayın. son kodu da denedim ama yine hepsini bulmuyor 3 adet mehmet var ki bu sayı artabilir.. sadece 2 tanesini buluyor.

 

[asi_kral]

Sayın Hocam, sizide yoruyorum kusura bakmayın. son kodu da denedim ama yine hepsini bulmuyor 3 adet mehmet var ki bu sayı artabilir.. sadece 2 tanesini buluyor.

Üstteki kodu güncelledim.

 

[meslek005]

hocam çok teşekkür ederim. istediğim aynen bu ancak bir yerde eksiklik var mesela biz kişinin ismi ile aratıyoruz "SONRAKİ" butonu hepsini tek-tek buluyor.. ama doğum yeri ile arattığımızda ise "SONRAKİ" butonu sonrakileri bulmuyor.

 

[asi_kral]

Merhaba

Dim S1 As Worksheet, ARA As Range, SAB As Variant, STR As Long
Private Sub CommandButton4_Click()
Dim HT As Variant
Set S1 = Sheets("ARŞİV")
On Error GoTo HT
If ARA.Column = 6 Then
Set ARA = S1.Range("F" & ARA.Row & ":H" & STR).Find(TextBox1.Text, , , xlPart)
Else
Set ARA = S1.Range("F" & ARA.Row + 1 & ":H" & STR).Find(TextBox1.Text, , , xlPart)
End If
If Not ARA Is Nothing Then
TextBox2 = S1.Cells(ARA.Row, "F")
TextBox3 = S1.Cells(ARA.Row, "G")
TextBox4 = S1.Cells(ARA.Row, "H")
End If
Exit Sub
HT: MsgBox TextBox1 & " Bu kadar başka yok", vbCritical
End Sub
Private Sub CommandButton5_Click() 'ARA BUL
Set S1 = Sheets("ARŞİV")
STR = S1.Range("E" & Rows.Count).End(xlUp).Row
Set ARA = S1.Range("F3:H" & STR).Find(TextBox1.Text, , , xlPart)
If Not ARA Is Nothing Then
TextBox2 = S1.Cells(ARA.Row, "F")
TextBox3 = S1.Cells(ARA.Row, "G")
TextBox4 = S1.Cells(ARA.Row, "H")
End If
End Sub

Bu kodu deneyin.

 

[meslek005]

Eski değerleri - yeni değerlerle değiştirme

userform üzerinde bulunan combobox1'de (tablodaki eski değer) eski değer seçilsin, textbox1'ede yeni değer girilsin gönder butonu ile tablo üzerendeki ilgili değerler yenisi ile güncellensin.