Autoajustar las filas de excel

Algún experto me podría decir como podría poner, mediante vba que las filas se autoajusten, según el texto de una celda, pero que nunca tomen un valor de ancho de fila, inferior a 20.

1 respuesta

Respuesta

Intenta con esta macro, recorre un rango de la hoja activa, podrás ajustar los detalles sino comentame.

Sub autoajuste()
'x Elsamatilde
'autoajusta desde fila 2 a 20
For i = 2 To 20
    Range("A" & i).EntireRow.AutoFit
    'establece alto no menor a 20
    If Range("A" & i).Rows.Height < 20 Then Range("A" & i).RowHeight = 20
Next i
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas