Merhaba.
Private Sub UserForm_Initialize()
Sheets("STOKLAR").Select
ListView1.View = lvwReport 'istediğiniz uygulma için Listview görünümü= rapor olmalıdır.
With ListView1.ColumnHeaders
.Add , , "STOK KODU"
.Add , , "DEPO İSMİ"
.Add , , "ANA GRUP İSMİ"
.Add , , "STOK ADI"
.Add , , "BİRİMİ"
.Add , , "SATIŞ FİYATI 1"
.Add , , "SATIŞ FİYATI 2"
.Add , , "SATIŞ FİYATI 3"
.Add , , "AÇIKLAMA"
End With
With ListView1
For i = 1 To 20
.ListItems.Add , , Cells(i, 1)
.ListItems(i).SubItems(1) = Cells(i, 2)
.ListItems(i).SubItems(2) = Cells(i, 3)
.ListItems(i).SubItems(3) = Cells(i, 4)
.ListItems(i).SubItems(4) = Cells(i, 5)
.ListItems(i).SubItems(5) = Cells(i, 6)
.ListItems(i).SubItems(6) = Cells(i, 7)
.ListItems(i).SubItems(7) = Cells(i, 8)
.ListItems(i).SubItems(8) = Cells(i, 9)
If i Mod 1 = 0 Then
End If
Next
End With
ListView1.FullRowSelect = True '(liste elemanını seçtiğinizde tüm satır seçili olur. Sadece lvwReport..(Ayrıntılar) görünümünde geçerlidir
ListView1.Gridlines = True '(listeyi çizgili yapar. Bu özellik sadece lvwReport...(Ayrıntılar) görünümünde geçerlidir)
End Sub
kodlarıyla verileri listview e alıyorum.Fakat şunları yapamadım ;
1: İlk satırı sütun başlıkları olarak kullanıyorum.Bu yüzden ilk satırı listview göstermemeli.
2: Listview veri gösterme özelliğini 20 satırdan excel sayfasının tümüne çıkarıyorum fakat boş satırlarıda alıyor.Sadece dolu satırları göstermeli
3: Combobox kullanarak A sütununa göre verileri listvivew de süzmek istiyorum.Daha önce lisbox ta sıraladım ama burada süzmesini istediğim kriterlere uymayan verileri göstermemeli.
Bu konularda listview ile ilgili fazla bişey bulamadım.Yardımcı olursanız çok sevinirim.Şimdiden yardımlarını esirgemeyenlere teşekkürederim.
Saygılarımla.
Private Sub UserForm_Initialize()
Sheets("STOKLAR").Select
ListView1.View = lvwReport 'istediğiniz uygulma için Listview görünümü= rapor olmalıdır.
With ListView1.ColumnHeaders
.Add , , "STOK KODU"
.Add , , "DEPO İSMİ"
.Add , , "ANA GRUP İSMİ"
.Add , , "STOK ADI"
.Add , , "BİRİMİ"
.Add , , "SATIŞ FİYATI 1"
.Add , , "SATIŞ FİYATI 2"
.Add , , "SATIŞ FİYATI 3"
.Add , , "AÇIKLAMA"
End With
With ListView1
For i = 1 To 20
.ListItems.Add , , Cells(i, 1)
.ListItems(i).SubItems(1) = Cells(i, 2)
.ListItems(i).SubItems(2) = Cells(i, 3)
.ListItems(i).SubItems(3) = Cells(i, 4)
.ListItems(i).SubItems(4) = Cells(i, 5)
.ListItems(i).SubItems(5) = Cells(i, 6)
.ListItems(i).SubItems(6) = Cells(i, 7)
.ListItems(i).SubItems(7) = Cells(i, 8)
.ListItems(i).SubItems(8) = Cells(i, 9)
If i Mod 1 = 0 Then
End If
Next
End With
ListView1.FullRowSelect = True '(liste elemanını seçtiğinizde tüm satır seçili olur. Sadece lvwReport..(Ayrıntılar) görünümünde geçerlidir
ListView1.Gridlines = True '(listeyi çizgili yapar. Bu özellik sadece lvwReport...(Ayrıntılar) görünümünde geçerlidir)
End Sub
kodlarıyla verileri listview e alıyorum.Fakat şunları yapamadım ;
1: İlk satırı sütun başlıkları olarak kullanıyorum.Bu yüzden ilk satırı listview göstermemeli.
2: Listview veri gösterme özelliğini 20 satırdan excel sayfasının tümüne çıkarıyorum fakat boş satırlarıda alıyor.Sadece dolu satırları göstermeli
3: Combobox kullanarak A sütununa göre verileri listvivew de süzmek istiyorum.Daha önce lisbox ta sıraladım ama burada süzmesini istediğim kriterlere uymayan verileri göstermemeli.
Bu konularda listview ile ilgili fazla bişey bulamadım.Yardımcı olursanız çok sevinirim.Şimdiden yardımlarını esirgemeyenlere teşekkürederim.
Saygılarımla.
