Problema con el sendkeys

[dfrankon]

Cómo simular con código VB el pulsado de teclas de función

Hola,

Tengo esta necesidad.

En una función de VB necesito que la fórmula que hay en una celda que se ve como texto se reemplace por un valor y se copie al resto de celdas de esa misma columna.

La fórmula en cuestión viene escrita en un fichero .txt desde un ERP, por lo cual no se ejecuta automáticamente.

Mirando las audas de VB para Excel he visto la función sendkeys y estuve haciendo pruebas pero no acaba de funcionar correctamente.

La secuencia de lo que tengo que hacer es:

1. situar el cursor en una celda (BR6)

2. pulsar F2 (para editar la fórmula)

3. pulsar Intro para pegar el valor en la celda

4. copiar la celda BR6 y pegarla en las celdas BR7 hasta BR5000

Para esto he escrito este código

Public Sub copiaformula()

Range("BR6").Select

SendKeys String:=("{F2}~"), Wait:=True

Range("BR6").Select

Selection.Copy

Selection.AutoFill Destination:=Range("BR6:BR5000")

Application.CutCopyMode = False

End Sub

[/CODE]

Pero el resultado no es bueno.

Lo que ocurre es que:

1. en la celda BR6 queda pegado el valor correctamente

2. En las celdas BR7 a BR5000 queda pegada la fórmula de BR6 y no el resultado de la fórmula de cada celda.

Para colmo de males, si utilizo el debugger al pasar la instrucción Sendkeys... F2, interpreta que la F2 la pulso desde el Visual Basic,

por lo que se abre el explorador de objetos.

¿Sabe qlguien dónde puede estar el problema?

¿Tiene alguien experiencia en esto?

Muchas gracias anticipadas

Daniel

[Gerson Pineda]

Hola

Creo que debes usar otro metodo, al menos de lo que entendi y por otro lado debes leer las normas, y luego entenderas que falta para ayudarte completamente

Saludos