sayfaya gore duzenleme

[osmanucel]

ektekş dosyada combobox dan sectıgım sayfayı gorebılıyorum acaba lıstwıevde sutunları sectıgım sayfanın durumuna gore formatlayabılırmıyım

 

[Husgvarna]

ektekş dosyada combobox dan sectıgım sayfayı gorebılıyorum acaba lıstwıevde sutunları sectıgım sayfanın durumuna gore formatlayabılırmıyım

Merhaba.
Şöyle değiştirin.

Private Sub Listwiev()
'ListView1 Görüntülenme şekli
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.ColumnHeaders.Clear 'Başlıkları temizle
ListView1.ListItems.Clear 'Listeyi temizle
'Başlıklar ekleniyor...
Set baslik = ListView1.ColumnHeaders.Add(Text:=Range("A1"))
Set baslik = ListView1.ColumnHeaders.Add(Text:=Range("B1"))
Set baslik = ListView1.ColumnHeaders.Add(Text:=Range("C1"))
Set baslik = ListView1.ColumnHeaders.Add(Text:=Range("D1"))
Set baslik = ListView1.ColumnHeaders.Add(Text:=Range("E1"))
Set baslik = ListView1.ColumnHeaders.Add(Text:=Range("F1"))
Set baslik = ListView1.ColumnHeaders.Add(Text:=Range("G1"))
Set baslik = ListView1.ColumnHeaders.Add(Text:=Range("H1"))
Set baslik = ListView1.ColumnHeaders.Add(Text:=Range("I1"))
Set baslik = ListView1.ColumnHeaders.Add(Text:=Range("J1"))
Set baslik = ListView1.ColumnHeaders.Add(Text:=Range("K1"))
Set baslik = ListView1.ColumnHeaders.Add(Text:=Range("L1"))
Me.ListView1.ColumnHeaders(6).Alignment = lvwColumnRight
Me.ListView1.ColumnHeaders(7).Alignment = lvwColumnRight
Me.ListView1.ColumnHeaders(8).Alignment = lvwColumnRight
Me.ListView1.ColumnHeaders(9).Alignment = lvwColumnRight
Me.ListView1.ColumnHeaders(10).Alignment = lvwColumnRight
Me.ListView1.ColumnHeaders(11).Alignment = lvwColumnRight
'Veriler ilgili başlıklar altına alınıyor...
For i = 2 To Range("A65530").End(3).Row
    Set deger = ListView1.ListItems.Add(Text:=Range("A" & i))
    deger.SubItems(1) = Range("B" & i)
    deger.SubItems(2) = Range("C" & i)
    deger.SubItems(3) = Range("D" & i)
    deger.SubItems(4) = Range("E" & i)
    deger.SubItems(5) = Range("F" & i)
    deger.ListSubItems(5).Text = Format(deger.ListSubItems(5), "#,##0 KG")
    deger.SubItems(6) = Range("G" & i)
      deger.ListSubItems(6).Text = Format(deger.ListSubItems(6), "#.##0 TL")
    deger.SubItems(7) = Range("H" & i)
    deger.SubItems(8) = Range("I" & i)
      deger.ListSubItems(8).Text = Format(deger.ListSubItems(8), "#,##0.00 TL")
    deger.SubItems(9) = Range("J" & i)
     deger.ListSubItems(9).Text = Format(deger.ListSubItems(9), "#,##0.00 TL")
    deger.SubItems(10) = Range("K" & i)
    deger.ListSubItems(10).Text = Format(deger.ListSubItems(10), "#,##0.00 TL")
    deger.SubItems(11) = Range("L" & i)
Next i
End Sub

 

[osmanucel]

teşekkür ederim sagolun