Ugente. SendKeys

04/12/2009 - 20:18 por Desastres | Informe spam
Buenas tardes.
Sobre Celdas formato General se han modificado a Formato Numero y luego a Texto,. A una parte se le
pasó manualmente F2 y Enter . La ordenación es un Des As Tre.

El siguiente sub no produce el mismo efecto que : F2 y ENTER, ( Y solo son 40.000 líneas)

Suba a ()
Dim x as Long
Dim y As Long
Dim z as Long

x = val(inputbox("¿Fila"?))
y = val(Inputbox("¿Columna?"))
For z = x to y
activesheet.cells(bucle,Y).activate ' o select
sendkeys "{F2"}
sendkeys "{Enter}"
next z
end sub

excúsense, si los hubiera , errores de sintaxis

¿En padonde meto la pata?

¿Otra Forma de hacerlo?

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

Leer las respuestas

#1 Héctor Miguel
04/12/2009 - 22:12 | Informe spam
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.

Preguntas similares