Aşağıdaki kodların açıklaması hakkında bilgi.

[sukruyilmaz1]

If Sheets("sayfa1").Cells(65536, "B").End(xlUp).Row < 2 Then Exit Sub
list = Sheets("sayfa1").Range("A8:I" & Sheets("sayfa1").Cells(65536, "A").End(xlUp).Row).Value
For i = 1 To UBound(list, 1)
With ListView1
.ListItems.Add , , list(i, 1)
s = s + 1
.ListItems(s).ListSubItems.Add , , list(i, 2)
.ListItems(s).ListSubItems.Add , , list(i, 3)
.ListItems(s).ListSubItems.Add , , list(i, 4)
.ListItems(s).ListSubItems.Add , , list(i, 5)
.ListItems(s).ListSubItems.Add , , list(i, 6)
.ListItems(s).ListSubItems.Add , , list(i, 7)
.ListItems(s).ListSubItems.Add , , list(i, 8)
.ListItems(s).ListSubItems.Add , , list(i, 9)
End With
Next i

 

[sukruyilmaz1]

Kolay gelsin arkadaşlar. Userformuma listview ekleyeceğim fakat kendime uyarlamak için bu kodların mantığını anlamam gerekiyor. açıklarsanız sevinirim...kolay gelsin

 

[hamitcan]

If Sheets("sayfa1").Cells(65536, "B").End(xlUp).Row < 2 Then Exit Sub ‘ Satır, ikinci satırın altında ise çık.
list = Sheets("sayfa1").Range("A8:I" & Sheets("sayfa1").Cells(65536, "A").End(xlUp).Row).Value ‘A8 ile I sütunundaki son satıra kadarki aralığı list değişkenine al.
For i = 1 To UBound(list, 1) ‘List aralığındaki en son değere kadar dön ve listview listesini oluştur.
With ListView1
.ListItems.Add , , list(i, 1)
s = s + 1
.ListItems(s).ListSubItems.Add , , list(i, 2)
.ListItems(s).ListSubItems.Add , , list(i, 3)
.ListItems(s).ListSubItems.Add , , list(i, 4)
.ListItems(s).ListSubItems.Add , , list(i, 5)
.ListItems(s).ListSubItems.Add , , list(i, 6)
.ListItems(s).ListSubItems.Add , , list(i, 7)
.ListItems(s).ListSubItems.Add , , list(i, 8)
.ListItems(s).ListSubItems.Add , , list(i, 9)
End With
Next i
Daha fazlası için kodun çalışmasını izlemelisiniz.

 

[sukruyilmaz1]

çok teşekkür ederim sayın hamitcan uzmanım.

 

[sukruyilmaz1]

Sayın uzmanım, userformumda bulunan listview de bu kodlar var. fakat listview e çift tıklayınca ilgili yerlere bilgiler yanlış bir şekilde geliyor. bazıları boş kalıyor. bunun sebebi nedir acaba?

Dim list(), i As Long
Dim s As Integer
Dim Tarih As Date


ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.FullRowSelect = True
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear

With ListView1.ColumnHeaders
.Add , , "Yapılan İşin Adı", 90
.Add , , "Yüklenicinin Adı", 90, lvwColumnCenter
.Add , , "İhale Tarihi", 80, lvwColumnCenter
.Add , , "Sözleşme Tarihi", 100, lvwColumnCenter
.Add , , "Sözleşme Bedeli", 90, lvwColumnCenter
.Add , , "İş Teslim Tarihi", 100, lvwColumnCenter
.Add , , "İşin Süresi", 80, lvwColumnCenter
.Add , , "Bitim Tarihi", 80, lvwColumnCenter
.Add , , "Uygulama Nosu", 80, lvwColumnCenter
.Add , , "Yıllara Sari Durumu", 100, lvwColumnCenter
.Add , , "Fiyat Farkı", 80, lvwColumnCenter
.Add , , "İşçilik", 70, lvwColumnCenter
.Add , , "Çimento", 70, lvwColumnCenter
.Add , , "Demir", 60, lvwColumnCenter
.Add , , "Diğer Malz", 80, lvwColumnCenter
.Add , , "Akaryakıt", 70, lvwColumnCenter
.Add , , "makina ve Ekip.", 80, lvwColumnCenter
.Add , , "Kereste", 70, lvwColumnCenter
.Add , , "Hizmet Türü", 70, lvwColumnCenter

End With


