0

Tengo el siguiente código para cambiar el relleno de un rectángulo según el valor de una celda de la hoja 2 de excel:

If Sheets(2).Range("H4") = "0" Then

   

    ActiveSheet.Shapes.Range(Array("Rectangle 58")).Select
        With Selection.ShapeRange.Fill
            .Visible = msoTrue
            .ForeColor.RGB = RGB(146, 208, 80)
            .Transparency = 0
            .Solid
        End With
    
    Else
    
    ActiveSheet.Shapes.Range(Array("Rectangle 58")).Select
        With Selection.ShapeRange.Fill
            .Visible = msoTrue
            .ForeColor.RGB = RGB(255, 0, 0)
            .Transparency = 0
            .Solid
        End With
    
    End If

La cuestión es que el rectángulo se encuentra en la hoja 1. Como puedo cambiar

ActiveSheet.Shapes.Range(Array("Rectangle 58")).Select

Para que no seleccione el rectángulo de la hoja activa, sino el de la hoja 1

1
  • ¿Has probado con Worksheets("Hoja1").Shapes.Range(Array("Rectangle 58")).Select? Commented el 17 may. 2021 a las 11:43

1 respuesta 1

3

puedes hacer un método tipo: (No estoy seguro de que funcione, y no puedo probarlo ahora, inténtalo así, a ver

Sub SeleccionarHoja()
    Sheets("Sheet2").Activate
    ActiveSheet.Range(Array("Rectangle 58")).Select
End Sub

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.