listbox
Publicado por edu (63 intervenciones) el 31/01/2009 14:42:45
Hola a todos haber si alguien podria ayudarme:
Mi duda es la siguiente, tengo un listbox en una hoja excel y quiero ir añadiendo nombres.
A B C
1 JOSE 122
2
3 ANTONIO 34
4
5 JUAN 0
el programa que e echo es este:
Dim nombre As Variant
Private Sub ListBox1_Click()
fila= 1
Do
If Cells(fila, 2) > 0 Then
nombre = Cells(fila, 1).Value
ListBox1.Add = nombre (esta funcion no funciona)
ListBox1.List() = nombre (esta tampoco funciona)
End If
fila = fila + 1
Loop Until fila = 1000
End Sub
Alguien me podria decir como se hace para ir añadiendo cosas a un listbox y tambien decirme como se hace para leer la columna fila a fila hasta la ultima que haya escrita, yo en mi caso como nose como se hace pues e puesto un bucle Do Loop Until hasta la linea 1000.
Gracias a todos!!!!
Mi duda es la siguiente, tengo un listbox en una hoja excel y quiero ir añadiendo nombres.
A B C
1 JOSE 122
2
3 ANTONIO 34
4
5 JUAN 0
el programa que e echo es este:
Dim nombre As Variant
Private Sub ListBox1_Click()
fila= 1
Do
If Cells(fila, 2) > 0 Then
nombre = Cells(fila, 1).Value
ListBox1.Add = nombre (esta funcion no funciona)
ListBox1.List() = nombre (esta tampoco funciona)
End If
fila = fila + 1
Loop Until fila = 1000
End Sub
Alguien me podria decir como se hace para ir añadiendo cosas a un listbox y tambien decirme como se hace para leer la columna fila a fila hasta la ultima que haya escrita, yo en mi caso como nose como se hace pues e puesto un bucle Do Loop Until hasta la linea 1000.
Gracias a todos!!!!
Valora esta pregunta
0