ComboBox seçimli ListBox Listeleme ve Sayı Formatı!

[ocamsul]

Arkadaşlar merhabalar. İyi haftasonları.

DENEME4 isimli sayfamda listeleme işlemini yapabiliyoruz. Ancak aşağıdaki kodu bu işleme nasıl uygularım fikri olan varmıdır?

Sub bıcım()
Dim sat As Long, myarr()
UserForm1.ListBox1.ColumnCount = 29
UserForm1.ListBox1.ColumnWidths = 0 & ";" & 90 & ";" & 70 & ";" & 40 & ";" & 60 & ";" & 40 & ""
sat = Cells(65536, "A").End(xlUp).Row
ReDim myarr(1 To 29, 1 To sat)
For i = 1 To sat
    For k = 1 To 29
        If k < 3 Then
            myarr(k, i) = Cells(i, k).Value
            Else
            myarr(k, i) = Format(Cells(i, k).Value, "#,##0.000")
        End If
    Next
Next
UserForm1.ListBox1.Column = myarr
End Sub

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_Change()
Dim myarr(), c As Long, i As Long
Sheets("Sayfa1").Select
ListBox1.Clear
son = Cells(65536, 3).End(xlUp).Row
ReDim myarr(1 To 29, 1 To son)
For i = 1 To son
    If LCase(Replace(Replace(Cells(i, 1).Text, "I", "ı"), "İ", "i")) _
    = LCase(Replace(Replace(ComboBox1.Text, "I", "ı"), "İ", "i")) Then
    c = c + 1
        For Y = 1 To 29
            myarr(Y, c) = Format(Cells(i, Y).Value, "#,##0.00")
        Next
    End If
Next
If c > 0 Then
    ReDim Preserve myarr(1 To 29, 1 To c)
    ListBox1.Column = myarr
End If

End Sub

 

[ocamsul]

SN: Evren Gizler; üstadım çok teşekkür ederim. uyguladım oldu. Katkılarınızla güzel bir çalışma ortaya çıkacak.

 

[Orion1]

SN: Evren Gizler; üstadım çok teşekkür ederim. uyguladım oldu. Katkılarınızla güzel bir çalışma ortaya çıkacak.

Rica ederim.
İyi çalışmalar.