bellen vanuit een werkblad

[Murat]

Kan iemand mij vertellen of het mogelijk is om vanuit een
Excel werkblad automatisch telefoonnummers te kiezen met
1 klik??

als je bv. een standaard lijstje hebt waarin je variabele
gegevens moet in vullen....

[Piet Robe]

Murat,
Kun je iets meer info geven.
Ik kan vanuit een werkblad wel 'automatisch' een nummer draaien die in
eenbepaalde cel staat. Is dat de bedoeling?
Met vriendelijke groet
Piet Robe

(to reply to sender remove DITVERWIJDEREN from emailadress)

"Murat" <mu...@procare.nl> schreef in bericht
news:bf2201c2528e$879667d0$9ee62ecf@tkmsftngxa05...

[Frank Looman]

Beste Piet,

Ik weet niet of dit de vraag is van Murat.
Maar ik ben wel benieuwd naar de oplossing, die jij
hiervoor hebt.

Frank Looman.

>-----Oorspronkelijk bericht-----

>.
>

[Piet Robe]

beste frank en anderen,
deze code een keer aangepast via deze nieuwsgroep (mbv Ber Visser dacht ik)
Sub TelefoonKiezen()
' Transfers active cell contents to Dialer
' And then dials the phone

' Get the phone number
CellContents = ActiveCell.Value
If CellContents = "" Then
MsgBox "Kies een cel met een telefoonnummer."
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 "%m"
' Application.SendKeys "{TAB}~", True
End Sub

Hopelijk hebben jullie er wat aan, want ik gebruik hem regelmatig

Piet
"Frank Looman" <loo...@telebyte.nld> schreef in bericht
news:9fee01c252ba$78d73680$2ae2...@phx.gbl...

[murat]

Wat bedoelt u precies met 'áutomatisch'? zonder er op te
klikken?
>-----Oorspronkelijk bericht-----

>.
>

[Piet Robe]

Murat,
Activeer de cel waar het telefoonnummer staat
laat vervolgens de macro zijn werk doen
Piet