En un determinado formulario tengo un Txb donde debo introducir un nombre, si este nombre existe en una casilla, me devuelve los demás datos para que pueda modificarlos. Hasta aquí todo bien, pero al introducir un nuevo nombre me sale un error que desconozco. Adjunto el código. Creo que es algo relacionado con el Else, no se que debo introducir ahí para que me deje el formulario en blanco y pueda seguir insertando datos para un nuevo registro.
Muchas gracias
Private Sub NomA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Set c = ActiveCell
Cells.Find(NomA, LookAt:=xlWhole).Activate
If ActiveCell.Value = NomA Then
Set c = ActiveCell
nivel = c.Offset(0, 3).Value: hsemana = c.Offset(0, 4).Value: Falta = c.Offset(0, 6).Value: Tb1 = c.Offset(0, 1).Value: Tb2 = c.Offset(0, 2).Value
Nom = c.Offset(0, -5).Value: dni = c.Offset(0, -4).Value: tlfn = c.Offset(0, -3).Value: tlfnMo = c.Offset(0, -2).Value: email = c.Offset(0, -1).Value
Else
End If
End Sub
- - - - - Mensaje combinado - - - - -
Creo que encontré el error.
rivate Sub NomA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Set c = ActiveCell
On Error GoTo Final
Cells.Find(NomA, LookAt:=xlWhole).Activate
If ActiveCell.Value = NomA Then
Set c = ActiveCell
nivel = c.Offset(0, 3).Value: hsemana = c.Offset(0, 4).Value: Falta = c.Offset(0, 6).Value: Tb1 = c.Offset(0, 1).Value: Tb2 = c.Offset(0, 2).Value
Nom = c.Offset(0, -5).Value: dni = c.Offset(0, -4).Value: tlfn = c.Offset(0, -3).Value: tlfnMo = c.Offset(0, -2).Value: email = c.Offset(0, -1).Value
Else
End If
Final:
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola Compañeros,
En un determinado formulario tengo un Txb donde debo introducir un nombre, si este nombre existe en una casilla, me devuelve los demás datos para que pueda modificarlos. Hasta aquí todo bien, pero al introducir un nuevo nombre me sale un error que desconozco. Adjunto el código. Creo que es algo relacionado con el Else, no se que debo introducir ahí para que me deje el formulario en blanco y pueda seguir insertando datos para un nuevo registro.
Muchas gracias
Private Sub NomA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Set c = ActiveCell
Cells.Find(NomA, LookAt:=xlWhole).Activate
If ActiveCell.Value = NomA Then
Set c = ActiveCell
nivel = c.Offset(0, 3).Value: hsemana = c.Offset(0, 4).Value: Falta = c.Offset(0, 6).Value: Tb1 = c.Offset(0, 1).Value: Tb2 = c.Offset(0, 2).Value
Nom = c.Offset(0, -5).Value: dni = c.Offset(0, -4).Value: tlfn = c.Offset(0, -3).Value: tlfnMo = c.Offset(0, -2).Value: email = c.Offset(0, -1).Value
Else
End If
End Sub
- - - - - Mensaje combinado - - - - -
Creo que encontré el error.
rivate Sub NomA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Set c = ActiveCell
On Error GoTo Final
Cells.Find(NomA, LookAt:=xlWhole).Activate
If ActiveCell.Value = NomA Then
Set c = ActiveCell
nivel = c.Offset(0, 3).Value: hsemana = c.Offset(0, 4).Value: Falta = c.Offset(0, 6).Value: Tb1 = c.Offset(0, 1).Value: Tb2 = c.Offset(0, 2).Value
Nom = c.Offset(0, -5).Value: dni = c.Offset(0, -4).Value: tlfn = c.Offset(0, -3).Value: tlfnMo = c.Offset(0, -2).Value: email = c.Offset(0, -1).Value
Else
End If
Final:
End Sub