- Katılım
- 15 Mart 2005
- Mesajlar
- 42,242
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Selam Arkadaşlar,
Textbox2 de aşağıdaki kodlarım var. Bu kodlar textboxa girdiğim değeri arayıp buluyor ve o değere ait bilgileri diğer textboxlara getiriyor. Fakat bazı durumlarda yanlışl sonuç alıyorum.
Ã?rnek olarak;
Benim sayfamdaki değerler aşağıdaki sırayla ve karşılarındada bilgiler var.
25
35
5
55
45
75
85
95
....
Textboxa 5 değerini girdiğimde bana 25 değerine ait bilgileri diğer textboxa getiriyor. Ben textboxa hangi değeri giriyorsam sadece ona ait bilgileri nasıl getirebilirim. Aşağıdaki kodda nasıl bir değişiklik yapmam gerekiyor.
Kullanmış olduğum kod;
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo 10
If TextBox2 = "" Then
Cancel = False
TextBox2.BackColor = vbWhite
Exit Sub
End If
Dim ARA As Range
Sheets("PERSONEL").Select
For Each ARA In Range("B2:B" & WorksheetFunction.CountA(Range("B1:B65536")))
If StrConv(ARA.Value, vbUpperCase) = StrConv(TextBox2.Value, vbUpperCase) Then
SATIR = Sheets("PERSONEL").[B2:B65536].Find(TextBox2.Value).Row
TextBox3 = Sheets("PERSONEL").Cells(SATIR, 3).Value
TextBox4 = Sheets("PERSONEL").Cells(SATIR, 4).Value
TextBox2.BackColor = vbWhite
Exit Sub
End If
Next ARA
10 MsgBox ("Girdiğiniz personel kodu kayıtlarda bulunamamıştır."), vbExclamation, "DİKKAT !"
Cancel = True
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox2.SetFocus
TextBox2.BackColor = vbYellow
End Sub
İyi çalışmalar dilerim. :hey:
Textbox2 de aşağıdaki kodlarım var. Bu kodlar textboxa girdiğim değeri arayıp buluyor ve o değere ait bilgileri diğer textboxlara getiriyor. Fakat bazı durumlarda yanlışl sonuç alıyorum.
Ã?rnek olarak;
Benim sayfamdaki değerler aşağıdaki sırayla ve karşılarındada bilgiler var.
25
35
5
55
45
75
85
95
....
Textboxa 5 değerini girdiğimde bana 25 değerine ait bilgileri diğer textboxa getiriyor. Ben textboxa hangi değeri giriyorsam sadece ona ait bilgileri nasıl getirebilirim. Aşağıdaki kodda nasıl bir değişiklik yapmam gerekiyor.
Kullanmış olduğum kod;
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo 10
If TextBox2 = "" Then
Cancel = False
TextBox2.BackColor = vbWhite
Exit Sub
End If
Dim ARA As Range
Sheets("PERSONEL").Select
For Each ARA In Range("B2:B" & WorksheetFunction.CountA(Range("B1:B65536")))
If StrConv(ARA.Value, vbUpperCase) = StrConv(TextBox2.Value, vbUpperCase) Then
SATIR = Sheets("PERSONEL").[B2:B65536].Find(TextBox2.Value).Row
TextBox3 = Sheets("PERSONEL").Cells(SATIR, 3).Value
TextBox4 = Sheets("PERSONEL").Cells(SATIR, 4).Value
TextBox2.BackColor = vbWhite
Exit Sub
End If
Next ARA
10 MsgBox ("Girdiğiniz personel kodu kayıtlarda bulunamamıştır."), vbExclamation, "DİKKAT !"
Cancel = True
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox2.SetFocus
TextBox2.BackColor = vbYellow
End Sub
İyi çalışmalar dilerim. :hey: