Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » obligar a diligenciar datos en una celda para pasar a otra hoja

Visual Basic - obligar a diligenciar datos en una celda para pasar a otra hoja

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

obligar a diligenciar datos en una celda para pasar a otra hoja

Publicado por Gustavo Alexander Garces (1 intervención) el 29/11/2017 23:00:44
Muy buenas tardes, mi consulta es: tengo un libro de excel con varias hojas, en la primera el usuario debe diligenciar unos datos, tengo un boton para pasar a la siguiente, como hago una macro que al presional el boton me valide si se digito toda la informacion, en caso que no, muestre un mensaje y si todo esta en orden pase a la hoja 2..he adelantado algo pero no logro completarla:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub siguiente()
If (Range("d9") = "") And (Range("f9") = "") And (Range("h9") = "") Then
MsgBox ("Por favor diligencie el Caracter de la IE," + Chr(13) + "Academico" + Chr(13) + "Tecnico" + Chr(13) + "o Normal")
End If
If (Range("d10") = "") And (Range("f10") = "") And (Range("h10") = "") Then
MsgBox ("Por favor Diligencie la jornada de la IE")
End If
 
If Range("c11") = "" Then
MsgBox ("Por favor diligencie el Numero de Sedes Urbanas de la IE")
End If
If Range("c12") = "" Then
MsgBox ("Por favor diligencie el Numero de Sedes Rurales de la IE")
End If
 
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

obligar a diligenciar datos en una celda para pasar a otra hoja

Publicado por Antoni Masana (558 intervenciones) el 30/11/2017 07:17:57
Arreglado

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub siguiente()
    If Range("D9") = "" And Range("F9") = "" And Range("H9") = "" Then
       MsgBox "Por favor diligencie el Caracter de la IE," & vbCrLf & _
              "Academico" & vbCrLf & _
              "Tecnico" & vbCrLf & "o Normal", _
              vbCritical + vbOKOnly, "FALTAN DATOS"
       Exit Sub
    End If
 
    If Range("D10") = "" And Range("F10") = "" And Range("H10") = "" Then
       MsgBox "Por favor Diligencie la jornada de la IE", _
              vbCritical + vbOKOnly, "FALTAN DATOS"
       Exit Sub
    End If
 
    If Range("C11") = "" Or Range("C12") = "" Then
       MsgBox "Por favor diligencie el Numero de Sedes Rurales de la IE", _
              vbCritical + vbOKOnly, "FALTAN DATOS"
       Exit Sub
    End If
 
    Sheets("Hoja2").Select
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil

obligar a diligenciar datos en una celda para pasar a otra hoja

Publicado por alex (1 intervención) el 01/12/2017 13:52:33
muchisimas gracias, me funciono perfecto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar