Listviev'e sayfa'daki veri'yi aldırmak

[M.ACAR]

Dosya'da iki adet sayfam var formu sayfa1'de açıyorum,Sayfa2'deki verileri açılan form içindeki listviev'e aldırmak istiyorum,nasıl bir formül uygulamak gerekiyor.

 

[Orion1]

Dosyanız ekte.

Private Sub UserForm_Initialize()
Dim i As Long, s1 As Worksheet, k As Byte
ListView1.View = lvwReport
Set s1 = Sheets("EKSTRE")
For i = 1 To 9
    ListView1.ColumnHeaders.Add , , s1.Cells(2, i).Value, 150
Next i
For i = 3 To s1.Cells(65536, "A").End(xlUp).Row
    ListView1.ListItems.Add , , s1.Cells(i, "A").Value
    For k = 1 To 8
        ListView1.ListItems(i - 2).SubItems(k) = s1.Cells(i, k + 1).Value
    Next k
Next i
    
End Sub

 

[M.ACAR]

Sayın :Evren GİZLEN çok teşekkür ederim,karşılıksız yapılan bu yardım için.kolay gelsin.

 

[M.ACAR]

Sayın:Evren GİZLEN Bu listviev'e de EKSTRE sayfasının benim belirleyeceğim,sütunlardaki verilerinde alınması hakkında bir yardımcı olurmusunuz.

 

[Orion1]

Sayın:Evren GİZLEN Bu listviev'e de EKSTRE sayfasının benim belirleyeceğim,sütunlardaki verilerinde alınması hakkında bir yardımcı olurmusunuz.

Olurum.

 

[M.ACAR]

Sayın :Evren GİZLEN ; EKSTRE Sayfasında sadece B-E-G-H-I sütunlarının Listviev'de gösterilmesini istiyorum,Bu formülün yazımı konusunda yardımcı olursanız çok sevinirim,şimdiden teşekkür ederim.

 

[Orion1]

Sayın :Evren GİZLEN ; EKSTRE Sayfasında sadece B-E-G-H-I sütunlarının Listviev'de gösterilmesini istiyorum,Bu formülün yazımı konusunda yardımcı olursanız çok sevinirim,şimdiden teşekkür ederim.

Dosyanız ekte.

Dim i As Long, s1 As Worksheet
ListView1.View = lvwReport
Set s1 = Sheets("EKSTRE")
ListView1.ColumnHeaders.Add , , s1.Cells(2, "B").Value, 150
ListView1.ColumnHeaders.Add , , s1.Cells(2, "E").Value, 150
ListView1.ColumnHeaders.Add , , s1.Cells(2, "G").Value, 150
ListView1.ColumnHeaders.Add , , s1.Cells(2, "H").Value, 150
ListView1.ColumnHeaders.Add , , s1.Cells(2, "I").Value, 150
For i = 3 To s1.Cells(65536, "A").End(xlUp).Row
    ListView1.ListItems.Add , , s1.Cells(i, "B").Value
    ListView1.ListItems(i - 2).SubItems(1) = s1.Cells(i, "E").Value
    ListView1.ListItems(i - 2).SubItems(2) = s1.Cells(i, "G").Value
    ListView1.ListItems(i - 2).SubItems(3) = s1.Cells(i, "H").Value
    ListView1.ListItems(i - 2).SubItems(4) = s1.Cells(i, "I").Value
Next i

 

[M.ACAR]

Sayın:Evren GİZLEN ivedi cevabınız için çok teşekkür ederim,vaktiniz olduğu zamanda sizinle bir acı kahve içmekten mutluluk duyarım,saygılarımla.

 

[Orion1]

Sayın:Evren GİZLEN ivedi cevabınız için çok teşekkür ederim,vaktiniz olduğu zamanda sizinle bir acı kahve içmekten mutluluk duyarım,saygılarımla.

Rica ederim.
İçmiş kadar oldum.
İyi çalışmalar.

 

[M.ACAR]

Sayın:Evren GİZLEN gönderilen örnek dosya'da verilen kodlar uyguladığı zaman,EKSTRE Sayfasında yazılı olan Alacak,Borçlu ve Bakiye değerlerinin yerleri Listviev'de karışık olarak sıralanıyor,nedeni nedir acaba...?

Dim i As Long, s1 As Worksheet
ListView1.View = lvwReport
Set s1 = Sheets("EKSTRE")
ListView1.ColumnHeaders.Add , , s1.Cells(2, "B").Value, 150
ListView1.ColumnHeaders.Add , , s1.Cells(2, "E").Value, 150
ListView1.ColumnHeaders.Add , , s1.Cells(2, "G").Value, 150
ListView1.ColumnHeaders.Add , , s1.Cells(2, "H").Value, 150
ListView1.ColumnHeaders.Add , , s1.Cells(2, "I").Value, 150
For i = 3 To s1.Cells(65536, "A").End(xlUp).Row
ListView1.ListItems.Add , , s1.Cells(i, "B").Value
ListView1.ListItems(i - 2).SubItems(1) = s1.Cells(i, "E").Value
ListView1.ListItems(i - 2).SubItems(2) = s1.Cells(i, "G").Value
ListView1.ListItems(i - 2).SubItems(1) = s1.Cells(i, "H").Value
ListView1.ListItems(i - 2).SubItems(1) = s1.Cells(i, "I").Value
Next i

 

[Orion1]

Evet haklısınız gözümden kaçmış.Hatayı düzelttim.Önceki mesajımdan dosyayı indirebilirsiniz.

 

[M.ACAR]

Sayın:Evren bey çok çok teşekkür ederim.

 

[Orion1]

Sayın:Evren bey çok çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.