temel listview uygulamaları

[öğrtm]

mrb listview le çalışma yapılırken temel bazı işlemler konusunda yardım almak istiyorum
1-textboxtan lw e veri kaydetme
2-veri silme
3-veri değiştirme
4-dblclick yapıldığında textlere veriyi gönderme(listboxta dblclickle yaptığım için bu şekilde yazdım
daha pratik yolu varsa o da olabilir.
5-lvw in rowsource özelliği
yardımlarınız için şimdiden teşekkürler

örnek olarak hazırladığım çalışma ektedir.

 

[halit3]

aşağıdaki kodları denermisiniz.

Private Sub CommandButton1_Click()
Satir = WorksheetFunction.CountA(ActiveSheet.Range("a1:a65536")) + 1
Cells(Satir, 1) = Satir
Cells(Satir, 2) = TextBox1
Cells(Satir, 3) = TextBox2
UserForm_Initialize
End Sub
Private Sub CommandButton2_Click()
Satir = ListView1.SelectedItem.Index
Cells(Satir, 1) = ""
Cells(Satir, 2) = ""
Cells(Satir, 3) = ""
UserForm_Initialize
End Sub
Private Sub CommandButton3_Click()
Satir = ListView1.SelectedItem.Index
Cells(Satir, 1) = Satir
Cells(Satir, 2) = TextBox1.Text
Cells(Satir, 3) = TextBox2.Text
UserForm_Initialize
End Sub
Private Sub ListView1_DblClick()
x = ListView1.SelectedItem.Index
TextBox1.Text = ListView1.ListItems(x).ListSubItems(1).Text
TextBox2.Text = ListView1.ListItems(x).ListSubItems(2).Text
End Sub

Private Sub UserForm_Initialize()
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.FullRowSelect = True
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
With ListView1.ColumnHeaders
.Add , , "Sıra No", 40
.Add , , "Okul No", 40, lvwColumnCenter
.Add , , "Adı Soyadı", 100, lvwColumnCenter
End With
For i = 1 To Cells(60000, "A").End(xlUp).Row
ListView1.ListItems.Add , , Cells(i, "A").Value
ListView1.ListItems(i).SubItems(1) = Cells(i, "B").Value
ListView1.ListItems(i).SubItems(2) = Cells(i, "C").Value
Next i
End Sub

 

[öğrtm]

halit bey teşekkür ederim kodlar için çalışmalarımda kullanacağım.iyi günler

 

[öğrtm]

arkadaşlar listview in rowsource özelliği ile ilgili bir örnek yapabilirmisiniz.forumda bu konuda bir başlık var ama eklenen dosyalar açılmıyor.

 

[öğrtm]

mrb
ekle butonuma bastığımda verilerim sayfaya doğru bir şekilde kaydediliyor.fakat listview e alırken birinci kolondaki (sıra no kolonu) veriler iki defa alt alta listeye ekleniyor.konuyla ilgili dosyam ektedir.ilgileriniz için teşekkürler

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
[B][COLOR="Red"]ListView1.ListItems.Clear[/COLOR][/B]
'Ekleme yapıyoruz (Yeni kayıt yapıyoruz)

 

[öğrtm]

evren bey yardımlarınız için çok teşekkür ederim.
iyi çalışmalar iyi günler.

 

[Orion1]

evren bey yardımlarınız için çok teşekkür ederim.
iyi çalışmalar iyi günler.

Rica ederim.
İyi bayramlar.

 

[öğrtm]

iyi akşamlar

ekteki çalışmamda c sütunundaki veriler aynı ise

Dim rng
For Each rng In Range("c2:c" & [c60000].End(3).Row)

If rng.Value = rng.Offset(-1, 0).Value Then
rng.Offset(-1, 0).EntireRow.Font.Color = vbGreen
rng.EntireRow.Font.Color = vbGreen
End If

Next rng

kodlarıyla o satırları renklendiriyorum.yapmak istediğim

1- userform aktif olurkende listvievin 3.kolonunda da aynı işlemin gerçekleşmesini
2-fakat birbirin aynısı olan veri sayısı birden fazla ise her grubun rengi farklı olmalı mesela ikitane 100 varsa onlar yeşil üç tane 50 varsa o grub kırmızı gibi

 

[öğrtm]

çalışmayı şimdi ekledim

çalışmayı şimdi ekledim