listview

[Yigit7444]

Merhaba Hocam
Hocam Gönderdiğim Excel Dosyamada
iki adet listview var
benim yapmak istediğim
listview1 de sayfa isimleri getirebildim sayfa ismlerine tıklayınca
listview2 de sayfadaki veriler gelsin
yardımlarınız için teşekkür ederim

 

[omerfarukzorlu]

Boyle bir kod bulmustum bir ara. Cok sik kullaniyroum ve cok isime yariyor. Cok fazla calisma sayfasi olan dosylarimdaki bilgileri tek sayfada ozetlemek icin. Macro ile butun sayfalari tek sayfada birlestirp INDIRECT formulu ile istedigim veriyi (her sayfada o bilginin konumu ayni olmali) cekiyorum.

'Collect data in one sheet.
Sub Index_更新()
Dim ws As Worksheet
Dim x As Integer
x = 1
Range("A:A").Clear
For Each ws In Worksheets
Cells(x, 1).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!A1", TextToDisplay:=ws.Name
x = x + 1
Next ws

End Sub

 

[werem]

Boyle bir kod bulmustum bir ara. Cok sik kullaniyroum ve cok isime yariyor. Cok fazla calisma sayfasi olan dosylarimdaki bilgileri tek sayfada ozetlemek icin. Macro ile butun sayfalari tek sayfada birlestirp INDIRECT formulu ile istedigim veriyi (her sayfada o bilginin konumu ayni olmali) cekiyorum.

'Collect data in one sheet.
Sub Index_更新()
Dim ws As Worksheet
Dim x As Integer
x = 1
Range("A:A").Clear
For Each ws In Worksheets
Cells(x, 1).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!A1", TextToDisplay:=ws.Name
x = x + 1
Next ws

End Sub

Hocam bendemi sorun var bilmiyorum ama bazı yazı karakterleri çince. vaktiniz olursa bunu excelde çalışır halde paylaşabilir misiniz?

 

[YUSUF44]

Aşağıdaki kodları forma ekleyip deneyin. Listview konusunda pek bilgim yok ama biraz araştırınca buldum. Sizin vesilenizle ben de öğrenmiş oldum:

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
ListView2.View = lvwReport
ListView2.Gridlines = True
sayfa = ListView1.ListItems(ListView1.SelectedItem.Index)
If sayfa <> "boş" And sayfa <> "Ayarlar" And sayfa <> "Anasayfa" And sayfa <> "Ekstre" Then
    ListView2.ListItems.Clear
    son = WorksheetFunction.Max(7, Sheets(sayfa).Cells(Rows.Count, "B").End(3).Row)
    With Sheets(sayfa)
        For i = 7 To son
            ListView2.ListItems.Add = Sheets(sayfa).Cells(i, "B")
            For j = 3 To 6
                ListView2.ListItems(i - 6).SubItems(j - 2) = Sheets(sayfa).Cells(i, j)
            Next
        Next
    End With
End If
End Sub

 

[omerfarukzorlu]

Hocam bendemi sorun var bilmiyorum ama bazı yazı karakterleri çince. vaktiniz olursa bunu excelde çalışır halde paylaşabilir misiniz?

Ben de cok anlamiyorum kodlardan. Lazim oldugu zaman bu kodu direkt yapistiyorum. Calisiyor. Bunu da zaten halihazirda calisan bir dosyadan kopyaladim

 

[Yigit7444]

çok teşekkür ederim