Wrap en celdas combinadas !

Gracias Fernando, tuve que hacer unas modificaciones para
que me funcione en diferentes rangos, porque ademas se
pueden agregar filas a la hoja... Un medio lio. Pero
gracias a ti se pudo terminar.

Saludos,
Ernesto Jerez

Entiendo que el rango de las celdas combinadas es B5:E5.

Si es así, el siguiente código debería ajustar el texto,
distribuyéndolo entre ellas, más o menos :-( , porque
sigo sin averiguar por qué, a veces, deja demasiado
espacio entre las líneas.

Sub AjustarTextoEnCeldasCombinadas()
If Not ActiveSheet.Range("B5:E5").MergeCells Then

Exit Sub 'Si el rango B5:E5 de la hoja activa no está
combinado, salir sin hacer nada

Dim sngAnchoTotal As Single, sngAnchoCelda As

Single, sngAlto As Single

Dim n As Integer

For n = 2 To 5
sngAnchoTotal = sngAnchoTotal + ActiveSheet.Cells

(5, n).ColumnWidth

Next n

With ActiveSheet.Range("B5")
sngAnchoCelda = .ColumnWidth
.HorizontalAlignment = xlJustify
.VerticalAlignment = xlJustify
.MergeCells = False
.ColumnWidth = sngAnchoTotal
ActiveSheet.Rows(5).AutoFit
sngAlto = .RowHeight
End With

With ActiveSheet
.Range("B5:E5").Merge
.Columns(2).ColumnWidth = sngAnchoCelda
.Rows(5).RowHeight = sngAlto
End With
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel


"Ernesto Jerez"

escribió en el mensaje news:08d401c39e0e$b0a0e110
$

Fernando... Necesito la solución más rápida, no importa
si es más complicada, así que si es con código está bien
para mi. Estoy esperando el código.
Y gracias!!

.