If Sheets("VERİ").Cells(65536, "a").End(xlUp).Row < 1 Then Exit Sub
list = Sheets("VERİ").Range("A2:S" & Sheets("VERİ").Cells(65536, "A").End(xlUp).Row).Value
For i = 1 To UBound(list, 1)
With ListView1
.ListItems.Add , , list(i, 1)
s = s + 1
.ListItems(s).ListSubItems.Add , , list(i, 2)
.ListItems(s).ListSubItems.Add , , list(i, 3)
.ListItems(s).ListSubItems.Add , , list(i, 4)
.ListItems(s).ListSubItems.Add , , list(i, 5)
.ListItems(s).ListSubItems.Add , , list(i, 6)
.ListItems(s).ListSubItems.Add , , list(i, 7)
.ListItems(s).ListSubItems.Add , , list(i, 8)
.ListItems(s).ListSubItems.Add , , list(i, 9)
.ListItems(s).ListSubItems.Add , , list(i, 10)
.ListItems(s).ListSubItems.Add , , list(i, 11)
.ListItems(s).ListSubItems.Add , , list(i, 12)
.ListItems(s).ListSubItems.Add , , list(i, 13)
.ListItems(s).ListSubItems.Add , , list(i, 14)
.ListItems(s).ListSubItems.Add , , list(i, 15)
.ListItems(s).ListSubItems.Add , , list(i, 16)
.ListItems(s).ListSubItems.Add , , list(i, 17)
.ListItems(s).ListSubItems.Add , , list(i, 18)
.ListItems(s).ListSubItems.Add , , list(i, 19)



End With
Next i
End Sub

Private Sub ListView1_DblClick()
TextBox1.Text = ListView1.SelectedItem.ListSubItems(1).Text
TextBox2.Text = ListView1.SelectedItem.ListSubItems(2).Text
TextBox3.Text = ListView1.SelectedItem.ListSubItems(3).Text
TextBox4.Text = ListView1.SelectedItem.ListSubItems(4).Text
TextBox5.Text = ListView1.SelectedItem.ListSubItems(5).Text
TextBox6.Text = ListView1.SelectedItem.ListSubItems(6).Text
TextBox7.Text = ListView1.SelectedItem.ListSubItems(7).Text
TextBox8.Text = ListView1.SelectedItem.ListSubItems(8).Text
TextBox9.Text = ListView1.SelectedItem.ListSubItems(9).Text


TextBox27.Text = ListView1.SelectedItem.ListSubItems(12).Text
TextBox28.Text = ListView1.SelectedItem.ListSubItems(13).Text
TextBox29.Text = ListView1.SelectedItem.ListSubItems(15).Text
TextBox30.Text = ListView1.SelectedItem.ListSubItems(14).Text
TextBox31.Text = ListView1.SelectedItem.ListSubItems(17).Text
TextBox32.Text = ListView1.SelectedItem.ListSubItems(16).Text
TextBox33.Text = ListView1.SelectedItem.ListSubItems(18).Text

ComboBox6.Text = ListView1.SelectedItem.ListSubItems(11).Text
ComboBox7.Text = ListView1.SelectedItem.ListSubItems(10).Text




End Sub

 

[hamitcan]

Aşağıdaki bölümde diziden ListView içine veriler getiriliyor, bu kısmı düzenlemeniz gerekiyor.

For i = 1 To UBound(list, 1)
With ListView1
.ListItems.Add , , list(i, 1)
s = s + 1
.ListItems(s).ListSubItems.Add , , list(i, 2)
.ListItems(s).ListSubItems.Add , , list(i, 3)
.ListItems(s).ListSubItems.Add , , list(i, 4)
.ListItems(s).ListSubItems.Add , , list(i, 5)
.ListItems(s).ListSubItems.Add , , list(i, 6)
.ListItems(s).ListSubItems.Add , , list(i, 7)
.ListItems(s).ListSubItems.Add , , list(i, 8)
.ListItems(s).ListSubItems.Add , , list(i, 9)
.ListItems(s).ListSubItems.Add , , list(i, 10)
.ListItems(s).ListSubItems.Add , , list(i, 11)
.ListItems(s).ListSubItems.Add , , list(i, 12)
.ListItems(s).ListSubItems.Add , , list(i, 13)
.ListItems(s).ListSubItems.Add , , list(i, 14)
.ListItems(s).ListSubItems.Add , , list(i, 15)
.ListItems(s).ListSubItems.Add , , list(i, 16)
.ListItems(s).ListSubItems.Add , , list(i, 17)
.ListItems(s).ListSubItems.Add , , list(i, 18)
.ListItems(s).ListSubItems.Add , , list(i, 19)