sendkeys
Publicado por Luis Enrique (2 intervenciones) el 03/08/2016 21:51:35
Hola amigos necesito su ayuda.....
Esta macro funciona correctamente desde cualquier celda de la hoja
Pero cuando quiero pasarla a un proyecto vba, para poder ejecutarla desde un formulario no funciona...
Por favor alguien que me apoye... este es el codigo que le puse en el comandbutton del formulario
Esta macro funciona correctamente desde cualquier celda de la hoja
1
2
3
4
5
6
Sub Fecha()
Range("A11").Select
Selection.End(xlDown).Select
SendKeys "{F2}", True
SendKeys "{ENTER}", True
End Sub
Pero cuando quiero pasarla a un proyecto vba, para poder ejecutarla desde un formulario no funciona...
Por favor alguien que me apoye... este es el codigo que le puse en el comandbutton del formulario
1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Range("A11").Select
Selection.End(xlDown).Select
Application.SendKeys "{F2}", True
Application.SendKeys "{ENTER}", True
DoEvents
End Sub
Valora esta pregunta
0
