07/06/2005, 01:26
|
| | | Fecha de Ingreso: mayo-2005
Mensajes: 29
Antigüedad: 20 años Puntos: 0 | |
| si
Private Sub carga_cliente()
Worksheets("Clientes").Activate
ActiveSheet.Range("D2").Activate
Do While Not IsEmpty(ActiveCell)
cnif.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
Loop
cnif.ListIndex = -1
End sub
me hace cosas muy estrañas o no me inizializa los combobox o me deja formularios fantasmas por la pantalla |