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 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

Macro para colorear rango según un valor

Necesito un función que me colore el rango (B5:F5) si A5=2 y asi sucesivamente hacia abajo... Osea que busque en la columna A todos los numero 2 y me colore los rangos respectivos. Espero puedan ayudarme...
1 respuesta

¿Cómo hacer una macro para pintar una celda en una columna según valor de otra columna?

¿Puedo consultar por una macro para que me resuelva lo siguiente?: Tengo las columnas A, B, y C en donde A ingreso números positivos enteros y/o cero también y en B igual, C va una formula que es A/B y aquí empieza el tema: ( y serán 20 filas que...
1 respuesta

Poner color en celda

Esto no es una pregunta, sino, una disculpa. Por motivos de trabajo no he podido responder ni finalizar la pregunta que formule, además con el problema añadido que en viaje me robaron el portátil entre otras cosas y hasta que no he vuelto a casa no...
1 respuesta

Sopa de Letras en EXCEL 2007, una macro para resolverlas

Hoy se me ocurrió la posibilidad de resolver una sopa de letras en excel (o sea "RESOLVER" " NO ARMARLA"). Busque en varios sitios web y en ninguno encontré nada similar a lo que me imagine. Y mi pregunta seria, ¿Alguien tiene idea de como hacer una...
1 respuesta

Una macros para colorear al mismo tiempo los datos repetidos

Necesito q la macros coloree los datos repetitivos y a su vez guarde en un contador cuantos datos repetitivos hay en la columna c Ejemplo A B C Fila 5 126 Fila 15 802 Fila 30 487 Fila 80 487 Fila 120 126 Fila 135 802 Fila 136 12356 Lo puese asi para...
1 respuesta

Macro con formato condicional

Antes que nada, agradeceros a todos los expertos en general y a ti en particular vuestra labor, profesionalidad y acierto en todas las consultas que os venimos haciendo. He estado siguiendo las respuestas que diste para crear una macro que identifica...
1 respuesta

Macro busca celda por color y resumen

Tengo una macro que compara dos hojas de un mismo libro, específicamente 2 columnas, si hay un cambio en estas columnas, pinta la celda de un color, lo que requiero saber y pedir su ayuda, es poder realizar una macro que me extraiga los valores de...
1 respuesta

Vincular dos combobox y un textbox después del segundo combo box

Antemano aclara soy principiante. Tengo un problema tengo dos combobox (codigos de productos) vinculados el primero del segundo y por otro lado tengo otro combobox ( dodigos de producto) vinculado con otros textbox (descripción del producto), Las dos...
1 respuesta

Ordena una tabla de datos mediante una macro

Tengo una tabla de la columna B a la BC Y de la fila 12 a la 61. En la columna BB, se van a generar una serie de datos, en porcentaje, Lo que yo necesito que haga la macro es que me ordene todo en base a esa columna. El archivo es de "Priorización de...
1 respuesta