Copiar solo el formato de la celda

Elsa necesito copiar el puro formato, que en la celda de b2:b10 cambie al color de la celda de a2:a10 por ejemplo si a3 es rojo que b3 se ponga rojo al igual si en b3 esta rojo que en a2 se ponga rojo
yo uso la sig macro para indicarle que color se pinte la celda donde pongo la letra pero necesito que también se ponga el color automáticamente en la otra celda(muchas gracias por tomarte tu tiempo para responderme)
End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each c In Range("F2:F8")
    Select Case c
    Case 1
       c.Interior.ColorIndex = 36   'crema
    Case 2
       c.Interior.ColorIndex = 3    'rojo
    Case 3
       c.Interior.ColorIndex = 34   'Celeste
    Case "a"
       c.Interior.ColorIndex = 4   'Verde
    Case "b"
       c.Interior.ColorIndex = 6   'amarillo
    Case Is = "azul"
       c.Interior.ColorIndex = 41   'Azul
 End Select
Next
End Sub
1

1 respuesta

Respuesta
1
Yo usaría esto:
For i=2 to i=10
Cells(i,6).Select    'Columna F
Select Case c 
    Case 1 
       c.Interior.ColorIndex = 36   'crema 
    Case 2 
       c.Interior.ColorIndex = 3    'rojo 
    Case 3 
       c.Interior.ColorIndex = 34   'Celeste 
    Case "a" 
       c.Interior.ColorIndex = 4   'Verde 
    Case "b" 
       c.Interior.ColorIndex = 6   'amarillo 
    Case Is = "azul" 
       c.Interior.ColorIndex = 41   'Azul 
 End Select
Next i
i=2
For i=2 to i=10
Cells(i,1).Select    'Columna A
Select Case c 
    Case 1 
       c.Interior.ColorIndex = 36   'crema 
    Case 2 
       c.Interior.ColorIndex = 3    'rojo 
    Case 3 
       c.Interior.ColorIndex = 34   'Celeste 
    Case "a" 
       c.Interior.ColorIndex = 4   'Verde 
    Case "b" 
       c.Interior.ColorIndex = 6   'amarillo 
    Case Is = "azul" 
       c.Interior.ColorIndex = 41   'Azul 
 End Select
Next i
Gracias por tomar de tu tiempo para contestar, puse el código pero no me genera nada no se pone el color, pudieras eharle una miradita para ver si le falto algo.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To i = 10
Cells(i, 6).Select   'Columna F
Select Case c
    Case 1
       c.Interior.ColorIndex = 36   'crema
    Case 2
       c.Interior.ColorIndex = 3    'rojo
    Case 3
       c.Interior.ColorIndex = 34   'Celeste
    Case "a"
       c.Interior.ColorIndex = 4   'Verde
    Case "b"
       c.Interior.ColorIndex = 6   'amarillo
    Case Is = "azul"
       c.Interior.ColorIndex = 41   'Azul
 End Select
Next i
i = 2
For i = 2 To i = 10
Cells(i, 1).Select   'Columna A
Select Case c
    Case 1
       c.Interior.ColorIndex = 36   'crema
    Case 2
       c.Interior.ColorIndex = 3    'rojo
    Case 3
       c.Interior.ColorIndex = 34   'Celeste
    Case "a"
       c.Interior.ColorIndex = 4   'Verde
    Case "b"
       c.Interior.ColorIndex = 6   'amarillo
    Case Is = "azul"
       c.Interior.ColorIndex = 41   'Azul
 End Select
Next i
End Sub
Con esto te debería funcionar:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)ç
For i = 2 To 10
c = Cells(i, 6).Value   'Columna F
  Select Case c
    Case 1
      Cells(i, 6).Interior.ColorIndex = 36   'crema
      Cells(i, 1).Interior.ColorIndex = 36
    Case 2
       Cells(i, 6).Interior.ColorIndex = 3    'rojo
       Cells(i, 1).Interior.ColorIndex = 3
    Case 3
       Cells(i, 6).Interior.ColorIndex = 34   'Celeste
       Cells(i, 1).Interior.ColorIndex = 34
    Case "a"
       Cells(i, 6).Interior.ColorIndex = 4   'Verde
       Cells(i, 1).Interior.ColorIndex = 4
    Case "b"
       Cells(i, 6).Interior.ColorIndex = 6   'amarillo
       Cells(i, 1).Interior.ColorIndex = 6
    Case Is = "azul"
       Cells(i, 6).Interior.ColorIndex = 41   'Azul
       Cells(i, 1).Interior.ColorIndex = 41
 End Select
Next i
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas