Al escribir en un rango de celdas me traslade a otra página

Buenas tardes

Cuando escriba en cualquier celda del Range("C5:C34"), me traslade a la hoja "articulos" ("C34")

Un saludo

2 Respuestas

Respuesta
1

Hazlo así:

Private Sub Worksheet_Change(ByVal Target As Range)
'Marcial Castro
Range("C34").Select
    If Not Intersect(Target, Range("C5:C34")) Is Nothing Then
            Worksheets("Artículos").Select
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'Marcial Castro
    If Not Intersect(Target, Range("C5:C34")) Is Nothing Then
            Worksheets("Artículos").Select
    End If
End Sub

Sobraba una línea.

Respuesta
1

Pon el siguiente evento en la hoja en la que quieres que ocurra

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    If Not Intersect(Target, [C5:C34]) Is Nothing Then
        Sheets("articulos").Select
        Sheets("articulos").[C34].Select
    End If
End Sub

Saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas