Excel - arreglar macros para buscar al cambiar 1 celda

 
Vista:
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

arreglar macros para buscar al cambiar 1 celda

Publicado por celia (418 intervenciones) el 29/07/2021 23:59:42
Hola de nuevo
No consigo que al escribir un nombre en A9 se ejecute el código que actualizaría los datos de AT4:AW4 Y ​DE BH4:BK4

Si funciona parte, si en D9 se escribe un 1, pero machaca la fórmula que contiene
Adjunto libro con ejemplo

Muchísimas gracias
foto1
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 celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

arreglar macros para buscar al cambiar 1 celda

Publicado por celia (418 intervenciones) el 31/07/2021 08:53:56
Este es el código que tiene y debería funcionar al haber algún cambio en las celdas D9 y E9, que cambian a la vez cuando se cambia el nombre en A9:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Application.EnableEvents = True
'Casos para las PREGUNTAS ----------------------
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$D$9" Then
Select Case Target.Value
Case 1 To 1: PREGUNTA1
Case 2 To 300: PREGUNTA2
End Select
End If
End Sub

'MACROS PREGUNTAS
Sub PREGUNTA1()
Range("BN2:BQ2").Select
Selection.Copy
Range("At4").Select
ActiveSheet.Paste
End Sub

Sub PREGUNTA2()
Application.ScreenUpdating = False
Range("BS2:BV2").Select
Selection.Copy
Range("At4").Select
ActiveSheet.Paste
End Sub



'Casos para los RESPUESTAS ----------------------
' If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$E$9" Then
Select Case Target.Value
Case 1 To 1: RESPUESTA5
Case 2 To 300: RESPUESTA95
End Select
End If
End Sub


'MACROS RESPUESTAS
Sub RESPUESTA1()
Range("BX2:CA2").Select
Selection.Copy
Range("BH4").Select
ActiveSheet.Paste
End Sub
Sub RESPUESTA2()
Application.ScreenUpdating = False
Range("CC2:CF2").Select
Selection.Copy
Range("BH4").Select
ActiveSheet.Paste
End Sub
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
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

arreglar macros para buscar al cambiar 1 celda

Publicado por celia (418 intervenciones) el 03/08/2021 10:31:51
No sé porqué alguna vez funcionó una parte al abrir el libro y al día siguiente ya no va nada como el anterior.
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
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

arreglar macros para buscar al cambiar 1 celda

Publicado por Antoni Masana (1848 intervenciones) el 03/08/2021 15:37:14
Hay dos posibles soluciones:

Opción - 1

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Application.EnableEvents = True
    'Casos para las PREGUNTAS ----------------------
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Address = "$A$9" Then
        Select Case Range("D9")
        Case 1: PREGUNTA1
        Case 2: PREGUNTA2
        End Select
    End If
End Sub

Opción - 2

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Application.EnableEvents = True
    'Casos para las PREGUNTAS ----------------------
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Address = "$A$9" Then
        Select Case Target.Value
        Case "UNO": PREGUNTA1
        Case "DOS": PREGUNTA2
        End Select
    End If
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
1
Comentar
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

arreglar macros para buscar al cambiar 1 celda

Publicado por celia (418 intervenciones) el 04/08/2021 09:43:36
Otra respuesta de 10.

Buen día.
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