Listar una tabla de Excel en un Listview

"Luis Purata" schreef in bericht
news:

Como puedo listar una tabla de datos en excel en un listview sobre un
formulario?

hay alguna forma de hacer cambios en la informacion de cada celda sobre un
formulario?

que me sugieren???

m_iUserForm:
1 x m_iListView
1 x m_iCloseButton
1 x m_iImageList (Microsoft ImageList Control Version 6.0)

m_iListView propiedades:
- FullRowSelect: True
- View: lvwReport
- Column Headers: 1. Nombre, 2. Dirección, 3. Ciudad

m_iImageList
1 x 16x16 icon

Hoja1:
A1: Nombre
B1: Dirección
C1: Ciudad



Private Sub UserForm_Initialize()

'Objetos
Dim wb As Workbook
Dim ws As Worksheet
Dim lvItem As Variant

'líneas & columnas
Dim r, c As Integer

Set wb = ThisWorkbook
Set ws = wb.Sheets("Hoja1")

r = 2: c = 1
ws.Activate
ws.Cells(r, c).Select

'16x16 icons ImageList?
m_iListView.SmallIcons = m_iImageList
m_iListView.Icons = m_iImageList

While ActiveCell.Value <> ""

'ListView Columna 1
Set lvItem = m_iListView.ListItems _
.Add((r - 1), , ws.Cells(r, c), 1, 1)
'ListView Columna 2
lvItem.SubItems(1) = ws.Cells(r, (c + 1)).Value
'ListView Columna 3
lvItem.SubItems(2) = ws.Cells(r, (c + 2)).Value

r = r + 1
ws.Cells(r, c).Select

Wend

Set lvItem = Nothing
Set ws = Nothing
Set wb = Nothing

End Sub

Carpeta
Descripción
Dirección

1
** Microsoft Excel *
http://esnips.com/web/GabrielRaigosa

2
Archivos para usar en clase
http://esnips.com/web/RaigosaClase

3
Fechas y Horas
http://esnips.com/web/RaigosaFechasHoras

4
Formato y Formato Condicional
http://esnips.com/web/RaigosaFormatos

5
Foro Excel
http://esnips.com/web/ForoExcel

6
Funciones de Busqueda
http://esnips.com/web/RaigosaBusqueda

7
Funciones de Texto
http://esnips.com/web/RaigosaTexto

8
Funciones Financieras
http://esnips.com/web/RaigosaFinancieras

9
Funciones Logicas
http://esnips.com/web/RaigosaLogicas

10
Graficos con Excel
http://esnips.com/web/RaigosaGraficos

11
Grupo (Sabados)
Privado

12
Grupo (Viernes)
Privado

13
Grupo Excel Septiembre
Privado

14
Juegos con Excel
http://esnips.com/web/RaigosaJuegosExcel

15
Macros con Excel
http://esnips.com/web/Macros-con-Excel

16
Manuales Excel
http://esnips.com/web/RaigosaManuales

17
Paginas WEB
http://esnips.com/web/RaigosaPaginasExcel

18
Practicas - XLS
http://esnips.com/web/RaigosaPracticasXLS

19
Tablas Dinámicas
http://esnips.com/web/RaigosaTablasDinamicas

20
TEST
http://esnips.com/web/GabrielRaigosa-test

21
Validación
http://esnips.com/web/RaigosaValidacion

22
Varios
http://esnips.com/web/RaigosaVarios

23
VBA - Visual Basic para Aplicaciones
http://esnips.com/web/RaigosaVBA



Gabriel Raigosa
http://esnips.com/web/Raigosa
http://esnips.com/web/ForoExcel
"Luis Purata" escribió en el mensaje
news:
| Como puedo listar una tabla de datos en excel en un listview sobre un
| formulario?
|
| hay alguna forma de hacer cambios en la informacion de cada celda sobre un
| formulario?
|
| que me sugieren???
|
|