Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Asegurarnos de que solo ajustamos las filas a partir de la fila 5
If Not Intersect(Target, Me.Rows("5:" & Me.Rows.Count)) Is Nothing Then
Me.Rows("5:" & Me.Rows.Count).AutoFit
End If
End Sub
Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.
Recommended Posts
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.