- Katılım
- 3 Mart 2009
- Mesajlar
- 519
- Excel Vers. ve Dili
- excel 2003 tr
Arkadaşlar bu kod kapalı sayfalardan bilgi almak için nasıl değiştirim ?
Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
ListView1.View = lvwReport
With ListView1.ColumnHeaders
.Add , , "BAŞLIK ", 80
.Add , , "AÇIKLAMA ", 80
End With
c = WorksheetFunction.CountA(ActiveSheet.Range("N:N"))
With ListView1
For i = 1 To c
x = x + 1
.ListItems.Add , , Cells(i + 1, 14)
.ListItems(x).SubItems(1) = Cells(i + 1, 15)
Next
End With
ListView1.FullRowSelect = True
ListView1.Gridlines = True
End Sub
Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
ListView1.View = lvwReport
With ListView1.ColumnHeaders
.Add , , "BAŞLIK ", 80
.Add , , "AÇIKLAMA ", 80
End With
c = WorksheetFunction.CountA(ActiveSheet.Range("N:N"))
With ListView1
For i = 1 To c
x = x + 1
.ListItems.Add , , Cells(i + 1, 14)
.ListItems(x).SubItems(1) = Cells(i + 1, 15)
Next
End With
ListView1.FullRowSelect = True
ListView1.Gridlines = True
End Sub