Cambio de hoja y activa celda
Hola quisiera la ayuda de alguien necesito realizar la siguiente rutina al cambiar una celda de determinada hoja, necesito que esta cambie a la que yo le indico, hasta hay todo bien el problema es que ademas necesito que se fije en la celda que yo le indico.
¿Cómo lo hag?
Este código tengo y va bien hasta donde indique hasta el cambio de hoja.
Private Sub Worksheet_Change(ByVal Target As Range)
datos = "ag6"
If Not Application.Intersect(Target, Range(datos)) Is Nothing Then
Sheets("Documentos Tributarios").Select
End If
end sub
Saludos y Gracias
¿Cómo lo hag?
Este código tengo y va bien hasta donde indique hasta el cambio de hoja.
Private Sub Worksheet_Change(ByVal Target As Range)
datos = "ag6"
If Not Application.Intersect(Target, Range(datos)) Is Nothing Then
Sheets("Documentos Tributarios").Select
End If
end sub
Saludos y Gracias
1 Respuesta
Respuesta de Elsa Matilde
1
Según tu rutina, ésta se ejecuta al cambiar el contenido de la celda AG6, seleccionando en ese caso otra hoja... ahora agregá en qué celda se debe posicionar, en mi ejemplo selecciono B5
Private Sub Worksheet_Change(ByVal Target As Range)
datos = "ag6"
If Not Application.Intersect(Target, Range(datos)) Is Nothing Then
Sheets("Documentos Tributarios").Select
ActiveSheet.Range("B5").select
End If
end sub
Si esto responde a tu consulta, no olvides finalizarla.
Private Sub Worksheet_Change(ByVal Target As Range)
datos = "ag6"
If Not Application.Intersect(Target, Range(datos)) Is Nothing Then
Sheets("Documentos Tributarios").Select
ActiveSheet.Range("B5").select
End If
end sub
Si esto responde a tu consulta, no olvides finalizarla.
