Fijar un formulario UserForm1 a mi hoja

Hola le agradezco de antemano por la colaboración.
El problema radica en el formulario que estoy realizando desde visual basic con el formulario UserForm1, realice el código dado a continuación:
Private Sub LIMPIAR_Click()
NOMBRES1 = Empty
APELLIDO1 = Empty
EDAD1 = Empty
DIRECCION1 = Empty
TELEFONOS1 = Empty
CORREO1 = Empty
OCUPACION = Empty
ENVIAR = False
End Sub
Private Sub ENVIAR_Click()
Sheets("BASEDATOS").Select
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = NOMBRES1
ActiveCell.Offset(0, 1).Select
ActiveCell = APELLIDO1
ActiveCell.Offset(0, 1).Select
ActiveCell = EDAD1
ActiveCell.Offset(0, 1).Select
ActiveCell = DIRECCION1
ActiveCell.Offset(0, 1).Select
ActiveCell = TELEFONOS1
ActiveCell.Offset(0, 1).Select
ActiveCell = CORREO1
ActiveCell.Offset(0, 1).Select
ActiveCell = OCUPACION
ActiveCell.Offset(0, 1).Select
End Sub
El asunto es que no se como mantenerlo en la hoja de calculo de excel, oprimo F5 y el me lleva a la hoja pero no me deja seleccionar celdas libre mente solo cuando en el formulario le doy click al icono cerrar "X" el retorna nuevamente al código pero no me lo deja fijo, le agradezco por su pronta respuesta ya que soy nuevo en este tema y estoy aprendiendo gracias.

1 respuesta

Respuesta
1
Lo que se aplica en casos de formularios no es dejarlo fijo en na hoja sino utilizar alguna de las siguientes opciones:
Utilizar un botón ActiveX en la hoja donde quieres que aparezca el formulario y coloca dentro del botón el código
userform1.show
Otra forma es abrirlo en el evento Open del libro
Private Sub Workbook_Open()
UserForm1.Show
End Sub
También en el evento Activate de la hoja donde lo quieras mostrar
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas