Alto de fila con celdas ajustadas

08/05/2004 - 22:54 por Pasión Gil | Informe spam

Mi duda es la siguiente:
Tengo varias filas de registros con todas las celdas ajustadas (Formato >
Alinear > Ajustar texto).
Tras introducir datos (textos muy largos), me ajusta el alto de la fila
según la celda con mayor número de caracteres, pero esto no me interesa.
Lo que quiero es ajustar el alto de la fila según el alto de las celdas en
la columna que yo desee. No sé si me explico ...
Gracias por adelantado.

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#6 Héctor Miguel

11/05/2004 - 07:50 | Informe spam

hola, Gil !

... la hoja tiene mas de 1.700 filas ... que el proceso fuera automatizado mediente eventos de hoja, etc.
... muchas celdas ... mas de 1.000 caracteres ... en la misma columna (B, por ejemplo) [...]
... que el alto de la fila fuera el ... de la columna colindante (A, siguiendo el ejemplo) [...]

suponiendo que la columna colindante [a, por ejemplo] tuviese YA el alto 'apropiado'
y que la columna que se debe 'ajustar' a [NO 'exceder] el alto de 'esa' columna a fuese 'b'...
en el modulo de codigo de la hoja ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
With Target
.WrapText = False
.RowHeight = .RowHeight
.WrapText = True
End With
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨¨
=> toma nota de que 'se pierde' el beneficio del deshacer [undo] :((

saludos,
hector.

Responder a este mensaje

#7 Pasión Gil

11/05/2004 - 17:26 | Informe spam

Héctor:
Tu solución es totalmente efectiva y, al tiempo, sencilla, lo que le da más
valor. Gracias.
Un saludo.
"Héctor Miguel" escribió en el mensaje
news:

hola, Gil !

> ... la hoja tiene mas de 1.700 filas ... que el proceso fuera

automatizado mediente eventos de hoja, etc.

> ... muchas celdas ... mas de 1.000 caracteres ... en la misma columna

(B, por ejemplo) [...]

> ... que el alto de la fila fuera el ... de la columna colindante (A,

siguiendo el ejemplo) [...]

suponiendo que la columna colindante [a, por ejemplo] tuviese YA el alto

'apropiado'

y que la columna que se debe 'ajustar' a [NO 'exceder] el alto de 'esa'

columna a fuese 'b'...

en el modulo de codigo de la hoja ==> Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
With Target
.WrapText = False
.RowHeight = .RowHeight
.WrapText = True
End With
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨¨
=> toma nota de que 'se pierde' el beneficio del deshacer [undo] :((

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida