Jump to content

Problema con el sendkeys


Recommended Posts

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy