Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autodial phone number from cell
Having a cell with a phone number in it, want to use the
autodial feature of Windows. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autodial phone number from cell
Terry, try this by John Walkenbach
Sub CellToDialer() 'By John Walkenbach ' Transfers active cell contents to Dialer ' And then dials the phone ' Get the phone number CellContents = ActiveCell.Value If CellContents = "" Then MsgBox "Select a cell that contains a phone number." Exit Sub End If ' Activate (or start) Dialer Appname = "Dialer" AppFile = "Dialer.exe" On Error Resume Next AppActivate (Appname) If Err < 0 Then Err = 0 TaskID = Shell(AppFile, 1) If Err < 0 Then MsgBox "Can't start " & AppFile End If ' Transfer cell contents to Dialer Application.SendKeys "%n" & CellContents, True ' Click Dial button Application.SendKeys "%d", True End Sub -- Paul B Always backup your data before trying something new Using Excel 97 & 2000 Please post any response to the newsgroups so others can benefit from it ** remove news from my email address to reply by email ** "Terry" wrote in message ... Having a cell with a phone number in it, want to use the autodial feature of Windows. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
format a cell with a phone number - how? | Excel Discussion (Misc queries) | |||
Lookup existence of a cell phone text number | Excel Discussion (Misc queries) | |||
Phone number not | Excel Discussion (Misc queries) | |||
Phone number | Excel Discussion (Misc queries) | |||
How do I delete the "=" from a cell to give me the phone number I. | Excel Discussion (Misc queries) |