|
|
Hola experto,
Ya tengo la formula para lo que intentava hacer, gracias de qualquer manera.
Me podias ayudar en como puedo en target adress cambiarlo para que en vez de la celda f7 , abarque la f7,g7,h7 porque las tengo formateadas juntas.
Te dejo la rutina.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Double
If Target.Address = "$F$7" Then
x = Shell("E:\Archivos de programa\VoipBuster.com\VoipBuster\VoipBuster.exe", vbNormalFocus)
'SendKeys "^v"
End If
End Sub
Gracias
carlosprettyboy@hotmail.com
Carlos Gomes
--------------
hola, dependiendo a que te refieras con "formateadas junsta", la respuesta varia. Te refieres a que estab "combinadas"? O es otra cosa?
Abraham
----------------
Hola experto,
Estan conbinadas.
-----------------
Hola, si estan combinadas, basta mencionar (en este caso al menos), a la de mas a al izquierda y arriba. Otra cosa, usa el evento Change, mejor declara la variable X como Variant y copia lo de la celda!!!! OJO, lo pegara siempre y cuando al iniciarse tu programa el foco este en el lugar que hay que pegar el codigo:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Variant
If Target.Address = "$F$7" Then
Target.Copy
x = Shell("E:\Archivos de programa\VoipBuster.com\VoipBuster\VoipBuster.exe", vbNormalFocus)
SendKeys "^v"
End If
End Sub
Abraham
------------------------
Hola experto,
Esta perfecto solo pasa una cosa, tengo de salir de la celda despois de dar doble click en la celda con el valor para que me trayga adelante el programa e sy que copia el valor en la celda.
Aunque solo lo hey probado com la celda f7 ya que lo de hacerlo en las 2 celdas que tengo ahora para el numero de telefono que son las g7 y la h7 conbinadas, no lo tengo claro.
Gracias
carlos gomes
carlosprettyboy@hotmail.com
|