Foro

Buen dia:
Urgente:

Necesito crear una macro, tengo 3 hojas en un archivo, entonces en la primera hoja quiero poner una condicion que si pongo un color de fondo "x" en una celda, que copie lo que esta en la columna anterior a las otras dos hojas.

Es un planificador, ejemplo:
La primera hoja se llama gannt, esta hoja tiene una columna que se llama actividad, y otras 30 columnas que son los dias del mes, la segunda hoja se llama mensual y la tercera hoja se llama semana.

Lo que quiero que me ayuden es: que yo al poner un color en la hoja una en cuaklquier dia, la informacion de la actividad se copie a la segunda hoja "mensual" y tambien a la tercera hoja "semana". en los mismos dias que seleccione.

en espera de su apoyo gracias.

que tal

copia y pega esta macro
agregasela a un boton, seleccional la celda y ponle el color rojo, presiona el boton y te pondra el fondo de color rojo en las misma celda de las otras dos hojas..

Nota: la celda que esta seleccionada es la que se colorea en las otras hojas.

Sub MyMacro()

If ActiveCell.Interior.ColorIndex = 3 Then
a = ActiveCell.Row
b = ActiveCell.Column
Sheets("mensual".Select
Cells(a, b).Select
ActiveCell.Interior.ColorIndex = 3
Sheets("semana".Select
Cells(a, b).Select
ActiveCell.Interior.ColorIndex = 3
Sheets("gannt".Select

End If

End Sub