Ugente. SendKeys

hola, Des !

para la prueba, llene de numeros el rango [C2:C20]
- consulto el formato de alguna celda: => "general"
- aplico formato de moneda (y consulto): => "moneda" (dos decimales)

- ejecuto desde la ventana de inmediato: [c2:c20].numberformat = "@"
a) el numero se carga a la izquierda (perdiendo el signo de moneda)
b) consulto el formato de la celda: => Texto

saludos,
hector.

__ OP __

Si es desde inmediato ( Ctl + G)
[c2:c20].numberformat = "@"
y hacer Intro--> Nanainas
Con bucle cells(bucle,10).numberformat "@"--Nanainas
Formatear texto, copiar valoresNanainas
Con bucle cells(bucle,10).numberformat "@"--Nanainas
con:
Con bucle cells(bucle,10).numberformat "@"
mas
bucle cells(bucle,10).sendkeys--Nanainas
Moviendo valores sobre columnas formateadas , desde el General nativo a Texto-Nanainas

Se me acaban las ideas

hola, Des !

Tampoco entiendo, el porque de que lanzando la macro se abra el examinador de objetos
salte el beep por cada valor del bucle (al final Un pito de 3 segundos para unas pocas líneas)
y al final salga el mensaje: DEBE ESPECIFICAR UNA CADENA DE BUSQUEDA.
Si lanzo la macro con sucesiones de F8, no hace lo que espero, pero ni Beep ni examinador de objetos..
La razon?

sencillo: cada instruccion "SendKeys ..." NO se ejecuta si no hasta que termina la macro
(o se muestra un dialogo que demande la interaccion con el usuario) entonces...
si el sendkeys fue en la ventana de inmediato (hacer un {F2} en vba equivale a lanzar al examinador de objetos)
lo demas... (es lo de menos ?)

saludos,
hector.

Hola Héctor:
Otra posible solución, creo que más rápida y sencilla, para hacer cambios de
formato, es utilizar 'Texto a columnas'.




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

hola, Des !

Sobre Celdas formato General se han modificado a Formato Numero y luego a
Texto.
A una parte se le paso manualmente F2 y Enter . La ordenacion es un Des
As Tre.

cuando una celda YA tiene un formato de texto, NO es suficiente con
cambiarlo a un formato + estandar
(hasta donde se) el cambio de formatos de celda de texto a otro tipo
(solo) entra en accion al (re)editar/entrar la celda

despues de cambiar el formato de texto a otro (numerico o
personalizado)...

op1: escribe un 1 (uno) en alguna celda vacia... copialo... selecciona el
rango con problemas y has un:
-> pegado especial / valores / multiplicar

op2: selecciona el rango con problemas y desde el editor de vba, muestra
la ventana de inmediato y...
copia/pega (o escribe) lo siguiente (y pulsas enter para ejecutar)
selection.value = selection.value

saludos,
hector.

Hola Héctor. Gracias.
lo que dices es lo que me pasa a mi, pero lo veo solo como apariencia.
Eso lo conseguiría con un copiar y pegar la columna entera. 4 Segundos.
El problema viene cuando quieres ordenarlo ( normalmente no hace falta, pero para un cambio de
legislación contable, hay que hilar muy fino. No suelen ser "demasiao" comprensivos)
Créalo como estructura alfanumérica contable. (Esta,está desordenada, si estuviera ordenada verías,
además de una estructura contable, que faltan sub- cuentas, cuentas y grupos... una de las cosas a
evitar)

1
33333333
3
222
11111111
2
22
3333
1111
11
en esta estructura , que haya de todo: numero, general, fecha texto.Por si me despisto, al lado ( o
diez columnas mas allá) pongo una columna numerada con los mismos números de la fila. Pásalo todo a
texto Y ordénalo por la columna en contable, luego comprueba, a simple vista con una formula tipo :
Si esta celda es mayor que la de arriba, silencio, sino, "DIFERENTE". El Diferente que sea muy
grande y llame la atención , que en 40.000 líneas se te cansa la vista.
Lo que te muestro es una abreviatura de la realidad. Cuentas en el plan contable 850, un cuarto de
hora de paciencia.
Líneas en el histórico a modificar +- 40 / 450000. Ya son mas ratos y sin la seguridad de que no se
pasen por atrofia dactilar, unas cuantas líneas que den problemas.
Las Líneas se fueron asentando unas veces, como general, otras como numero, otras como texto, se
cambió alguna, se volvió y ahora se necesita pasarlas si, o sí a texto.


Saludos y ... Excel entes vibraciones
Des As Tres No imprimas, ganemos un árbol... o tres hojinas.
"Héctor Miguel" escribió en el mensaje
news:%

hola, Des !

para la prueba, llene de numeros el rango [C2:C20]
- consulto el formato de alguna celda: => "general"
- aplico formato de moneda (y consulto): => "moneda" (dos decimales)

- ejecuto desde la ventana de inmediato: [c2:c20].numberformat = "@"
a) el numero se carga a la izquierda (perdiendo el signo de moneda)
b) consulto el formato de la celda: => Texto

saludos,
hector.

__ OP __
> Si es desde inmediato ( Ctl + G)
> [c2:c20].numberformat = "@"
> y hacer Intro--> Nanainas
> Con bucle cells(bucle,10).numberformat "@"--Nanainas
> Formatear texto, copiar valoresNanainas
> Con bucle cells(bucle,10).numberformat "@"--Nanainas
> con:
> Con bucle cells(bucle,10).numberformat "@"
> mas
> bucle cells(bucle,10).sendkeys--Nanainas
> Moviendo valores sobre columnas formateadas , desde el General nativo a Texto-Nanainas
>
> Se me acaban las ideas

Hola Héctor. gracias.

sencillo: cada instrucción "SendKeys ..." NO se ejecuta si no hasta que termina la macro
(o se muestra un dialogo que demande la interaccion con el usuario) entonces...

En las macros normales , si no se especifica una forma de interacion por inputbox o similar, la
interacion con elusuario es nula.
Pero , en este caso, ¿la interación para qué?

lo demas... (es lo de menos ?)

No te sigo.

Saludos y ... Excel entes vibraciones
Des As Tres No imprimas, ganemos un árbol... o tres hojinas.

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

hola, Des !

> Tampoco entiendo, el porque de que lanzando la macro se abra el examinador de objetos
> salte el beep por cada valor del bucle (al final Un pito de 3 segundos para unas pocas líneas)
> y al final salga el mensaje: DEBE ESPECIFICAR UNA CADENA DE BUSQUEDA.
> Si lanzo la macro con sucesiones de F8, no hace lo que espero, pero ni Beep ni examinador de

objetos..

> La razon?

sencillo: cada instruccion "SendKeys ..." NO se ejecuta si no hasta que termina la macro
(o se muestra un dialogo que demande la interaccion con el usuario) entonces...
si el sendkeys fue en la ventana de inmediato (hacer un {F2} en vba equivale a lanzar al

examinador de objetos)

lo demas... (es lo de menos ?)

saludos,
hector.