Userformda düşeyara

[gur_carn]

Üstadlarım İyi Çalışmalar.

Benim sorum brz klasik olacak ama düşey ara ile ilgili.

Ekteki örnek dosyada bul adlı sayfada bir userform var. Userform içindeyken o kelimeyi data adlı sayfadan düşeyara ile çekmek ve userformdaki kaydet butoonu ile bulda istediğim yere eklemek istiyorum.

Üstadlar cvplarınızı sabırsızlıkla bekliorumm.

Herkes başka bir listboxa sayfa adlarını çağırıp o listeden seçior. Ben istiyorum ki doğrudan doğruya "data" adlı sayfadan çekmek istiryorum..


İy çalışmalar

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub TextBox1_Change()
Dim sat As Integer
    For sat = 2 To Sheet2.Cells(65536, "a").End(xlUp).Row
        If Sheet2.Cells(sat, "a") Like "*" & TextBox1 & "*" Then
            TextBox2 = Sheet2.Cells(sat, "b").Value
        End If
    Next
End Sub

 

[gur_carn]

çok saolasın ...

bu kadar basit bir şeyi çıkartamadım))

kolay gele

 

[gur_carn]

Arkadaşlar bir örnek daha koydum. Hem düşey hem yatay aynı anda aratma yapmak istiyorum ki böylece doru veriyi alabileym.

Bana yardımcı olabilirmisinz??

Ii çalışmalar

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox4_Change()
Dim k As Range
TextBox1.Text = "": TextBox2.Text = "": TextBox3.Text = ""
If TextBox4.Text = "" Then Exit Sub
Set k = Sheets("DATA2").Range("A3:A65536").Find(TextBox4.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
    TextBox1.Text = k.Row
    TextBox2.Text = k.Column
    TextBox3.Text = k.Value
End If
End Sub