Wrap en celdas combinadas !

Que yo sepa, no es posible.
En una ocasión se planteó esto mismo en el grupo, y yo escibí un procedimiento que, más o menos, hacía el trabajo (y digo "más o menos" porque a veces, inexplicablemente, dejaba líneas en blanco entre medias del texto).
Si no encuentras una solución que no necesite código, te puedo poner el mío por si lo quieres probar.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Ernesto Jerez" escribió en el mensaje news:106d01c39db8$ea1a6ed0$

Es posible hacer wrap en celdas combinadas. Cuando activo
la propiedad en celdas individuales funciona, pero en
celdas combinadas (B5+D5+E5) no funciona.

Todo esto con la hoja protegida y el rango de celdas que
se van a editar con lock=false.

P.D. Espero que se pueda... Porque si no voy a tener que
reprogramar toda la hoja con macros.

Saludos.
Ernesto Jerez.

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!!

Que yo sepa, no es posible.
En una ocasión se planteó esto mismo en el grupo, y yo

escibí un procedimiento que, más o menos, hacía el
trabajo (y digo "más o menos" porque a veces,
inexplicablemente, dejaba líneas en blanco entre medias
del texto).

Si no encuentras una solución que no necesite código, te

puedo poner el mío por si lo quieres probar.

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Ernesto Jerez"

escribió en el mensaje news:106d01c39db8$ea1a6ed0
$

Es posible hacer wrap en celdas combinadas. Cuando

activo

la propiedad en celdas individuales funciona, pero en
celdas combinadas (B5+D5+E5) no funciona.

Todo esto con la hoja protegida y el rango de celdas

que

se van a editar con lock=false.

P.D. Espero que se pueda... Porque si no voy a tener

que

reprogramar toda la hoja con macros.

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!!

Mira a ver si esta función te sirve (necesitas una hoja con nombre Temporal o modificar el código):

Function AjustarFila(Rango As Range)
Dim ancho As Single
Dim Columna As Range
Dim cadena As String
cadena = Rango
'se ajusta el ancho y alto de la celda temporal al contenido de dirección
'primero hay que borrar la celda temporal
Worksheets("Temporal").Range("A1") = ""
'copiamos la celda
Worksheets("Temporal").Range("A1") = Rango.Value
ancho = 0
For Each Columna In Rango.MergeArea.Columns
ancho = ancho + Columna.ColumnWidth
Next
'BRIAN SAY:
'Ajustamos los píxeles de margen y agregamos 2 ptos.
ancho = ancho + 0.71 * (Rango.MergeArea.Columns.Count - 1) + 2
Worksheets("Temporal").Range("A1").ColumnWidth = ancho
Worksheets("Temporal").Range("A1").EntireRow.AutoFit
AjustarFila = Worksheets("Temporal").Range("A1").RowHeight
End Function

saludos
Faustino Toba
Caracas

"Ernesto Jerez" wrote in message news:106d01c39db8$ea1a6ed0$

Es posible hacer wrap en celdas combinadas. Cuando activo
la propiedad en celdas individuales funciona, pero en
celdas combinadas (B5+D5+E5) no funciona.

Todo esto con la hoja protegida y el rango de celdas que
se van a editar con lock=false.

P.D. Espero que se pueda... Porque si no voy a tener que
reprogramar toda la hoja con macros.

Saludos.
Ernesto Jerez.

Gracias Faustino! Al final utilicé la solución de
Fernando que fue la que leí primero. De todos modos
copiaré tu código por aquí, siempre puede hacer falta.

Ernesto Jerez.
P.D. Yo estoy en Puerto La Cruz. Saludos.

Mira a ver si esta función te sirve (necesitas una hoja

con nombre Temporal o modificar el código):

Function AjustarFila(Rango As Range)
Dim ancho As Single
Dim Columna As Range
Dim cadena As String
cadena = Rango
'se ajusta el ancho y alto de la celda temporal al

contenido de dirección

'primero hay que borrar la celda temporal
Worksheets("Temporal").Range("A1") = ""
'copiamos la celda
Worksheets("Temporal").Range("A1") = Rango.Value
ancho = 0
For Each Columna In Rango.MergeArea.Columns
ancho = ancho + Columna.ColumnWidth
Next
'BRIAN SAY:
'Ajustamos los píxeles de margen y agregamos 2 ptos.
ancho = ancho + 0.71 * (Rango.MergeArea.Columns.Count -

1) + 2

Worksheets("Temporal").Range("A1").ColumnWidth = ancho
Worksheets("Temporal").Range("A1").EntireRow.AutoFit
AjustarFila = Worksheets("Temporal").Range

("A1").RowHeight

End Function

saludos
Faustino Toba
Caracas

"Ernesto Jerez"

wrote in message news:106d01c39db8$ea1a6ed0
$

Es posible hacer wrap en celdas combinadas. Cuando

activo

la propiedad en celdas individuales funciona, pero en
celdas combinadas (B5+D5+E5) no funciona.

Todo esto con la hoja protegida y el rango de celdas

que

se van a editar con lock=false.

P.D. Espero que se pueda... Porque si no voy a tener

que

reprogramar toda la hoja con macros.

Saludos.
Ernesto Jerez.

.