Macro que se ejecute cuando cambia el valor en una celda de otra hoja

"para Dante Amor"

Mi archivo tiene varias hojas las de mi interés son :
Hoja3 (Datos)
Hoja4 (Diagrama)
Necesito que la siguiente macro se ejecute cuando en la hoja Datos se cambie el valor de la celda “D13” la macro se encuentra en la hoja Diagrama. La macro se ejecuta perfecto mientras la celda se encuentre en la misma hoja (Diagrama)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$19" Then
If Range("A19").Value = "Fisicoquímica" Then
ActiveSheet.Shapes("6 Conector recto").Visible = True
ActiveSheet.Shapes("8 Conector recto").Visible = True
ActiveSheet.Shapes("11 Conector recto").Visible = True
ActiveSheet.Shapes("19 Conector recto").Visible = True
ActiveSheet.Shapes("24 Conector recto").Visible = True
ActiveSheet.Shapes("31 Conector recto").Visible = True
ActiveSheet.Shapes("33 Conector recto").Visible = True
ActiveSheet.Shapes("34 Conector recto").Visible = True
ActiveSheet.Shapes("35 Conector recto").Visible = True
ActiveSheet.Shapes("36 Conector recto").Visible = True
ActiveSheet.Shapes("37 Conector recto").Visible = True
ActiveSheet.Shapes("40 Conector recto").Visible = True
ActiveSheet.Shapes("46 Conector recto").Visible = True
ActiveSheet.Shapes("48 Conector recto").Visible = True
ActiveSheet.Shapes("17 Conector recto").Visible = False
ActiveSheet.Shapes("21 Conector recto").Visible = False
ElseIf Range("A19").Value = "Física" Then
ActiveSheet.Shapes("6 Conector recto").Visible = False
ActiveSheet.Shapes("8 Conector recto").Visible = False
ActiveSheet.Shapes("11 Conector recto").Visible = False
ActiveSheet.Shapes("19 Conector recto").Visible = False
ActiveSheet.Shapes("24 Conector recto").Visible = False
ActiveSheet.Shapes("31 Conector recto").Visible = False
ActiveSheet.Shapes("33 Conector recto").Visible = False
ActiveSheet.Shapes("34 Conector recto").Visible = False
ActiveSheet.Shapes("35 Conector recto").Visible = False
ActiveSheet.Shapes("36 Conector recto").Visible = False
ActiveSheet.Shapes("37 Conector recto").Visible = False
ActiveSheet.Shapes("40 Conector recto").Visible = False
ActiveSheet.Shapes("46 Conector recto").Visible = False
ActiveSheet.Shapes("48 Conector recto").Visible = False
ActiveSheet.Shapes("17 Conector recto").Visible = True
ActiveSheet.Shapes("21 Conector recto").Visible = True
Else
ActiveSheet.Shapes("6 Conector recto").Visible = True
ActiveSheet.Shapes("8 Conector recto").Visible = True
ActiveSheet.Shapes("11 Conector recto").Visible = True
ActiveSheet.Shapes("19 Conector recto").Visible = True
ActiveSheet.Shapes("24 Conector recto").Visible = True
ActiveSheet.Shapes("31 Conector recto").Visible = True
ActiveSheet.Shapes("33 Conector recto").Visible = True
ActiveSheet.Shapes("34 Conector recto").Visible = True
ActiveSheet.Shapes("35 Conector recto").Visible = True
ActiveSheet.Shapes("36 Conector recto").Visible = True
ActiveSheet.Shapes("37 Conector recto").Visible = True
ActiveSheet.Shapes("40 Conector recto").Visible = True
ActiveSheet.Shapes("46 Conector recto").Visible = True
ActiveSheet.Shapes("48 Conector recto").Visible = True
ActiveSheet.Shapes("17 Conector recto").Visible = True
ActiveSheet.Shapes("21 Conector recto").Visible = True
End If
End If
End Sub

Respuesta
1

H o l a:

