Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Autoajustar alto de fila automáticamente con macro

  • Autor del tema Autor del tema Jise
  • Fecha de inicio Fecha de inicio

Jise

Active member
Registrado
10 Dic 2021
Mensajes
256
Buenas noches companer@s.

Me gustaría poder autoajustar el alto de fila en el rango E7 : H24 con una macro, ya que son celdas combinadas.

¿Alguien conoce como hacerlo?

Yo he encontrado macros...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Solución
Puedes probar este código (he corregido algunas cosas):
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Application.Intersect(Target, Range("E7:H24")) Is Nothing Then
    Call AutoFitAll
End If
'
ActiveSheet.Unprotect Password:="()"
If Target.Address(False, False) = "F4" Then
    Target.Parent.Name = Target.Text
End If
'
Dim Oldvalue As String, Newvalue As String
Application.EnableEvents = True
On Error GoTo Exitsub
'
If Target.Column = 4 Then
    If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
        GoTo Exitsub
        Else
        If Target.Value = "" Then GoTo Exitsub Else
            Application.EnableEvents = False
            Newvalue = Target.Value...
En el ejemplo, creado según lo que dices, lo hace bien. Cambia el texto de la celda combinada y verás. Adjunta tu archivo para ver cómo es... porque seguro que no es como el ejemplo... Un...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Adjuntos

Sorry! Por error, adjunté la misma versión anterior no corregida. Ya la he cambiado: verás que simplemente he bloqueado las instrucciones .Columns.AutoFit en ambas Hojas...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Última edición:
En realidad, por poder hacer, se puede hacer. Pero con una macro válida para ese ejemplo. Si cambias de rangos... hay que adaptarla y es un poco compleja. Si te vale la puedo pulir, porque...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Volver
Arriba