Listview de başka sayfadan veri listelemek

[EKREM1661]

Arkadaşlar.. Herkese iyi çalışmalar dileğiyle..

Ekli dosyada; 1.sayfada listview formu açıyorum, verileri ise 2.sayfadan alıyor. Fakat, form açıldığında direk 2.sayfaya gidiyor. Diğer sayfaya gitmeden, yani select komutunu uygulamadan bu işi nasıl yaparız. Gerekli açıklama dosyada da var.. Arkadaşlar bu konuya bir el atabilir miziniz.?

 

[Ömer]

Merhaba,

2. kod bloğunu aşağıdakilerle değiştirin.

Private Sub OKButton_Click()
'Sheets("Sayfa2").Select
    Dim x As Integer, S2 As Worksheet, Liste As ListItem
  
    Set S2 = Sheets("Sayfa2")
 
    With ListView1
        .ListItems.Clear
        For i = 2 To S2.Cells(Rows.Count, "C").End(xlUp).Row
            x = x + 1
            Set Liste = .ListItems.Add(, , S2.Cells(i, 1).Value)
            With Liste
                .SubItems(1) = S2.Cells(i, 3).Value
                .SubItems(2) = S2.Cells(i, 4).Value
                .SubItems(3) = S2.Cells(i, 5).Value
                .SubItems(4) = S2.Cells(i, 6).Value
                .SubItems(5) = S2.Cells(i, 7).Value
                .SubItems(6) = S2.Cells(i, 8).Value
            End With
        Next i
    End With
    Set Liste = Nothing

End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub UserForm_Initialize()
    'Sheets("Sayfa2").Select

    With ListView1
        .View = lvwReport
        .ColumnHeaders.Add , , "Www ", 1
        .ColumnHeaders.Add , , "Excel", 80
        .ColumnHeaders.Add , , "Vba", 60
        .ColumnHeaders.Add , , "Net", 60
        .ColumnHeaders.Add , , "Enes", 60
        .ColumnHeaders.Add , , "Recep", 60
        .ColumnHeaders.Add , , "BAG", 60
        .FullRowSelect = True
        .Gridlines = True
    End With
    OKButton_Click

End Sub

.

 

[EKREM1661]

Saygıdeğer Ömer hocam.. Yardım ihtiyacıma yetiştiğin için çok sevindim. Allah razı olsun.. Yardım konusunda önceki yıllardan beri siz ve Evren bey hocamız gibi arkadaşlarımızdan çok iyilikler biliriz.. İş hayatımızı kolaylaştıran çok sayıda örneklerinizi kullanıyorum. Şimdi de bu uygulama üzerinde uğraşıyorum, fakat bu benim işim değil.. Ancak sizin elinizde şekillenirse sorunsuz çalışacak.. Bu işe el atmışken, bu dosyada yapılacak iki iş var..

1-Listview satırına çift tıklayınca, sadece (C sütunundan aldığı) ismi imlecin bulunduğu aktif hücreye atacak,
2-Ve sayfaya aktarılan isimden (Sayfa1 D3:H20 aralığında) eğer aynısı varsa, önceki mükerrerleri temizleyecek. Bunun için modüle2 de mükerrerleri temizleyen bir kod üzerinde uğraştım, fakat olmadı..

Şimdiden teşekkürler..

 

[EKREM1661]

Değerli hocalarım.. bir bakabilecekmisiniz bu konuya..

1-Listview satırına çift tıklayarak, sadece ismi imlecin bulunduğu aktif hücreye aktarmak ve
2-Sayfaya (Sayfa1) aktarılan isimden aynısı varsa öncekilerini temizleyecek.. Bunun için modüle2 de mükerrerleri temizleyen bir kod üzerinde uğraştım, fakat olmadı..

Bir kez daha yardımlarınızı bekliyorum.. Dosyanın son şekli ektedir.