Macro para copiar el formato de una hoja a otra

Te anexo las macros con los cambios

Sub Resumen()
'Por.Dante Amor
    Set h1 = Sheets("PROGRAMACIÓN")
    Set h2 = Sheets("FACTURACIÓN")
    uf = h1.Range("A" & Rows.Count).End(xlUp).Row
    uc = h1.Cells(1, Columns.Count).End(xlToLeft).Column
    u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
    If u2 = 1 Then u2 = 2
    h2.Range("A2:E" & u2).Clear
    '
    For Each c In h1.Range(h1.Cells(2, "D"), h1.Cells(uf, uc)).SpecialCells(xlCellTypeConstants, 23)
        Select Case Left(c.Value, 5)
            Case "FESTI", "VACAC", "CURSO", "REUNI", "DIAS P"
            Case Else
                If c.MergeCells Then
                    valor = c.Value
                    If c.Value <> "" Then
                        i = c.MergeArea.Cells(1, 1).Row
                        f = c.MergeArea.Rows.Count + i - 1
                        n = c.MergeArea.Rows.Count
                        llenar h1, h2, c.Value, i, f, n, c.Column, c.Font.ColorIndex
                    End If
                Else
                    llenar h1, h2, c.Value, c.Row, c.Row, 1, c.Column, c.Font.ColorIndex
                End If
        End Select
    Next
    h2.Select
    MsgBox "Facturación terminada", vbInformation
End Sub
Sub llenar(h1, h2, c, i, f, n, col, icolor)
'Por.Dante Amor
    u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
    h2.Cells(u, "A") = c
    h2.Cells(u, "B") = h1.Cells(i, "A")
    h2.Cells(u, "C") = h1.Cells(f, "A")
    h2.Cells(u, "D") = n
    h2.Cells(u, "E") = h1.Cells(1, col)
    If icolor = 3 Then
        h2.Cells(u, "A").Font.ColorIndex = 3
    End If
End Sub

Saludos.Dante Amor

¡Muchas Gracias! 

Solo un par de detalles, en la hoja FACTURACIÓN las fechas ahora salen en formato general, cuando anteriormente salían en formato fecha.

También he pensado que, a parte del formato del texto, también se podría trasladar el color de la celda.

Sólo un detalle Dante Amor, en la hoja FACTURACIÓN, ahora las fechas columnas B y C salen en formato general, cuando anteriormente salían en formato fecha. No se qué cambio en la macro ha podido generar esto.

También he pensado en que, a parte del formato del texto, también estaría bien que se copiase el color de la celda. Es posible?

La macro no pone el formato de la columna, simplemente, antes de ejecutar la macro, cambia el formato de las columnas a fecha.

Hola Dante,

En la novena fila, donde pone h2.Range(A2:E" & u2).Clear, anteriormente en vez de "Clear" ponía "ClearContents". Creo que esto es lo que hace que se elimine el formato de las celdas. Es así?

Tienes razón, cambia clear por cliarcontents

Prueba y me comentas

Ya veo que pasa, quizás no hice la pregunta correcta en su momento.

Con "ClearContents" elimina el contenido pero no el formato y me parece bien. La macro busca el texto en rojo y lo pasa a la hoja FACTURACIÓN. Pero lo que pasa es que cuando en la hoja PROGRAMACIÓN cambio el formato del texto, en FACTURACIÓN no cambia. O sea, que cuando cambio una empresa de rojo a negro en PROGRAMACIÓN, sigue apareciendo en rojo en FACTURACIÓN.

Me explico de nuevo. El tema del color del texto y, ya puestos, el del fondo para cada empresa de la hoja PROGRAMACIÓN tiene una función. El color del texto me indica si la inspección a esta empresa está confirmada (negro) o por confirmar (rojo) (pudiendo ser estos cualquier color) y los colores del fondo me indican qué tipo de inspección es (por ejemplo: AMARILLO=Cerveza, ROSA=Vino, MARRÓN=refrescos, etc). Por lo tanto, lo que pretendía es que el formato de las celdas de PROGRAMACIÓN se me conservasen en FACTURACIÓN sean los que sean.

Como lo ves?

Disculpa, ya me acordé por qué lo pasé de clearcontents a clear, en mis pruebas me di cuenta de ese detalle, por eso lo cambié a clear, con eso limpio los colores.

Cambia esta:

H2.Range("A2:E" & u2). Clear

Por estas

H2.Range("A2:E" & u2). ClearContents
h2.Range("A2:E" & u2).Font.ColorIndex = xlNone

Prueba y me comentas, antes cambia las columnas a formato fecha