Sayın Leventm ilginize teşekkür ederim.
verdiğiniz kod yazdığım rakama ait satıra gidiyor.
Ben 1. sütundaki veriyi bulmasını ve o satıra gitmesini istiyorum.
[vb:1:be989a50da]Private Sub TextBox5_Change()
On Error Resume Next
If TextBox5 = "" Then Exit Sub
ListBox1.ListIndex = TextBox5.Value - 1
deg = ListBox1.Column(0)
sat = [b1:b65536].Find(deg).Row
Cells(sat, 2).Select
End Sub
[/vb:1:be989a50da]
Sayfanın tamamını göndermedim
sayfa 2000 satırda bulunan poz numaraları ve bunlara ait imalat adı var. Ben bunlardan kullanmak istediğimi sayfaya kayıt edeceğim.
ararken numarasını bildiğim poz noların yazarak o satırın gelmesini istiyorum.
Private Sub CommandButton5_Click()
Sheets("DATA").Visible = True
Sheets("DATA").Select
Dim bak As Range
For Each bak In Range("D1" & WorksheetFunction.CountA(Range("D165000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox5.Value, vbUpperCase) Then
bak.Select
TextBox2.Value = ActiveCell.Offset(0, 0).Value
TextBox3.Value = ActiveCell.Offset(0, 1).Value
TextBox4.Value = ActiveCell.Offset(0, 2).Value
Exit Sub
End If
Next bak
MsgBox "Aradığınız isimde bir kayıt bulunamadı"
Sheets("DATA").Visible = False
End Sub
kodu ile yap button ile yaptım ama ben poz'u yazdığımda listbox'da imleç poz'un bulunduğu satırı işaretlemesini istiyorum. buttonu kaldırma istiyorum.
Private Sub TextBox5_Change()
Static yeri
BLOK = Me.TextBox5.SelStart
If yeri < BLOK Then
ara = Left(Me.TextBox5, BLOK)
On Error Resume Next
ADR1 = ActiveSheet.Range("D13000").Find(ara).Address
SONUC = Range(ADR1).Value
On Error Resume Next
ADR3 = ADR1
If LCase(Me.TextBox5) <> LCase(Left(SONUC, BLOK)) Then GoTo ARAMA
Do
If ADR1 = adr2 Then GoTo son
adr2 = Range("D13000").FindNext(Range(ADR3)).Address
SONUC = Range(adr2).Value
ADR3 = adr2
ARAMA:
If Not IsEmpty(SONUC) And LCase(Me.TextBox5) = LCase(Left(SONUC, BLOK)) Then
Me.TextBox1 = SONUC
Me.TextBox1.SelStart = BLOK
Me.TextBox1.SelLength = Len(Me.TextBox5) - BLOK
GoTo son
End If
Loop
End If
son:
yeri = Me.TextBox5.SelStart
Sheets("DATA").Visible = True
Sheets("DATA").Select
Dim bak As Range
For Each bak In Range("D1" & WorksheetFunction.CountA(Range("D165000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox5.Value, vbUpperCase) Then
bak.Select
TextBox2.Value = ActiveCell.Offset(0, 0).Value
TextBox3.Value = ActiveCell.Offset(0, 1).Value
TextBox4.Value = ActiveCell.Offset(0, 2).Value
Exit Sub
End If
Next bak
'MsgBox "Aradığınız isimde bir kayıt bulunamadı"
Sheets("DATA").Visible = False
End Sub
Bu kod ile textbox'a girdiğimde veri bulup textbox'a yazıyor ama listbox'da işaretletemedim. Lütfen Yardım. :yardim:
Sayın Leventm yardımınız için Teşekkür ederim.
Yalnız 16,002 yazınca buluyor fakat / işareti bulunan satırlarda işlem yapmıyor.
örnek 16,059/1-B yazınca bulmuyor.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.