lıstbox suzme(sayfada suzme yapıyor userformda suzme yapmıyor)

[hypnose]

arkadaslar gunaydın

ektekı calısma yıne bu sıteden buldugum fakat uzerıne bır kac ekleme yaptıgım bır calısma oncelıkle yapanların ellerıne saglık..

Benım bu calısmada yapama ıstedıgım userform1 e combobox ekledım ve bu comboboxa gore STV adlı sheette verı suzeme yapıyor..

suzme ıslemı sayfa uzerınde gerceklesıyor fakat userform uzerınde gerceklesmıyor

nedenını ve cozumunu bılıyorsanız yardımcı olursanız cok sevınırım


tesekkurler

 

[Orion1]

Dosyanız ekte.

Private Sub ComboBox1_Change()
Dim myarr() As String, a As Long, z As Byte, adr As String, k As Range
ListBox1.RowSource = vbNullString
ReDim myarr(1 To 12, 1 To 1)
Set k = Sheets("STV").Range("C11:C65536").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        a = a + 1
        ReDim Preserve myarr(1 To 12, 1 To a)
        For z = 1 To 12
            myarr(z, a) = Sheets("STV").Cells(k.Row, z).Value
        Next z
        Set k = Sheets("STV").Range("C11:C65536").FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
    ListBox1.Column = myarr
End If
Erase myarr
Set k = Nothing
End Sub

 

[hypnose]

tesekkurler fakat sanırım bır yanlıs anlasılma olmus

ben combobox1de suzme yapmayacaım
combobox 2 de suzem yapacagım

 

[Orion1]

tesekkurler fakat sanırım bır yanlıs anlasılma olmus

ben combobox1de suzme yapmayacaım
combobox 2 de suzem yapacagım

Dosyanız ekte.

 

[hypnose]

tesekkurler
ellerınze saglık

 

[Orion1]

tesekkurler
ellerınze saglık

Rica ederim.
İyi çalışmalar.