TimeKeeper,

Sub CellToDialer()
'Here's some VBA code from John Walkenbach "Excel 2000 Power Programming
With VBA" book.
'It uses SendKeys to click the Dial button:

' 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"
End Sub


And if you are new to macros you may also what to have a look here on
getting started with macros
http://www.mvps.org/dmcritchie/excel/getstarted.htm


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"TimeKeeper" wrote in message
...

Thank you, this is helpful. One last question... Where is Dialer.exe? I
searched my hard disks, but can't find it. Do I need to purchase it or is it
freeware someplace? Sorry, that's two questions.

"Paul B" wrote:

TimeKeeper,

Sub CellToDialer()
'Here's some VBA code from John Walkenbach "Excel 2000 Power Programming
With VBA" book.
'It uses SendKeys to click the Dial button:

' 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"
End Sub


And if you are new to macros you may also what to have a look here on
getting started with macros
http://www.mvps.org/dmcritchie/excel/getstarted.htm


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"TimeKeeper" wrote in message
...

TimeKeeper,

What's the Dialer program?
Dialer.exe is a program that ships as part of Windows. It allows a user to
dial an outgoing voice call via his computer, if the modem supports both
voice and data. The user enters a number to dial, or selects a number from
the speed-dialer list, and then picks up on a handset when the call is
answered.

I am on a computer running windows 98 at this time, it is in C:\windows,
have not used it in XP so I don't know if it is in it or not, you could most
likely do a search on Google for it and find a copy, if not I can send you a
copy from this computer. It's a small file only abut 68kb

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"TimeKeeper" wrote in message
...
Thank you, this is helpful. One last question... Where is Dialer.exe? I
searched my hard disks, but can't find it. Do I need to purchase it or is
it
freeware someplace? Sorry, that's two questions.

"Paul B" wrote:

TimeKeeper,

Sub CellToDialer()
'Here's some VBA code from John Walkenbach "Excel 2000 Power Programming
With VBA" book.
'It uses SendKeys to click the Dial button:

' 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"
End Sub


And if you are new to macros you may also what to have a look here on
getting started with macros
http://www.mvps.org/dmcritchie/excel/getstarted.htm


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"TimeKeeper" wrote in message
...

Yes, that would be great if you would send me a copy of dialer.exe and any
type of dialer.doc file you might also have available. I am running XP and
dialer.exe did not come with it.

Thank you very much!



"Paul B" wrote:

TimeKeeper,

What's the Dialer program?
Dialer.exe is a program that ships as part of Windows. It allows a user to
dial an outgoing voice call via his computer, if the modem supports both
voice and data. The user enters a number to dial, or selects a number from
the speed-dialer list, and then picks up on a handset when the call is
answered.

I am on a computer running windows 98 at this time, it is in C:\windows,
have not used it in XP so I don't know if it is in it or not, you could most
likely do a search on Google for it and find a copy, if not I can send you a
copy from this computer. It's a small file only abut 68kb

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"TimeKeeper" wrote in message
...
Thank you, this is helpful. One last question... Where is Dialer.exe? I
searched my hard disks, but can't find it. Do I need to purchase it or is
it
freeware someplace? Sorry, that's two questions.

"Paul B" wrote:

TimeKeeper,

Sub CellToDialer()
'Here's some VBA code from John Walkenbach "Excel 2000 Power Programming
With VBA" book.
'It uses SendKeys to click the Dial button:

' 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"
End Sub


And if you are new to macros you may also what to have a look here on
getting started with macros
http://www.mvps.org/dmcritchie/excel/getstarted.htm


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"TimeKeeper" wrote in message
...

I would need your e-mail address to do that.

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"TimeKeeper" wrote in message
...
Yes, that would be great if you would send me a copy of dialer.exe and any
type of dialer.doc file you might also have available. I am running XP
and
dialer.exe did not come with it.

Thank you very much!



"Paul B" wrote:

TimeKeeper,

What's the Dialer program?
Dialer.exe is a program that ships as part of Windows. It allows a user
to
dial an outgoing voice call via his computer, if the modem supports both
voice and data. The user enters a number to dial, or selects a number
from
the speed-dialer list, and then picks up on a handset when the call is
answered.

I am on a computer running windows 98 at this time, it is in C:\windows,
have not used it in XP so I don't know if it is in it or not, you could
most
likely do a search on Google for it and find a copy, if not I can send
you a
copy from this computer. It's a small file only abut 68kb

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"TimeKeeper" wrote in message
...
Thank you, this is helpful. One last question... Where is Dialer.exe?
I
searched my hard disks, but can't find it. Do I need to purchase it
or is
it
freeware someplace? Sorry, that's two questions.

"Paul B" wrote:

TimeKeeper,

Sub CellToDialer()
'Here's some VBA code from John Walkenbach "Excel 2000 Power
Programming
With VBA" book.
'It uses SendKeys to click the Dial button:

' 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"
End Sub


And if you are new to macros you may also what to have a look here
on
getting started with macros
http://www.mvps.org/dmcritchie/excel/getstarted.htm


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit
from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"TimeKeeper" wrote in message
...

TimeKeeper Wrote:
Yes, that would be great if you would send me a copy of dialer.exe and
any
type of dialer.doc file you might also have available. I am running XP
and
dialer.exe did not come with it.

Thank you very much!Hi TimeKeeper,

I have XP Home & XP Pro, "dialer.exe" is in this path on both.

C:\Program Files\Windows NT\dialer.exe


--
Desert Piranha


------------------------------------------------------------------------
Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934
View this thread: http://www.excelforum.com/showthread...hreadid=572505