[Yardım]  Listview Üzerinde Veri Görüntüleme Hakkında..

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Listview Üzerinde Veri Görüntüleme Hakkında..

İleti#1)  yesim_gurol » 08 Tem 2018 19:46

Merhabalar ,
Öğrenmek istediğim, Listview de örneğin,
Kod: Tümünü seç
ListView1.ListItems(i - 2).SubItems(2) = Sheets("AL").Cells(i, 3).Value
Bu kısımda 3 olarak tanımlanan kısım 3.sütun ve 3.sütundaki değerler baştan başlamak sureti ile sütunun son satırına kadar bütün dolu hücre değerlerini göstermekte.
Acaba sütunun hepsi yani nereye kadar iniyorsa (65656. satır gibi) değilde bütün sütunlar için sadece 17.satıra kadar olan verileri listelesin. Çünkü 17.satırdan sonraki değerleri başka bir listview de görüntülemek istiyorum. Bu mümkün müdür?

Lİstview1 açılış kodları bunlar;

Kod: Tümünü seç
Sub UserForm_Initialize()

With ListView1
    .View = lvwReport  'ListView de buna dikkat etmeliyiz, Eğer ListWiev de burayı lvwReport olarak ayarlamazsak diğer yapılan işlemler listemizde gözükmeyecektir.
     .ColumnHeaders.Add , , "M ", 50
     .ColumnHeaders.Add , , "AL1", 40, 2
     .ColumnHeaders.Add , , "AL2", 40, 2
      .ColumnHeaders.Add , , "AL1", 40, 2
       .ColumnHeaders.Add , , "AL2", 40, 2
        .ColumnHeaders.Add , , "AL1", 40, 2
         .ColumnHeaders.Add , , "AL2", 40, 2
          .ColumnHeaders.Add , , "AL1", 40, 2
          .ColumnHeaders.Add , , "AL2", 40, 2
          .ColumnHeaders.Add , , "AL1", 40, 2
          .ColumnHeaders.Add , , "AL1", 40, 2
           
     
     
     
   .FullRowSelect = True 'liste elemanını seçtiğinizde tüm satır seçili olur.
   .Gridlines = True 'Listeyi çizgili yapar.
End With
For i = 3 To Sheets("AL").Cells(6666, 1).End(3).Row
ListView1.ListItems.Add , , Sheets("AL").Cells(i, 1).Value
ListView1.ListItems(i - 2).SubItems(1) = Sheets("AL").Cells(i, 2).Value

ListView1.ListItems(i - 2).SubItems(2) = Sheets("AL").Cells(i, 3).Value
ListView1.ListItems(i - 2).SubItems(3) = Sheets("AL").Cells(i, 4).Value
ListView1.ListItems(i - 2).SubItems(4) = Sheets("AL").Cells(i, 5).Value
ListView1.ListItems(i - 2).SubItems(5) = Sheets("AL").Cells(i, 6).Value
ListView1.ListItems(i - 2).SubItems(6) = Sheets("AL").Cells(i, 7).Value
ListView1.ListItems(i - 2).SubItems(7) = Sheets("AL").Cells(i, 8).Value
ListView1.ListItems(i - 2).SubItems(8) = Sheets("AL").Cells(i, 9).Value
ListView1.ListItems(i - 2).SubItems(9) = Sheets("AL").Cells(i, 10).Value
ListView1.ListItems(i - 2).SubItems(10) = Sheets("AL").Cells(i, 11).Value





Next i


End Sub
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 62
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

Cevap: Listview Üzerinde Veri Görüntüleme Hakkında..

İleti#2)  feraz » 08 Tem 2018 20:04

For i = 3 To Sheets("AL").Cells(6666, 1).End(3).Row yerine For i = 3 To 17
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Listview Üzerinde Veri Görüntüleme Hakkında..

İleti#3)  yesim_gurol » 08 Tem 2018 20:14

feraz yazdı:For i = 3 To Sheets("AL").Cells(6666, 1).End(3).Row yerine For i = 3 To 17


Sayın feraz , teşekkür ederim. şkşk

Aynı mantık ile , mesela 17 ile 28 arasını listelemek istersem de bu kez ,For i = 17 To 28 yapmam gerekiyor sanırım.
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 62
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

Cevap: Listview Üzerinde Veri Görüntüleme Hakkında..

İleti#4)  feraz » 08 Tem 2018 20:16

Rica ederim,mantıken dediğiniz gibi olmalı sayılar ihanet etmezse :)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Listview Üzerinde Veri Görüntüleme Hakkında..

İleti#5)  yesim_gurol » 08 Tem 2018 20:23

feraz yazdı:Rica ederim,mantıken dediğiniz gibi olmalı sayılar ihanet etmezse :)


--)( :) [TESEKKÜR]
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 62
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 3 misafir

Bumerang - Yazarkafe