Listview sütun hizalama sorunu

[ugurdag]

Herkese iyi çalışmalar,
Ekteki dosyamda, listview1'de rakam içeren sütunları sağa hizalamak istiyorum.
Ancak, kodu değiştirdiğim zaman bu kez de userform açılmıyor.
Acaba, hata nerede?

 

[Korhan Ayhan]

Selamlar,

Formunuzun açılış (Initialize) kodunu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub UserForm_Initialize()
    Dim say As Integer
    Sheets("Sayfa1").Select
    TextBox2.Locked = True
    If Range("B2") = "" Then
        say = WorksheetFunction.CountA(Range("B1:B65000"))
        ComboBox1.RowSource = "Sayfa1!B2:B" & say + 1
    Else
        say = WorksheetFunction.CountA(Range("B1:B65000"))
        ComboBox1.RowSource = "Sayfa1!B2:B" & say
    End If
    TextBox2.Value = say
    ComboBox1.SetFocus
    ComboBox2.AddItem "ADET"
    ComboBox2.AddItem "ÇİFT"
    ComboBox2.AddItem "GRAM"
    ComboBox2.AddItem "KG"
    ComboBox2.AddItem "KUTU"
    ComboBox2.AddItem "LİTRE"
    ComboBox2.AddItem "METRE"
    ComboBox2.AddItem "PAKET"
    ComboBox2.AddItem "RULO"
    ComboBox2.AddItem "IESI"
    ComboBox2.AddItem "TOP"
    ComboBox3.AddItem "ELEKTRİK"
    ComboBox3.AddItem "ELEKTRONİK"
    ComboBox3.AddItem "GENEL"
    ComboBox3.AddItem "KIRTASİYE"
    ComboBox3.AddItem "KİMYASAL"
    ComboBox3.AddItem "LABORATUAR"
    ComboBox3.AddItem "IEMİZLİK"
    ComboBox3.AddItem "TONER-KARTUŞ"
    With UserForm1.ListView1
      .ListItems.Clear
      .BackColor = vbBlue
      .ForeColor = vbYellow
      .Gridlines = True
      .View = lvwReport
      .FullRowSelect = True
      
     With UserForm1.ListView1.ColumnHeaders
      
            .Add , , "NO", 30, 0
            .Add , , "CİNSİ", 200, 0
            .Add , , "BİRİM", 50, 0
            .Add , , "STOK", 50, 1
            .Add , , "SINIFI", 70, 0
            .Add , , "ALIMLAR", 50, 1
            .Add , , "TÜKETİM", 50, 1
       End With
    End With
End Sub