Listview veri alma

[abdullahss]

Listview e verileri alamıyorum örnekleri inceledim ama yapamadım.Kodlarıma bakıp bana yardımcı olabilirmisiniz.Rica etsem


Private Sub UserForm_Initialize()
With ListView1
listView = lvwReport
.Gridlines = True
.FullRowSelect = True
With .ColumnHeaders
.Clear
For y = 1 To 34
.Add , , Sheets("sayfa1").Cells(1, y), Sheets("sayfa1").Cells(1, y).Width, lvwColumnLeft
Next y
End With
End With
End Sub

 

[mehmetkoca]

Örnek dosya ekleyebilirmisiniz

 

[Husgvarna]

Listview e verileri alamıyorum örnekleri inceledim ama yapamadım.Kodlarıma bakıp bana yardımcı olabilirmisiniz.Rica etsem


Private Sub UserForm_Initialize()
With ListView1
listView = lvwReport
.Gridlines = True
.FullRowSelect = True
With .ColumnHeaders
.Clear
For y = 1 To 34
.Add , , Sheets("sayfa1").Cells(1, y), Sheets("sayfa1").Cells(1, y).Width, lvwColumnLeft
Next y
End With
End With
End Sub

Şöyle denermisiniz.

 Private Sub UserForm_Initialize()
With ListView1
.View = lvwReport
.Gridlines = True
.FullRowSelect = True
.ColumnHeaders.Clear
For y = 1 To 34
.ColumnHeaders.Add , , Sheets("sayfa1").Cells(1, y), Sheets("sayfa1").Cells(1, y).Width, lvwColumnLeft
Next y
End With
End Sub

 

[abdullahss]

Şöyle denermisiniz.

 Private Sub UserForm_Initialize()
With ListView1
.View = lvwReport
.Gridlines = True
.FullRowSelect = True
.ColumnHeaders.Clear
For y = 1 To 34
.ColumnHeaders.Add , , Sheets("sayfa1").Cells(1, y), Sheets("sayfa1").Cells(1, y).Width, lvwColumnLeft
Next y
End With
End Sub

bu şekilde olmadı

 

[Husgvarna]

Eki incelermisiniz.Sadece başlıklar için istediğinizi sanmıştım.

 

[abdullahss]

teşekkürler yapmak istedigim buydu

 

[abdullahss]

bişey daha sormak istiyorum mümkünse texbox lara deger girip ilgili hücreye nasıl kaydederim

 

[Husgvarna]

bişey daha sormak istiyorum mümkünse texbox lara deger girip ilgili hücreye nasıl kaydederim

İkinci sırada bulunan textboxlar ilk sıradakilerle aynı satıramı kaydedilecek o şekilde ise yukarıdaki dosya değişti.
Butondaki kodları başka dosyada kullanmak isterseniz textboxlar 1. den
26. textboxa kadar sıralı olmalıdır.

 

[abdullahss]

Sayın Husgvarna çok teşekkür ederim bu şekilde olacaktı.

 

[abdullahss]

affınıza sıgınarak çok özür dileyerek bişey daha sorabilirmiyim listview e çift tıkladıgımda ilgili satırı texboxlarda nasıl görürüm

 

[Husgvarna]

listview e çift tıkladıgımda ilgili satırı texboxlarda nasıl görürüm

Aşağıdaki gibi olabilir.

 Private Sub ListView1_DblClick()
TextBox1 = ListView1.SelectedItem.Text
x = ListView1.SelectedItem.Index
For a = 2 To 26
Controls("TextBox" & a).Text = ListView1.ListItems(x).ListSubItems(a - 1).Text
Next
End Sub

 

[abdullahss]

çok teşekkürler