TextBox1'e filtre koyma

[GAZOZ_55]

Merhaba arkadaşlar,

Sil butonunun işlevini bozmadan TextBox1'e filtre özelliği koymak mümkün mü?

 

[Orion1]

Merhaba arkadaşlar,

Sil butonunun işlevini bozmadan TextBox1'e filtre özelliği koymak mümkün mü?

Dosyanız ektedir.

Private Sub CommandButton2_Click()
Dim sh As Worksheet, sonsat1 As Long, sonsat2 As Long
If TextBox1.Value = "" Then Exit Sub
ListBox1.RowSource = ""
Set sh = Sheets("filtre")
sh.Range("A:C").Clear
Range("A1").AutoFilter
Range("A1").AutoFilter field:=1, Criteria1:=CDbl(TextBox1.Value)
Range("A1").CurrentRegion.Copy sh.Range("A1")
sonsat2 = sh.Cells(Rows.Count, "A").End(xlUp).Row
ListBox1.RowSource = "filtre!A2:C" & sonsat2
Range("A1").AutoFilter
End Sub

 

[GAZOZ_55]

Sayın Orion1,

ListBox1'in seçme özelliği bozulmuş maalesef. Resimde de görüldüğü gibi mesela filtre 2 iken ListBox1'de 2 ile başlayan satırı tıkladığımda hücreden de bu satırı seçmesi gerekiyor. Teşekkürler.

 

[Orion1]

Dosyanız ektedir.

'ListBox'tan seçilen satırı Excel'de de seçer
Private Sub ListBox1_Click()
Dim sonsat As Long, k As Range
If ListBox1.ListIndex < 0 Then Exit Sub
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Set k = Range("A2:A" & sonsat).Find(ListBox1.Column(0), , xlValues, xlWhole)
If Not k Is Nothing Then Range("A" & k.Row & ":C" & k.Row).Select
End Sub

 

[GAZOZ_55]

Hocam merhaba,
Çok teşekkür ederim emekleriniz için. Kod çalışıyor ancak aynı kayıttan 2 adet olması durumunda sadece 1 kayıt seçiyor ve ListBox1'de seçilen satırı hücrede seçemiyor. Bunu yaparsanız size çok minnettar kalırım. Teşekkürler.

 

[Orion1]

Bunun için A sünunda ID oluşturun.
Id birbirine benzemeyen rakamlardan oluşur.

 

[Orion1]

Buyurun dosyanız ektedir.

 

[GAZOZ_55]

Teşekkürler hocam.

 

[Orion1]

Teşekkürler hocam.

Rica ederim.
İyi çalışmalar.