Pon la macro, pero en los eventos de la hoja "datos"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$13" Then
        Set h = Sheets("diagrama")
        If h.Range("A19").Value = "Fisicoquímica" Then
            h.Shapes("6 Conector recto").Visible = True
            h.Shapes("8 Conector recto").Visible = True
            h.Shapes("11 Conector recto").Visible = True
            h.Shapes("19 Conector recto").Visible = True
            h.Shapes("24 Conector recto").Visible = True
            h.Shapes("31 Conector recto").Visible = True
            h.Shapes("33 Conector recto").Visible = True
            h.Shapes("34 Conector recto").Visible = True
            h.Shapes("35 Conector recto").Visible = True
            h.Shapes("36 Conector recto").Visible = True
            h.Shapes("37 Conector recto").Visible = True
            h.Shapes("40 Conector recto").Visible = True
            h.Shapes("46 Conector recto").Visible = True
            h.Shapes("48 Conector recto").Visible = True
            h.Shapes("17 Conector recto").Visible = False
            h.Shapes("21 Conector recto").Visible = False
        ElseIf h.Range("A19").Value = "Física" Then
            h.Shapes("6 Conector recto").Visible = False
            h.Shapes("8 Conector recto").Visible = False
            h.Shapes("11 Conector recto").Visible = False
            h.Shapes("19 Conector recto").Visible = False
            h.Shapes("24 Conector recto").Visible = False
            h.Shapes("31 Conector recto").Visible = False
            h.Shapes("33 Conector recto").Visible = False
            h.Shapes("34 Conector recto").Visible = False
            h.Shapes("35 Conector recto").Visible = False
            h.Shapes("36 Conector recto").Visible = False
            h.Shapes("37 Conector recto").Visible = False
            h.Shapes("40 Conector recto").Visible = False
            h.Shapes("46 Conector recto").Visible = False
            h.Shapes("48 Conector recto").Visible = False
            h.Shapes("17 Conector recto").Visible = True
            h.Shapes("21 Conector recto").Visible = True
        Else
            h.Shapes("6 Conector recto").Visible = True
            h.Shapes("8 Conector recto").Visible = True
            h.Shapes("11 Conector recto").Visible = True
            h.Shapes("19 Conector recto").Visible = True
            h.Shapes("24 Conector recto").Visible = True
            h.Shapes("31 Conector recto").Visible = True
            h.Shapes("33 Conector recto").Visible = True
            h.Shapes("34 Conector recto").Visible = True
            h.Shapes("35 Conector recto").Visible = True
            h.Shapes("36 Conector recto").Visible = True
            h.Shapes("37 Conector recto").Visible = True
            h.Shapes("40 Conector recto").Visible = True
            h.Shapes("46 Conector recto").Visible = True
            h.Shapes("48 Conector recto").Visible = True
            h.Shapes("17 Conector recto").Visible = True
            h.Shapes("21 Conector recto").Visible = True
        End If
    End If
End Sub

La macro se activará cuando modifiques la celda D13 de la hoja "Datos", pero actuará sobre la hoja "diagrama"

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

La  macro funciona muy bien solo realice un cambio en  las condiciones:

If h.Range("A19").Value = "Fisicoquímica" Then

ElseIf h.Range("A19").Value = "Física" Then

por estas

If Range("D13").Value = "Fisicoquímica" Then

ElseIf Range("D13").Value = "Física" Then

