SoftPhone da arama yapma

[cellswhite]

İyi gunler,

Sub ARAMAYAP()
Application.DisplayAlerts = True
adres = ActiveCell.Address
Range(adres).Copy
Application.SendKeys "%{TAB}", True
     Const Viewer As String = "C:\Program Files\CounterPath\X-Lite\x-lite.exe"
     Shell Viewer, 1
Application.SendKeys "%{TAB}", True
     
     Application.SendKeys "^v", True
Application.SendKeys "{ENTER}"


End Sub

Yukarıdaki kod ile excelde ilgili hucredeki telefon numarasını copy yapıp softphone da önce "shell" edip sonra "paste" edip sonrada "enter" lamaya calisiyorum ama olmuyor.
Oldu gibi görünüyor ama olmuyor (bir hucre için yapıyor başka hucreyi sectiğinde yine eski adresteki veriyi yapıstırıyor)
Bu konuda destek çok sevinirim.

İyi çalışmalar.

 

[cellswhite]

Selamlar,

TAB ın altına aşağıdaki kodu yazdıgımda oldu galiba yinede çözüm önerilerinizi paylaşırsanız sevinirim.

     Shell Viewer, 1

 

[cellswhite]

Arkadaslar,

Kullandıgım Pc Win7 Office 2007 Eng sıkıntı yok calisiyor.

Ama , XP - 2003 Office TR kurulu makinalarda kod calismiyor.

Bu konuda destek verebilirmisiniz.