listbox'da satır seçmek

[GKMER]

Sorunu excel sayfasında sordum. Bu konuda yardım bekliyorum.

 

[GKMER]

çözüm yokmu

 

[mraltin]

gonderdiginiz dosyayi indiremiyorum.

 

[GKMER]

Bende sorun yok indirdim ama birde zipli gönderiyorum.

 

[Levent Menteşoğlu]

Textbox5 e aşağıdaki kodu yazın.

[vb:1:e6d2c2902f]Private Sub TextBox5_Change()
If TextBox5 = "" Then Exit Sub
ListBox1.ListIndex = TextBox5.Value - 1
End Sub[/vb:1:e6d2c2902f]

 

[GKMER]

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.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[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]

 

[GKMER]

Sayın Leventm bu kodlar aynı şeyi yapıyor.
benim yapmak istediğim veriyi süzüp bularak o satırı işaretlemesi.

 

[Levent Menteşoğlu]

Aynı şeyi yapmıyor, imleçi sayfa üzerinde bulduğu verinin üzerine götürüyor. Sanıyorum tam olarak ne istediğiniz anlaşılamadı

 

[GKMER]

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.

 

[GKMER]

seçme işinide listbox üzerinden yapacağım sayfayı sadece listelemek için kullanıyorum.

 

[GKMER]

Sayın Leventm ben textbox'a 16,002 yazdığımda listbox'da 16,002 nin bulunduğu satır gelsin ve seçili durumda olsun istiyorum.

 

[GKMER]

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.

 

[GKMER]

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:

 

[GKMER]

Olmaz diyorsanız söyleyin. :bad:

 

[Levent Menteşoğlu]

Textbox5 teki kodunuzun bak.select satırından sonra aşağıdaki satırları ilave ederek deneyin.

[vb:1:f8f8e532d2]sat = ActiveCell.Row
ListBox1.ListIndex = sat - 1[/vb:1:f8f8e532d2]

 

[GKMER]

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.

 

[GKMER]

Ayrıca kod ile satır işaretlenince çift tıklama veya aktarma butonları çalışmıyor.