Ajustar filas

17/11/2006 - 17:18 por Ernesto | Informe spam
Hola.

En un libro de varias hojas, incluyo nombres en unas filas,(C55:C88) que
según la cantidad de ellos, se van abriendo automaticamente para que todos
ellos se vean. Puedo ingresar 4,5 ó 10, en cada fila y se va abriendo la
celda según los escribo y se ven todos.
Estos mismos nombres en la misma hoja los recoje en otras celdas,(C115:C148)
que en principio se abren bien, para 4 ó 5 nombres, pero más no. Si quiero
que se vean tengo que ir a 'Formato'-->'Filas'-->'Autoajustar', y entonces
termina de abrir para que se vean todos los nombres. Si incluyo alguno más
en (C55:C88), aquí se sigue abriendo sin problema cada fila, pero en
(C115:C148), tengo que volver a darle a la fila el 'Autoajustar' si quiero
que aparezcan las nuevas inclusiones.
Además después si quito los nombres en (C55:C88), estas filas vuelven a su
medida de altura estandar, pero las que reciben los datos (C115:C148), no se
reducen a la posición standar de la fila cuando desaparecen los nombres,
como las de origen.
Se puede solucionar ?
 

Leer las respuestas

#1 Héctor Miguel
17/11/2006 - 23:37 | Informe spam
hola, Ernesto !

1) considerando que el ajuste de lineas al texto en el formato de celdas...
a) es 'aplicable' SOLO a entradas/cambios/... 'directos' en dicha/s celda/s [pero]...
b) NO es 'detectado' cuando el contenido de la celda cambia por formulas/funciones...
c) [creo que] solo nos queda buscar alternativas por codigo... aunque aun por codigo...
- NO hay evento que 'detecte cambios' en celdas ->con formulas<-... excepto el '_calculate'
- siempre y cuando definas variables ->estaticas<- que esten 'monitoreando' sus contenidos o...
- 'detectes' [en el evento '_change'] si la/s celda/s modificada/s tiene/n 'algo que ver con...' [precedente/s]

2) en via de mientras... prueba con el siguiente codigo -> en el modulo de 'esa' hoja:
Dim Celda As Range
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("c55:c88")) Is Nothing Then Exit Sub
For Each Celda In Intersect(Target, Range("c55:c88"))
Celda.Offset(60).WrapText = True
Next
End Sub

-> toma nota de que perderas la caracteristica del 'deshacer', undo, ctrl+Z :-((

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta original __
En un libro de varias hojas, incluyo nombres en... C55:C88
... segun la cantidad de ellos, se van abriendo automaticamente para que todos ellos se vean...
... en la misma hoja los recoje en otras celdas(C115:C148) que en principio se abren bien, para 4 o 5 nombres, pero mas no.
Si quiero que se vean tengo que ir a 'Formato'-->'Filas'-->'Autoajustar', y entonces termina de abrir para que se vean todos los nombres.
Si incluyo alguno mas en (C55:C88), aqui se sigue abriendo sin problema cada fila, pero en (C115:C148)
tengo que volver a darle a la fila el 'Autoajustar' si quiero que aparezcan las nuevas inclusiones.
Ademas despues si quito los nombres en (C55:C88), estas filas vuelven a su medida de altura estandar
pero las que reciben los datos (C115:C148), no se reducen a la posicion standar de la fila ...
Se puede solucionar ?

Preguntas similares