ilk harf yazılarak nesle kısmından çıkması

[meric68]

yeni kayıt yaparken ÜRÜN GRUBU kısmına altta kayıtlı olan
ürün gurubundaki klima.kombi ve diğerleri ilk harflerini yazarak(yeni kayıtta) çıkmasını nasıl sağlaya biliriz yardım ederseniz sevinirim .
resim olan ekte gerekli açıklamam mevcut yardım edermisiniz.

 

[Mehmet Şahin]

Merhaba,
Textbox3 change olayına aşağıdaki kodları ekleyip denermisiniz?
İyi çalışmalar.

If Backspaced = True Or Trim(TextBox3.Text) = "" Then
Backspaced = False
Exit Sub
End If
Dim s1 As Worksheet
Set s1 = Sheets("1")
son1 = s1.Cells(65536, 3).End(xlUp).Row
Dim i As Long
Dim nSel As Long
For i = 2 To son1
If InStr(1, s1.Cells(i, 3), TextBox3.Text, vbTextCompare) = 1 Then
nSel = TextBox3.SelStart
TextBox3.Text = s1.Cells(i, 3)
TextBox3.SelStart = nSel
TextBox3.SelLength = Len(TextBox3.Text) - nSel
Exit For
End If
Next
Set s1 = Nothing

 

[meric68]

ellerine kollarına sağlık ALLAH senden razı olsun
başarının devamını dilerim
oldu hemde süper.
TEŞEKKÜRLER

 

[meric68]

Pekala bunu Textbox2 uygulaya bilirmiyiz kodları verme imkanınız varmı?
teşekkürler

 

[Mehmet Şahin]

Merhaba,
TextBox2 change olayına ekleyebilirsiniz. Kolay gelsin.

If Backspaced = True Or Trim(TextBox2.Text) = "" Then
Backspaced = False
Exit Sub
End If
Dim s1 As Worksheet
Set s1 = Sheets("1")
son1 = s1.Cells(65536, 2).End(xlUp).Row
Dim i As Long
Dim nSel As Long
For i = 2 To son1
If InStr(1, s1.Cells(i, 2), TextBox2.Text, vbTextCompare) = 1 Then
nSel = TextBox2.SelStart
TextBox2.Text = s1.Cells(i, 2)
TextBox2.SelStart = nSel
TextBox2.SelLength = Len(TextBox2.Text) - nSel
Exit For
End If
Next
Set s1 = Nothing

 

[meric68]

çok ama çok teşekkürler

 

[Mehmet Şahin]

Rica ederim, iyi akşamlar.