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.
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 de Eduard Caballero
1