Listview düzenleme ?

[igultekin2000]

iyi akşamlar; Listview çalışması yapmaya çalışıyorum. Kabaca işimi gördüm ama biri iki ilave işimi daha da kolaylaştıracak. Textbox ile süzme yaparak ilgili firmanın ortaklarını görmek ve Sayı olana üç sütunun sağa yaslı ve ondalık sistemde gösterilmesi şeklinde. Teşekkürler.

Private Sub CommandButton5_Click()

On Error Resume Next    'EXCEL SAYFASINA AKTARMA

Sheets("HISSE_YAZ").Cells.ClearContents
Application.ScreenUpdating = False
For ss = 1 To 7 'Başlık için dönüyor
Sheets("HISSE_YAZ").Cells(1, ss).Value = Me.ListView1.ColumnHeaders(ss) 'başlık
For i = 1 To Me.ListView1.ListItems.Count 'Sıra numarası için dönüyor
Sheets("HISSE_YAZ").Cells(i + 1, 1).Value = Me.ListView1.ListItems(i) 'Sıra no
Sheets("HISSE_YAZ").Cells(i + 1, ss + 1).Value = Me.ListView1.ListItems(i).ListSubItems(ss) 'Sıra no
Next i, ss
Sheets("HISSE_YAZ").Cells(1, 7).Value = Me.ListView1.ColumnHeaders(7) 'başlık
Application.ScreenUpdating = True
MsgBox "işlem tamam"

 
End Sub

Private Sub CommandButton6_Click()

Unload Me
FORM_GIRIS.Show
End Sub

Private Sub UserForm_Initialize()
With Me.ListView1
        .Gridlines = True
        .FullRowSelect = True
        .View = lvwReport
        .ListItems.Clear
        .ColumnHeaders.Clear
End With

With Me.ListView1.ColumnHeaders
        .Add , , "FİRMA ÜNVAN", 112
        .Add , , "VERGİ NO", 65
        .Add , , "FİRMA ORTAK", 100
        .Add , , "ORTAK TC", 65
        .Add , , "HİSSE", 50
        .Add , , "ORT.PAYI", 50
        .Add , , "ORAN", 45
        .Add , , " ", 1
        
End With
For i = 1 To Sheets(1).Cells(60000, 1).End(3).Row
ListView1.ListItems.Add , , Sheets(1).Cells(i, 1).Value
ListView1.ListItems(i).SubItems(1) = Sheets(1).Cells(i, 2).Value
ListView1.ListItems(i).SubItems(2) = Sheets(1).Cells(i, 3).Value
ListView1.ListItems(i).SubItems(3) = Sheets(1).Cells(i, 4).Value
ListView1.ListItems(i).SubItems(4) = Sheets(1).Cells(i, 5).Value
ListView1.ListItems(i).SubItems(5) = Sheets(1).Cells(i, 6).Value
ListView1.ListItems(i).SubItems(6) = Sheets(1).Cells(i, 7).Value

Next i
End Sub