Fallo en macro

[solilopi]

Hola, buenas tardes, hacía tiempo que no escriía por el foro. Tengo una macor que da formato a unos valores de una hoja Excel, mi problema es que intento conservar el color del fondo de "sólo" las celdas con determinado height y no soy capaz de hacerlo.

El código que estoy intentando usar es:

...
If Range("a6").EntireRow.RowHeight = tamanio Then
        
            celdaActual.Interior.ColorIndex = 2
            
        End If
...

Podéis echarme una mano. Gracias. Saludos.

[Antoni]

Sin ver el archivo y con lo que has subido se hace difícil poderte decir algo que te pueda ayudar.

[solilopi]

Lo siento, subo la macro completa:

Sub Formato_condicional()

Dim miRango As Range
Dim ultima As Integer
Dim tamanio As Long
tamanio = Rows("6").RowHeight

ultima = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    
Set miRango = Range("A2:H" & ultima)

    For Each celdaActual In miRango
    
        celdaActual.HorizontalAlignment = xlCenter
        
        If celdaActual.Value >= 11 And celdaActual.Value <= 13 Then
        
            celdaActual.Interior.ColorIndex = None
            celdaActual.Font.ColorIndex = 3
            celdaActual.Font.Bold = True
                    
        ElseIf celdaActual.Value <= 5 Then
        
            celdaActual.Interior.ColorIndex = None
            celdaActual.Font.ColorIndex = 3
            celdaActual.Font.Bold = True
            
        ElseIf celdaActual.Value >= 65 And celdaActual.Value <= 80 Then

            celdaActual.Interior.ColorIndex = None
            celdaActual.Font.ColorIndex = 3
            celdaActual.Font.Bold = True
            
        End If       
       
        
        If Range("a6").EntireRow.RowHeight = tamanio Then
        
            celdaActual.Interior.ColorIndex = 2
            
        End If
        
        
    Next
      
End Sub

Espero que ahora me puedas ayudar. Gracias. Saludos.

[Antoni]

Yo creo que con cambiar esto te vale:

Dim tamanio As Double

 

[solilopi]

Hola, buenos días, lo siento pero con cambiar el tipo de dato no se soluciona el problema, te mandaría la hoja pero no cabe. Gracias, espero tu ayuda. Un saludo

[Antoni]

Construye un archivo con solo la hoja y unos pocos registros y pon un ejemplo  de lo que quieres conseguir o sube el archivo a un servidor externo (DropBox, Mega, Google Drive,.......)

[solilopi]

Hola de nuevo, de acuerdo, lo que quiero es que cuando pulse en Dar Formato me vuelva a dar el formato que tiene ahora la hoja. Gracias por tu tiempo. Un saludo.

Estracto_libro.xlsm

[Antoni]

No se si he entendido lo que quieres.

Estracto_libro.xlsm

[solilopi]

Hola de nuevo, más o menos, lo de rellenar las filas con fondo negro sigue sin hacerlo, es decir, cuando al original le quitas el formato y luego se lo vuelves a poner no lo deja como al principio.

[Antoni]

A ver, en el archivo de muestra funciona, el problema intuyo que viene al utilizar el ancho de fila para determinar el color del fondo.

Te propongo otra solución basada en el texto de las celdas..

Abre el adjunto y pulsa en el botón Dar Formato.

Estracto_libro (1).xlsm

[solilopi]

Gracias, no se me había ocurrido usar la celda anterior como referencia. Gran idea. Repito, muchas gracias. Saludos.