llamadas de telefono desde excell

Hola experto,
Me gustaria que al hacer click el la celda f7, excell pueda copiar automaticamente el valor en ella al clipbord e me abra un determinado programa llamado voipbuster al mismo tiempo? Ay yo puedo pegar el numero en el programa y llamar?  Esta es la ruta del programa.
"E:\Archivos de programa\VoipBuster.com\VoipBuster\VoipBuster.exe"
El programa es un programa de llamadas por telefono.
carlosprettyboy@hotmail.com
Muchas gracias
 
Carlos Gomes

Hola experto,
Gracias por tu ayuda, no sou muy avançado en excel, me poderias dizir donde esta la seccion de codigo, seguramente esta a delante de mis narizes e no la vea.
Pense que poderia ser donde se introduze las formulas pero no es.
Donde podera ser?
Gracias
carlosprettyboy@hotmail.com
Carlos Gomes

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Double
If Target.Address = "$F$7" OR Then
x = Shell("E:\Archivos de programa\VoipBuster.com\VoipBuster\VoipBuster.exe", vbNormalFocus)
'SendKeys "^v"
End If
End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Double
If Target.Address = "$F$7" OR Target.Address = "$F$8" OR Target.Address = "$F$9" Then
x = Shell("E:\Archivos de programa\VoipBuster.com\VoipBuster\VoipBuster.exe", vbNormalFocus)
'SendKeys "^v"
End If
End Sub

SINO:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Double
If Target.Address = "$F$7" OR Target.Address = "$G$7" OR Target.Address = "$H$7" Then
x = Shell("E:\Archivos de programa\VoipBuster.com\VoipBuster\VoipBuster.exe", vbNormalFocus)
'SendKeys "^v"
End If
End Sub

Alguno de esos dos supongo que te funcionará

Pienso que habría un clic de más.
Intenta de nuevo con este if.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Double
If activecell.row = 7 and (activecell.column = 6 or activecell.column = 7 or activecell.column = 8 ) Then
x = Shell("E:\Archivos de programa\VoipBuster.com\VoipBuster\VoipBuster.exe", vbNormalFocus)
'SendKeys "^v"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Double
If activecell.row = 7 and (activecell.column = 6 or activecell.column = 7 or activecell.column = 8 ) Then
selection.copy
x = Shell("E:\Archivos de programa\VoipBuster.com\VoipBuster\VoipBuster.exe", vbNormalFocus)
'SendKeys "^v"
End If
End Sub

Ó: (Versión avanzada)
'"To use the DataObject in your code, you must set a reference to the Microsoft Forms 2.0 Object Library."
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DataObj As New MSForms.DataObject
Dim x As Double
Dim stringtemp as string
If activecell.row = 7 and (activecell.column = 6 or activecell.column = 7 or activecell.column = 8 ) Then
stringtemp = activecell.value
DataObj.SetText stringtemp
DataObj.PutInClipboard
x = Shell("E:\Archivos de programa\VoipBuster.com\VoipBuster\VoipBuster.exe", vbNormalFocus)
'SendKeys "^v"
End If
End Sub
Tomado de:
http://www.cpearson.com/excel/Clipboard.aspx
Felix Año Nuevo.
Finaliza la pregunta.