crpzz37
Altın Üye
- Katılım
- 4 Kasım 2016
- Mesajlar
- 90
- Excel Vers. ve Dili
- 2010 versıyonunu kullanmaktayım makro dılınde yazım yapmaktayım
- Altın Üyelik Bitiş Tarihi
- 05-04-2027
Selamunaleyküm
Arkadaşlar herkese hayırlı akşamlar. Worksheetimden listview e veri almaktayım. Aldığım verilere ek listview de görünmesini istemediğim bir veri daha çekmek istiyorum. Bunu tag komutu ile yapabileceğim söylendi ama hiç bir örnek bulamadım yardımcı olursanız sevinirim.
ben verileri aşağıdaki gibi alıyorum. SubItems(10)'a tag olarak nasıl alabilrim worksheetimdeki 13.sütunu mesela
Dim sonsatır As Integer
sonsatır = WorksheetFunction.CountA(Worksheets("urunler").Range("a:A"))
Dim x As Integer
Dim Liste As ListItem
urunler.ListView1.ListItems.Clear
For i = 2 To sonsatır
x = x + 1
Set Liste = urunler.ListView1.ListItems.Add(, , x + 1) 'SIRA NO
Liste.SubItems(1) = Cells(i, 2).Value 'ÜRÜN KODU
Liste.SubItems(2) = Cells(i, 3).Value 'ÜRÜN ADI
Liste.SubItems(3) = Cells(i, 4).Value 'DETAY 1
Liste.SubItems(4) = Cells(i, 5).Value 'DETAY 2
Liste.SubItems(5) = Cells(i, 6).Value 'DETAY 3
Liste.SubItems(6) = Cells(i, 7).Value 'BİRİM
Liste.SubItems(7) = Cells(i, 8).Value 'AÇIKLAMA
Liste.SubItems(8) = Int(Cells(i, 10).Value) 'GİRİŞ
Liste.SubItems(9) = Int(Cells(i, 11).Value) 'ÇIKIŞ
Liste.SubItems(10) = Int(Cells(i, 12).Value) 'KALAN
Next i
Arkadaşlar herkese hayırlı akşamlar. Worksheetimden listview e veri almaktayım. Aldığım verilere ek listview de görünmesini istemediğim bir veri daha çekmek istiyorum. Bunu tag komutu ile yapabileceğim söylendi ama hiç bir örnek bulamadım yardımcı olursanız sevinirim.
ben verileri aşağıdaki gibi alıyorum. SubItems(10)'a tag olarak nasıl alabilrim worksheetimdeki 13.sütunu mesela
Dim sonsatır As Integer
sonsatır = WorksheetFunction.CountA(Worksheets("urunler").Range("a:A"))
Dim x As Integer
Dim Liste As ListItem
urunler.ListView1.ListItems.Clear
For i = 2 To sonsatır
x = x + 1
Set Liste = urunler.ListView1.ListItems.Add(, , x + 1) 'SIRA NO
Liste.SubItems(1) = Cells(i, 2).Value 'ÜRÜN KODU
Liste.SubItems(2) = Cells(i, 3).Value 'ÜRÜN ADI
Liste.SubItems(3) = Cells(i, 4).Value 'DETAY 1
Liste.SubItems(4) = Cells(i, 5).Value 'DETAY 2
Liste.SubItems(5) = Cells(i, 6).Value 'DETAY 3
Liste.SubItems(6) = Cells(i, 7).Value 'BİRİM
Liste.SubItems(7) = Cells(i, 8).Value 'AÇIKLAMA
Liste.SubItems(8) = Int(Cells(i, 10).Value) 'GİRİŞ
Liste.SubItems(9) = Int(Cells(i, 11).Value) 'ÇIKIŞ
Liste.SubItems(10) = Int(Cells(i, 12).Value) 'KALAN
Next i