Saltar de una celda a otra dependiendo de un rango de datos

Me explico con detalle, digamos que si le ingreso dígitos manualmente a la celda h2 con valores 1 a 4 debe saltar a celda i2, pero si son valores de 5 a 99 debe saltar a la celda j2, espero haberme explicado, gracias.

1 respuesta

Respuesta
1

Te dejo el código que puede ayudarte en tu caso, debes pegarlo en la hoja de código de la hoja actual. Quedo pendiente de tu éxito. Saludos

Private Sub Worksheet_Change(ByVal Target As Range)
''Creada por FSerrano en 120222
''Para leoflixe en TodoExpertos.com
''Evalua el valor ingresado en la celda H2 y se mueve a la celda especificada
If Target.Address(False, False) = "H2" Then
    If Application.WorksheetFunction.IsNumber(Range("h2")) = False Then
        a = MsgBox("Dato no admitido, debe ingresar números", , "DATO INVALIDO")
    ElseIf Range("h2").Value > 0 And Range("h2").Value < 5 Then
        Range("i2").Activate
    ElseIf Range("h2").Value >= 5 And Range("h2").Value <= 99 Then
        Range("j2").Activate
    End If
End If
End Sub

 NO OLVIDES FINALIZAR Y PUNTUAR LA PREGUNTA

Hola de nuevo, quedó muy bien Serrano, sólo me quedaría molestarte con la solución para que se aplique en toda la columna h, muchas gracias.

Una respuesta rápida (aunque espero que efectiva)

Prueba a cambiar esta linea

If Target.Address(False, False) = "H2" Then

 por esta otra

If Target.column = 8 Then

 Debería funcionar (si no he pasado algo por alto).

Hola de nuevo, como me dijiste, dejé el código así pero con cualquier valor en las demás celdas de la columna 8 (h), me salta a la celda i2 o j2 dependiendo del valor en h2:

If Target.Column = 8 Then
If Application.WorksheetFunction.IsNumber(Range("h2")) = False Then
a = MsgBox("Dato no admitido, debe ingresar números", , "DATO INVALIDO")
ElseIf Range("h2").Value > 0 And Range("h2").Value < 5 Then
Range("i2").Activate
ElseIf Range("h2").Value >= 5 And Range("h2").Value <= 99 Then
Range("j2").Activate
End If
End If
End Sub

Te agradezco tus comentarios, gracias.

Tal vez se me pasó decirte que necesito que no cambie de renglón, es decir, si estoy en la columna 8, (celda h5) los saltos los de a i5 o j5, gracias.

Para lo que necesitas, prueba con este código. Quedo pendiente de tu éxito. Saludos

Private Sub
Worksheet_Change(ByVal Target As Range)
''Creada por FSerrano en 120222
''Para leoflixe en TodoExpertos.com
''Evalua el valor ingresado en la columna H y se mueve a la celda especificada
If Target.Column = 8 Then 
    If Application.WorksheetFunction.IsNumber(Cells(Target.Row, 8)) = False Then
        a = MsgBox("Dato no admitido, debe ingresar números", , "DATO INVALIDO")
    ElseIf Cells(Target.Row, 8).Value > 0 And Cells(Target.Row, 8).Value < 5 Then
        Cells(Target.Row, 9).Activate
    ElseIf Cells(Target.Row, 8).Value >= 5 And Cells(Target.Row, 8).Value <= 99 Then
        Cells(Target.Row, 10).Activate
    End If
End If
End Sub

NO OLVIDES FINALIZAR Y PUNTUAR LA PREGUNTA

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro que un libro de llamado inventario de uno llamado srvicios diario

Tengo un inventario de 470 vehículos quiero poder realizar una macro que me optimice el tiempo, la cual me realice un barrido por el archivo servicios del mes y me actualice lo que se haya cambiado o modificado, se deben actualizar 4 celdas que hay...
1 respuesta

Auto ejecutar una macro

Quiero que se autoejecute una macro que tengo en un libro pero no se como ya que soy muy novato, el nombre de la macro es Private Sub Worksheet_Change(ByVal Target As Range).
1 respuesta

Macro para comparar datos de 2 libros de excel

Tengo una base la cual se alimenta con varios Excel... Llamemos les id (el num puede ser variable) yo tengo que comparar una columna de la base con una del id"el num es variable" y el dato de la casilla "a1" del id colocarlo en la columna "ah" de la...
1 respuesta

Macro borrar datos de hoja sin borrar formato

Tengo una macro con la que me ayudaron, trabaja muy bien la cual busca datos en un libro y los anota en una hoja llamada buscador, pero a esta hoja no puedo darle formato ya que se elimina al usarlo, es decir por ejemplo si le pongo un fondo a la...
1 respuesta

Cómo registrar el acceso a un archivo excel

Tengo un archivo excel en una carpeta compartida en red, en el que se van introduciendo datos a través de un formulario (UserForm). A este archivo únicamente pueden acceder usuarios autentificados mediante usuario y contraseña. Lo que pretendo hacer...
1 respuesta

Hacer referencia a un valor en una hoja distinta macro

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'rango hasta la celda 2000 If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then 'columna H actualizando col G Target.Offset(0, -1) = Target.Offset(0, -1).Value - Target.Value 'acumula...
1 respuesta

Macro para borrar celda si otra esta vacía o se borra.

Espero puedan ayudarme Cree una macro para que cuando se modifique una celda de la columna N en las celdas de la columna Q y R me detalle fecha de modificación y Usuario. Como la hoja esta protegida también le agregue que me la desproteja y la vuelva...
1 respuesta

Macro comparar valores columnas y copiar y pegar

Necesito realizar un macro que me compare dos columnas y si estas coinciden que me copie y pegue los valores relacionados en una a la otra, vale aclarar que las dos columnas se encuentran en hojas distintas, el proceso sería algo así: Tengo dos hojas...
1 respuesta

Macro que copia celdas sin repetir los datos copiados

Hará cosa de dos meses os consultaba una duda sobre una macro que me copiase celdas de una hoja a otra en determinadas columnas (la pregunta era: "Crear macro que copie celdas si cumplen una condición".) Me funcionó a la perfección, pero usándola me...
1 respuesta

Filtro múltiple con lista desplegable

Tengo un filtro avanzado con múltiples criterios, el cual funciona de manera eficaz y quiero mantenerlo intacto. Hay varios criterios de fechas que quisiera integrar en una celda con lista desplegable. ¿Cómo se puede hacer? Private Sub...
1 respuesta