** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Control de errores
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoControl de errores

 Responder Responder
Autor
Mensaje
JOSE LUIS CALVO Ver desplegable
Habitual
Habitual
Avatar

Unido: 30/Diciembre/2008
Localización: Colombia
Estado: Sin conexión
Puntos: 141
Enlace directo a este mensaje Tema: Control de errores
    Enviado: 15/Febrero/2009 a las 00:25

Como están. Tengo una duda..
Creé un formulario en donde el usuario me debe indicar en dos textbox cuales son los números de las filas que desea seleccionar, es decir, en el textbox1 escribirá desde la fila 8 y en el textox2 escribirá 15 por ejemplo, entonces el código me debe seleccionar el rango entre estas celdas. Pero cuando el usuario por equivocación no escribe solamente el número, sino que adicionalmente escribe algún signo o letra el código arroja un error que no se puede controlar según mi opinión con “On Error GoTo”, les muestro a continuación lo que llevo, pero no sé realmente como controlar el error.

Private Sub CommandButton1_Click()

If textbox1 = "" Or textbox2 = "" Then

   MsgBox ("Debe indicar ambos rangos")

   Else

   Rows(Desde & ":" & Hasta).Select       ‘En esta parte presenta el error cuando uno de los textbox no es solamente numerico

End If

 

 

Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Binghamton NY.
Estado: Sin conexión
Puntos: 3424
Enlace directo a este mensaje Enviado: 15/Febrero/2009 a las 00:37
Hombre, según lo pones, donde dices Rows estas poniendo unas variables inexistentes como son desde y hata, en lugar de textbox1 y textbox2 pero supongo que solo es un error en la transcripción al foro.
 
También puedes probar a validar nuevamente después del else, por ejemplo:
 

Else
  if IsNumeric(Textbox2)
      Rows (Textbox1 & ":" & Textbox2) .select
 else
      Msgbox ("El texto2 debe ser numérico")
 endif
endif
 
Un saludo.
 
 
Luis
Arriba
JOSE LUIS CALVO Ver desplegable
Habitual
Habitual
Avatar

Unido: 30/Diciembre/2008
Localización: Colombia
Estado: Sin conexión
Puntos: 141
Enlace directo a este mensaje Enviado: 15/Febrero/2009 a las 00:43
Tienes toda la razón. No había pensado en esa solución.
 
Muchas gracias, de esta manera controlo solo celdas numéricas, como lo pudé pasar por alto.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable