por Adrian » 15 May 2006 10:38
Hola!
Prueba con poner en el activate:
Private Sub userform_Activate()
Sheets("Datos").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Me.ComboBox3.ColumnCount = 5
Me.ComboBox3.RowSource = Selection.Address
Sheets("FORMULARIO").Select
End Sub
Prueba con agregar el evento de inicio:
Private Sub UserForm_Initialize()
Sheets("Datos").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
' Range(Selection, Selection.End(xlToRight)).Select
Me.ComboBox3.ColumnCount = 5
Me.ComboBox3.RowSource = Selection.Address
Sheets("FORMULARIO").Select
End Sub
Aunque creo que con el activate es suficiente.
Salu2.xls