Ajustar filas

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 ?

Gracias Héctor Miguel, por tus ayudas.
Sólo grabé una Macro hace bastante tiempo, y siguiendo los pasos que me
dictaron, voy a la hoja hago clic-derecho sobre la pestaña, 'Ver código' de
la hoja en cuestión y aparece una ventana que en la parte superior izquierda
tiene un desplegable y pone '(General)' y debajo 'Worksheet' y también en la
parte superior derecha, otro despegable 'Selection Change' y bastantes
opciones al abrirlo. Además dentro de la ventana, donde debe de incluirse la
macro (según yo creo) pone:

"Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub"

No se si cerrar esta ventana, ir al Menú, 'Insertar'-->'Modulo' y en la
ventana que abre, que esta si está en blanco, incluir la Macro que me
facilitas.
Te agradecería me indicaras si estos pasos son los correctos y como dejarla
grabada y eliminarla posteriormente, si no me funcionara.
Gracias nuevamente por tu ayuda y colaboraciones en este foro.
Un saludo.
.
"Héctor Miguel" escribió en el mensaje
news:%

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 ?

hola, Ernesto 1

... voy a la hoja hago clic-derecho sobre la pesta#a, 'Ver codigo' de la hoja en cuestion
... aparece una ventana que en la parte superior izquierda tiene un desplegable y pone '(General)' y debajo 'Worksheet'
... en la parte superior derecha, otro despegable 'Selection Change' y bastantes opciones al abrirlo
... dentro de la ventana, donde debe de incluirse la macro (segun yo creo) pone:
"Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub"
No se si cerrar esta ventana, ir al Menú, 'Insertar'-->'Modulo' y en la ventana que abre
que esta si esta en blanco, incluir la Macro que me facilitas...

[precisamente] el evento que intentamos manejar es uno de los que se muestran en la parte superior derecha del modulo de 'esa' hoja:
-> '... ... en la parte superior derecha, otro despegable 'Selection Change' y bastantes opciones al abrirlo ..'

sustituye las lineas que se establecieron 'por omision' de: -> "Private Sub Worksheet_SelectionChange(ByVal Target As Range)
-> por las lineas de la propuesta anterior:
Dim Celda As Range
Private Sub Worksheet_Change(ByVal Target As Range) [etc. etc. etc.]

si cualquier duda... comentas ?
saludos,
hector.

Como elimino esta macro despues, en caso de no funcionar, o que la hoja no
me funcione correctamente?
Gracias y saludos.

"Héctor Miguel" escribió en el mensaje
news:

hola, Ernesto 1

... voy a la hoja hago clic-derecho sobre la pesta#a, 'Ver codigo' de la
hoja en cuestion
... aparece una ventana que en la parte superior izquierda tiene un
desplegable y pone '(General)' y debajo 'Worksheet'
... en la parte superior derecha, otro despegable 'Selection Change' y
bastantes opciones al abrirlo
... dentro de la ventana, donde debe de incluirse la macro (segun yo
creo) pone:
"Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub"
No se si cerrar esta ventana, ir al Menú, 'Insertar'-->'Modulo' y en la
ventana que abre
que esta si esta en blanco, incluir la Macro que me facilitas...

[precisamente] el evento que intentamos manejar es uno de los que se
muestran en la parte superior derecha del modulo de 'esa' hoja:
-> '... ... en la parte superior derecha, otro despegable 'Selection
Change' y bastantes opciones al abrirlo ..'

sustituye las lineas que se establecieron 'por omision' de: -> "Private
Sub Worksheet_SelectionChange(ByVal Target As Range)
-> por las lineas de la propuesta anterior:
Dim Celda As Range
Private Sub Worksheet_Change(ByVal Target As Range) [etc. etc. etc.]

si cualquier duda... comentas ?
saludos,
hector.

hola, Ernesto !

Como elimino esta macro despues, en caso de no funcionar, o que la hoja no me funcione correctamente?

[simplemente]... abres el modulo de codigo de 'esa' hoja...
-> seleccionas TODAS las lineas de codigo en ese modulo [o solo las del procedimiento no-necesario]...
-> y pulsas el boton {supr} / {del} / ... ;)

saludos,
hector.