Estoy tratando de aplicar el color de formato condicional de una celda a otra celda. Estoy haciendo esto para crear un mapa de calor. Sin embargo, los valores en el mapa de calor no son los valores que se ajustan a los criterios del formato condicional (por lo que estoy copiando el color de las celdas que realmente se ajustan a los criterios). Sé que puedo hacer este proceso usando un bucle, pero estoy luchando en hacerlo.

Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim cell As Range
    cnt = 2
    For Each cell In Range("J78:L81")
        Me.cell.Interior.Color = Me.Range("H" & cnt).DisplayFormat.Interior.Color
        cnt = cnt + 2
    Next cell

End Sub

El editor me da un error de compilación que dice "Método o miembro de datos no encontrado" y apunta hacia el .cell en me.cell.interior.color

0
peopleplusme 1 jul. 2019 a las 17:13

1 respuesta

La mejor respuesta

La declaración Me debe estar frente a la Range("J78:L81") en lugar de Cell.

For Each cell In Me.Range("J78:L81")
    cell.Interior.Color = Me.Range("H" & cnt).DisplayFormat.Interior.Color
0
Pᴇʜ 1 jul. 2019 a las 14:22