Listview nesnesine verileri aldırmak?

[udentr2002]

Merhaba Arkadaşlar,

Formu aç düğmesine tıkladığımızda açılan form üzerinde ki listview nesnesine Veri adlı sayfadaki bilgilerin gelmesini istiyorum. Ben denedim ama hata veriyor ekli dosyaya bakabilir misiniz?

Şimdiden ilgilenen arkadaşlara teşekkür ederim.

 

[Husgvarna]

Merhaba Arkadaşlar,

Formu aç düğmesine tıkladığımızda açılan form üzerinde ki listview nesnesine Veri adlı sayfadaki bilgilerin gelmesini istiyorum. Ben denedim ama hata veriyor ekli dosyaya bakabilir misiniz?

Şimdiden ilgilenen arkadaşlara teşekkür ederim.

Merhaba.
Modül 3 de ki kodları şöyle deneyin.

 Sub listele()

Dim i  As Long, a As Long, s1 As Worksheet, X As Long
Set s1 = Sheets("Veri")
sat = s1.Cells(65536, "A").End(xlUp).Row
Kayit.ListView1.ListItems.Clear
With Kayit.ListView1
    For i = 2 To sat
      .ListItems.Add , , s1.Cells(i, 1).Value
      X = .ListItems.Count
  For a = 3 To 11
     .ListItems(X).ListSubItems.Add , , s1.Cells(i, a).Value
Next
Next
End With
Kayit.ListView1.FullRowSelect = True
Kayit.ListView1.Gridlines = True
End Sub

 

[udentr2002]

Teşekkürler hocam elinize sağlık.

Formu açtığımda listview nesnesine veriler geliyor. Ancak,
Sayfada mesala veri "0001" şeklinde görünmesine rağmen listview1 nesnesinde bu veri "1" şeklinde görünüyor. Sayfada göründüğü şekli ile listview nesnesinde de aynı şekilde görünmesi için ne yapabilirim.

SAYGILARIMLA

 

[Husgvarna]

Teşekkürler hocam elinize sağlık.

Formu açtığımda listview nesnesine veriler geliyor. Ancak,
Sayfada mesala veri "0001" şeklinde görünmesine rağmen listview1 nesnesinde bu veri "1" şeklinde görünüyor. Sayfada göründüğü şekli ile listview nesnesinde de aynı şekilde görünmesi için ne yapabilirim.

SAYGILARIMLA

"Value" Yerine "Text" yazmanız yeterli.

  For a = 3 To 11
     .ListItems(X).ListSubItems.Add , , s1.Cells(i, a).[COLOR="Red"]Text[/COLOR]

Ayrıca,

"listview" de sütunlarda verileri sağa,ortaya kaydırmak için;

  sat = s1.Cells(65536, "A").End(xlUp).Row
Kayit.ListView1.ListItems.Clear
With Kayit.ListView1
[COLOR="#ff0000"].ColumnHeaders(2).Alignment = lvwColumnCenter
.ColumnHeaders(3).Alignment = lvwColumnCenter
.ColumnHeaders(4).Alignment = lvwColumnCenter
.ColumnHeaders(8).Alignment = lvwColumnRight
.ColumnHeaders(9).Alignment = lvwColumnRight[/COLOR]

    For i = 2 To sat

Sütun genişliğini ayarlamak ve klavuz çizgileri için:

 Private Sub UserForm_Activate()

TextBox1 = Sheets("Veri").Range("l1")

TextBox1.Value = Format(TextBox1 + 1, "000000")
TextBox3.Value = Format(TextBox3, "dd.mm.yyyy")
ListView1.View = lvwReport
[COLOR="#ff0000"]ListView1.Gridlines = True
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
ListView1.FullRowSelect = True[/COLOR]

With ListView1.ColumnHeaders
.Add , , "Sıra No", [COLOR="#ff0000"]25[/COLOR]
.Add , , "Satınalma No" , [COLOR="#ff0000"]50[/COLOR]
'......
'.....

 

[udentr2002]

Hocam
çok teşekkürler geniş ve detaylı bilgileriniz için. Hakkınızı helal edin.