Posle zaista mnogo traženja, i uz mnogo prepravki, došao sam do sledećeg rešenja:
Code:
Option Explicit
Sub DialOut() '
Dim strDial As String
Dim intReturn As Long
intReturn = Shell("C:\Windows\Dialer.exe", 1)
strDial = ActiveCell.Value
intReturn = Shell("C:\Windows\Dialer.exe", 1)
Application.SendKeys (strDial & "%d")
Application.Wait Now + TimeValue("00:00:11")
Application.SendKeys "{ESC}"
Application.SendKeys "%{F4}"
End Sub
Zaista je jednostavan macro, i radi bez greške, onako kao sam i hteo, ali...kada drugi put pozovem neki broj, scroll dugme postaje zum, a obeležene ćelije se gomilaju (ne isključuju se kada kliknem na neku drugu). Posle zatvaranja i otvaranja excela sve je ok, do drugog aktiviranja macroa. U macrou sam morao da dva puta pozovem Dialer, da bi broj bio automatski upisan (Dialer se podigao, ali nije bio aktivan), i mislim da je tu problem. Zna li neko kako to rešiti?