Alto de fila automático

hola, Javi !

... con la funcion BuscarV a veces el texto excede del ancho de la celda
... he seleccionado en el formato de celda que se ajuste en varias lineas
... ¿Que puedo hacer para que se autoajuste [...]

considerando que el ajuste de lineas al texto en el formato de celdas...
-> es 'aplicable' SOLO a 'entradas directas' en dicha/s celda/s
-> NO es 'detectado' cuando la celda varia su contenido por formulas/funciones...
[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]
-> 'detecta' [en el evento '_change'] si la/s celda/s modificada/s 'tiene/n algo que ver con...' [precedente/s]
por ejemplo en el modulo de codigo de 'esa' hoja suponiendo que el buscarv esta en 'A1' ==Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1].Precedents) Is Nothing Then
[a1].WrapText = False: [a1].WrapText = True
End If
End Sub

saludos,
hector.
p.d. solo 'toma en cuenta' que... ->se pierde<- el beneficio del deshacer... undo... ctrl+z :((

Hola Héctor

Creo que no me hexplicado bien (disculpas) o no he entendido tu
explicación.

A la celda que contiene la función BUSCARV ya la he dado la propiedad
"Ajustar Texto" del Menú CELDAS para que me aparezca en varias líneas si
el texto excede el ancho de fila.

El problema es que cuando el valor buscado excede del ancho de la columna,
el alto de la fila debería aumentar automáticamente para poder ver todo el
texto.

Ya he entendido por qué no lo hace (no sirve con fucniones, sólo cuando se
edita la celda ¿no?). He localizado el método AUTOFIT pero no he sabido
utilizarlo para esto.

Muchas gracias de nuevo

Javi

Héctor Miguel wrote:

hola, Javi !

> ... con la funcion BuscarV a veces el texto excede del ancho de la celda
> ... he seleccionado en el formato de celda que se ajuste en varias lineas
> ... ¿Que puedo hacer para que se autoajuste [...]

considerando que el ajuste de lineas al texto en el formato de celdas...
-> es 'aplicable' SOLO a 'entradas directas' en dicha/s celda/s
-> NO es 'detectado' cuando la celda varia su contenido por

formulas/funciones...

[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]

-> 'detecta' [en el evento '_change'] si la/s celda/s modificada/s 'tiene/n

algo que ver con...' [precedente/s]

por ejemplo en el modulo de codigo de 'esa' hoja suponiendo que el

buscarv esta en 'A1' ==> Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [a1].Precedents) Is Nothing Then
[a1].WrapText = False: [a1].WrapText = True
End If
End Sub

saludos,
hector.
p.d. solo 'toma en cuenta' que... ->se pierde<- el beneficio del deshacer...

undo... ctrl+z :((

hola, Javi !

... no me he explicado bien... o no he entendido tu explicacion.
... la celda que contiene... BUSCARV ya la he dado... "Ajustar Texto"
... cuando el valor buscado excede... el alto de la fila deberia aumentar automaticamente
... he entendido por que no lo hace... solo cuando se edita la celda ¿no?.
... el metodo AUTOFIT... no he sabido utilizarlo para esto.

1.- el codigo propuesto 'deberia' de funcionar, ya que 'detecta' si la/s celda/s que se modifica/n...
-> son 'precedentes' de la celda que contiene la formula [suponiendo que es 'A1']
pregunta 1: ¿ya lo probaste?... | ¿que fallas/errores 'reporta'?
2.- si NO 'funciona' :(... [probablemente] se debe a que la/ celda/s de donde 'toma' los argumentos...
pregunta 2: ¿estan en una hoja 'diferente'?
-> si es asi... sera necesario utilizar otro evento [el '_calculte']
3.- 'observa' que el codigo 'quita y re/pone' la propiedad de 'ajuste de texto' a la celda [con buscarv]

por si las dudas... te expongo la/s [posible/s] solucion/es para ambos casos
si cualquier duda [o informacion adicional]... ¿comentas?
saludos,
hector.
en el modulo de codigo de la hoja donde esta la celda con la funcion buscarv ==__ 1 __ [si las celdas son de la misma hoja]
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1].Precedents) Is Nothing Then
[a1].WrapText = False: [a1].WrapText = True
End If
End Sub
__ 2 __ [si los argumentos 'vienen' de celdas en una hoja distinta]
Private Sub Worksheet_Calculate()
Static Previo As Integer
If Len([a1]) = Previo Then Exit Sub
[a1].WrapText = False: [a1].WrapText = True
Previo = Len([a1])
End Sub