asta aquí todo muy bien pero el ultimo Else de mi macro no funciona me podrías decir como corregirlo. Me explico si el valor de "D13" es Fisicoquímica o Física oculta los conectores, el objetivo que pretendo con el ultimo else es que si se quitan estos valores es decir se deja en blanco aparezcan todos los conectores,  al abrir el libro están todos conectores visible al seleccionar una opción de la lista desplegable se ocultan los correspondientes pero si pongo la celda en blanco nuevamente no aparecen todos los conectores quedan solo visible los últimos, la macro quedo como sigue:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$13" Then
        Set h = Sheets("Diagrama")
        If Range("D13").Value = "Fisicoquímica" Then
            h.Shapes("6 Conector recto").Visible = True
            h.Shapes("8 Conector recto").Visible = True
            h.Shapes("11 Conector recto").Visible = True
            h.Shapes("19 Conector recto").Visible = True
            h.Shapes("24 Conector recto").Visible = True
            h.Shapes("31 Conector recto").Visible = True
            h.Shapes("33 Conector recto").Visible = True
            h.Shapes("34 Conector recto").Visible = True
            h.Shapes("35 Conector recto").Visible = True
            h.Shapes("36 Conector recto").Visible = True
            h.Shapes("37 Conector recto").Visible = True
            h.Shapes("40 Conector recto").Visible = True
            h.Shapes("46 Conector recto").Visible = True
            h.Shapes("48 Conector recto").Visible = True
            h.Shapes("17 Conector recto").Visible = False
            h.Shapes("21 Conector recto").Visible = False
            h.Shapes("22 Conector recto").Visible = False
            h.Shapes("23 Conector recto").Visible = False
        ElseIf Range("D13").Value = "Física" Then
            h.Shapes("6 Conector recto").Visible = False
            h.Shapes("8 Conector recto").Visible = False
            h.Shapes("11 Conector recto").Visible = False
            h.Shapes("19 Conector recto").Visible = False
            h.Shapes("24 Conector recto").Visible = False
            h.Shapes("31 Conector recto").Visible = False
            h.Shapes("33 Conector recto").Visible = False
            h.Shapes("34 Conector recto").Visible = False
            h.Shapes("35 Conector recto").Visible = False
            h.Shapes("36 Conector recto").Visible = False
            h.Shapes("37 Conector recto").Visible = False
            h.Shapes("40 Conector recto").Visible = False
            h.Shapes("46 Conector recto").Visible = False
            h.Shapes("48 Conector recto").Visible = False
            h.Shapes("17 Conector recto").Visible = True
            h.Shapes("21 Conector recto").Visible = True
            h.Shapes("22 Conector recto").Visible = True
            h.Shapes("23 Conector recto").Visible = True
        Else
            h.Shapes("6 Conector recto").Visible = True
            h.Shapes("8 Conector recto").Visible = True
            h.Shapes("11 Conector recto").Visible = True
            h.Shapes("19 Conector recto").Visible = True
            h.Shapes("24 Conector recto").Visible = True
            h.Shapes("31 Conector recto").Visible = True
            h.Shapes("33 Conector recto").Visible = True
            h.Shapes("34 Conector recto").Visible = True
            h.Shapes("35 Conector recto").Visible = True
            h.Shapes("36 Conector recto").Visible = True
            h.Shapes("37 Conector recto").Visible = True
            h.Shapes("40 Conector recto").Visible = True
            h.Shapes("46 Conector recto").Visible = True
            h.Shapes("48 Conector recto").Visible = True
            h.Shapes("17 Conector recto").Visible = True
            h.Shapes("21 Conector recto").Visible = True
            h.Shapes("22 Conector recto").Visible = True
            h.Shapes("23 Conector recto").Visible = True
        End If
    End If
End Sub

Muchas gracias por tu tiempo

Saludos!

A mí sí me funciona.

Intenta hacerlo al revés, haces visibles todos y ocultas solamente los que correspondan, por ejemplo:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$13" Then
        Set h = Sheets("diagrama")
        'Se hacen todos visibles
        h.Shapes("6 Conector recto").Visible = True
        h.Shapes("8 Conector recto").Visible = True
        h.Shapes("11 Conector recto").Visible = True
        h.Shapes("19 Conector recto").Visible = True
        h.Shapes("24 Conector recto").Visible = True
        h.Shapes("31 Conector recto").Visible = True
        h.Shapes("33 Conector recto").Visible = True
        h.Shapes("34 Conector recto").Visible = True
        h.Shapes("35 Conector recto").Visible = True
        h.Shapes("36 Conector recto").Visible = True
        h.Shapes("37 Conector recto").Visible = True
        h.Shapes("40 Conector recto").Visible = True
        h.Shapes("46 Conector recto").Visible = True
        h.Shapes("48 Conector recto").Visible = True
        h.Shapes("17 Conector recto").Visible = True
        h.Shapes("21 Conector recto").Visible = True
        h.Shapes("22 Conector recto").Visible = True
        h.Shapes("23 Conector recto").Visible = True
        '
        If h.Range("D13").Value = "Fisicoquímica" Then
            'ocultas los correspondientes
            h.Shapes("17 Conector recto").Visible = False
            h.Shapes("21 Conector recto").Visible = False
            h.Shapes("22 Conector recto").Visible = False
            h.Shapes("23 Conector recto").Visible = False
        ElseIf h.Range("D13").Value = "Física" Then
            h.Shapes("6 Conector recto").Visible = False
            h.Shapes("8 Conector recto").Visible = False
            h.Shapes("11 Conector recto").Visible = False
            h.Shapes("19 Conector recto").Visible = False
            h.Shapes("24 Conector recto").Visible = False
            h.Shapes("31 Conector recto").Visible = False
            h.Shapes("33 Conector recto").Visible = False
            h.Shapes("34 Conector recto").Visible = False
            h.Shapes("35 Conector recto").Visible = False
            h.Shapes("36 Conector recto").Visible = False
            h.Shapes("37 Conector recto").Visible = False
            h.Shapes("40 Conector recto").Visible = False
            h.Shapes("46 Conector recto").Visible = False
            h.Shapes("48 Conector recto").Visible = False
        End If
    End If
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

