Problema con autoajuste de celdas combinadas
Tengo un Botón que se supone debería autoajustar el alto de fila en el rango B2 a B70 ya que el texto introducido aquí siempre es variable, tengo la siguiente rutina la cual debería hacer esto con la ayuda de otra hoja llamada "nada":
Private Sub CommandButton1_Click()
Dim obj_Cell As Range
Dim Ancho As Double
For I = 16 To 70
m = Range("B" & I & "").MergeArea.Address
Ancho = 0
For Each obj_Cell In Range(m)
With obj_Cell
Ancho = Ancho + obj_Cell.ColumnWidth
End With
Next
With Sheets("NADA")
.[A1].ColumnWidth = Ancho
.[A1].Value = Range("B" & I & "")
.Rows(1).EntireRow.AutoFit
Range("B" & I & "").RowHeight = .[A1].RowHeight
End With
Next I
End Sub
Y pues el problema es que ajusta solo algunas celdas, y con las demás hace un desastre, dando altos exagerados en als filas... Si alguien pudiera decirme que modificar para que funcione correctamente, estaría eternamente agradecido. El código lo conseguí en algún otro foro... Solo le modifique algunos datos.
Private Sub CommandButton1_Click()
Dim obj_Cell As Range
Dim Ancho As Double
For I = 16 To 70
m = Range("B" & I & "").MergeArea.Address
Ancho = 0
For Each obj_Cell In Range(m)
With obj_Cell
Ancho = Ancho + obj_Cell.ColumnWidth
End With
Next
With Sheets("NADA")
.[A1].ColumnWidth = Ancho
.[A1].Value = Range("B" & I & "")
.Rows(1).EntireRow.AutoFit
Range("B" & I & "").RowHeight = .[A1].RowHeight
End With
Next I
End Sub
Y pues el problema es que ajusta solo algunas celdas, y con las demás hace un desastre, dando altos exagerados en als filas... Si alguien pudiera decirme que modificar para que funcione correctamente, estaría eternamente agradecido. El código lo conseguí en algún otro foro... Solo le modifique algunos datos.
1 respuesta
Respuesta de jrgces
2
Muy ingeniosa tu Solución... mis más sinceras felicitaciones, Muchas gracias me ayudó muchísimo - Julio Cesar Buitrago Morales