Textbox'a girilen değere göre veri bulma

[msanli]

Selam,

Ekte gönderdiğim dosyada yardımınıza ihtiyacım var.
1- Combobox'dan bir numara seçiyorum (sayfa2 a2:f5 aralığı)
2- Textbox1'e Sayfa2'de a1:a10100 aralığındaki bir değer giriyorum.

Burada yapmak istediğim; girilen değerlere göre textbox1'deki değeri bularak texkbox2'ye getirmesi.

Örnek vermek gerekirse combobox=2 textbox1= 1246 = textbox2=58,968 değerini bulması gerekiyor.

 

[fedeal]

bu tip işlemlerde comboboxun RowSource özelligini kullanmak iyi oluyor calışmanıza sarı renkli bir combobox ekledeim deneyin işinize yarar umarım.iyi çalışmalar.

 

[janveljan]

Formun kod bölümüne aşağıdaki kodları eklerseniz, çözüm olabilir.

Private Sub TextBox1_Change()
On Error GoTo son
TextBox2.Value = WorksheetFunction.VLookup(Val(TextBox1), Sheets("Sayfa2").Range("A2:K10070"), ComboBox1.Value + 1, 0)
If TextBox1 = "" Then TextBox2 = ""
Exit Sub
son:
TextBox2 = ""
End Sub

 

[msanli]

Arkadaşlar teşekkür ederim.
janveljan'ın gönderdiği kod işimi gördü. İstediğim yerlere de ekleyince güzel oldu
Sayın federal sizede teşekkürler. Sizin kodlarınız da güzel ama amacımı yerine getirmiyor.
bir örnek ektedir... incelediğinizde ne demek istediğimi anlayacaksınız.

 

[msanli]

Arkadaşlar, bu konuyla ilgili olarak bir yere kadar geldim, ama bazı yerlerde sorun yaşıyorum. bu sorunlar ekteki dosyada açıkladım. Yardımlarınız için şimdiden teşekkürler.

 

[msanli]

selam,

bu konu hakkında artık sona geldim sayılır.
sizden istediğim textbox'lardaki değerleri nasıl düzenleyebilirim. (Örnek ekteki resim dosyasında)
ayrıca textbox'taki değerleri sağa yaslamak istiyorum.
Yardımlarınız bekliyorum. Kullanıdığım kodlar aşağıda.

=========================
Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton2_Click()
ThisWorkbook.Saved = True
End Sub

Private Sub TextBox1_Change()
On Error GoTo son
TextBox2.Value = WorksheetFunction.VLookup(Val(TextBox1), Sheets("Kalibrasyon").Range("A2:K10070"), ComboBox1.Value + 1, 0)
If TextBox1 = "" Then TextBox2 = ""
Exit Sub
son:
TextBox2 = ""
End Sub

Private Sub TextBox3_Change()
On Error GoTo son
TextBox4.Value = WorksheetFunction.VLookup(Val(TextBox3), Sheets("Kalibrasyon").Range("A2:K10070"), ComboBox1.Value + 1, 0)
If TextBox3 = "" Then TextBox4 = ""
Exit Sub
son:
TextBox4 = ""
End Sub
Private Sub TextBox5_Change()
TextBox6 = (Val(TextBox2) - Val(TextBox4) + Val(TextBox5))
End Sub

Private Sub TextBox7_Change()
Sheets("Tablo54").Range("b3") = TextBox7.Text

End Sub
Private Sub TextBox8_Change()
Sheets("Tablo54").Range("b4") = TextBox8.Text
TextBox9.Value = Sheets("Tablo54").Range("b5")
TextBox10.Value = Val(TextBox6.Value) * Val(TextBox9.Value)
TextBox11.Value = Val(TextBox10) * Val(TextBox7 - 0.0011) / 1000
End Sub

Private Sub UserForm_Initialize()
UserForm1.ComboBox1.RowSource = "SUM!A2:A" & [SUM!A100].End(3).Row
UserForm1.ComboBox2.RowSource = "SUM!B2:B" & [SUM!B100].End(3).Row
TextBox9 = Sheets("Tablo54").[b5]
End Sub


Private Sub CommandButton1_Click()
Unload Me
End Sub
===================