¡Gracias!  No estuve en la ciudad un rato y no había visto tu respuesta la voy a probar; nuevamente te agradezco el tiempo empleado en la respuesta

Saludos Eduardo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Sumar dos filas distintas mayor a 0

Quiero sumar dos filas separadas por ejemplo fila 5 de A4 a J4 y fila 10 de A4 a J4, cada fila tiene resultados positivos o negativos, quiero que me sume en la celda B3 por ejemplo los datos positivos y en la celda C3 los datos negativos. Solo se...
2 respuestas

Filtrar ultima fecha según el criterio de una celda

Tengo una tabla de excel con la siguiente información Columna A el código del equipo. (Código único para cada equipo) Columna B la fecha en que se realizo la ultima revisión. Columna C el nombre del equipo. Columna D El tipo de revisión (preventivo,...
2 respuestas

Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista. La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor,...
2 respuestas

Suma en un formulario de Excel

Estoy realizando un formulario, el cual al salir del ultimo texbox me sume los anteriores, he usado el siguiente código Private Sub base0_Change() On Error Resume Next Me.totalfactura = Round((Me.base0 + Me.base10 + Me.base21 + Me.base4 + Me.base5) +...
2 respuestas

Copiar dato de una celda para filtrar una tabla en otra hoja

En la primera hoja tengo una tabla con datos que alimenta otra tabla que se encuentra en una segunda hoja. Quisiera una macro que copie el contenido de la celda que tenga seleccionada, después ir la segunda hoja y filtrar ese dato en la tabla que ahí...
2 respuestas

Pasar de hoja resumen a plantilla de factura

Tengo un Excel, con un hoja resumen de datos, y lo que quisiera hacer, es que me pasara los datos que tengo en cada línea de la hoja resumen de forma de forma automática, a diferentes hojas de excel del mismo libro, en unas celdas concretas,...
3 respuestas

Buscar la ultima fecha de mantenimiento

Tengo una tabla de excel hoja2 que cuando escribo el numero de activo del equipo en la columna A me busca los datos como el nombre del equipo, marca, serie y modelo. Estos datos provienen de la hoja 1. Lo que quiero hacer es que al digital el activo...
2 respuestas

Promedio de las ultimas 100 celdas con numeros

Tengo en la columna 0Y2:OY146 (celdas en blanco y celdas con numeros necesito calcular el promedio de los ultimos 100 numeros de la columna, si la cantidad fuera inferior a 100 que calcule el promedio de la totalidad de las celdas que contenga numeros.
2 respuestas

Tengo una base de datos en access para cobrar cuotas

En la cual genere formulario que muestra un resumen de las cuotas pagadas ¿Cómo puedo enviar cada formulario por mail?
2 respuestas

No encuentro como usar bien la función sumar.si

He probado con el sumar. Si, y no encuentro la fórmula para que, en D1, me de la suma de B7:B18, sumada a la D7:D18, mientras que el mes de las celdas A7:A18 sea igual a Marzo. Y que en D2 hiciera lo mismo, pero para el mes de abril. Muchas gracias
1 respuesta