macro help > assign to button

[bluepenink]

Hello

i have a hyperlink in cell D10 (phone #)...where when i click on a button, it dails the # thru skype.

basically, when i right click on cell D10, from the menu, i select "call this number with skype: xx-xxx-xxx"

now i tried to record the macro of me right clicking and wanting to execute the link but it wont work

Sub Dial()
'
' Dial Macro
'
'
    Range("D10").Select
End Sub

can someone pls help with this basic macro...i have assigned it to a button, but it wont dial....

 

[AlphaFrog]

If cell D10 is a hyperlink, this might work.

Sub Dial()
'
' Dial Macro
'
'
    Worksheets("Sheet1").Range("D10").Hyperlinks(1).Follow
End Sub

 

[bluepenink]

hey

i put the following code in a module...but getting "script out of ordeR"

Sub Dial()
'
' Dial Macro
'
'
    Worksheets("Sheet2").Range("D10").Hyperlinks(1).Follow
End Sub

any idea why?

 

[bluepenink]

hello all

i changed my code

Sub Dial()
'
' Dial Macro
'
'
    Worksheets("Sheet2").Range("D10").Hyperlinks(1).Follow
End Sub

however, it only takes me to the cell D10, it does not execute the hyperlink...can someone help

 

[AlphaFrog]

I don't have Skype and the Skype office add-in, so I'm flying in the dark here.

When you select cell D10, what do you see in the formula bar? Is it just the phone number or is it a hyperlink formula?

 

[bluepenink]

hey bud

it appears to work....just curious, what does hyperlink(1) mean?

also, the only issue im facing with this is....basically in my worksheet "master" i get customer name and phone number from a macro that gets me the customer info.

so as the customer info shows up, i have the option in there to call them thru skype, which is pretty neat add-in. however, the issue is, whenever i get a new set of data in or customer info, the skype # in the hyperlink stays the same

this is the hyperlink
i.e. skype:+14166514804?call&origin=MOTB ...> this shows in cell D10 or in the hyerlink

is there a way to get that number to refresh in that link? i had defined the name in D10 to VPHONE

ur thoughts....thxs buddy!

 

[AlphaFrog]

what does hyperlink(1) mean?

Hyperlinks Collection

i get customer name and phone number from a macro that gets me the customer info.

so as the customer info shows up, i have the option in there to call them thru skype, which is pretty neat add-in. however, the issue is, whenever i get a new set of data in or customer info, the skype # in the hyperlink stays the same

this is the hyperlink
i.e. skype:+14166514804?call&origin=MOTB ...> this shows in cell D10 or in the hyerlink

is there a way to get that number to refresh in that link? i had defined the name in D10 to VPHONE

What macro?

 

[bluepenink]

this is my code

it looks up customer name, address and phone number from my raw data and dumps it into my master worksheet where it contains only only name, and phone number...and then i have the phone # linked to skype add-in for excel.

it works great, but whenever i go to get info for user #2, although the number changes in cell D10 (phone #), the hyperlink (in my previous post) for skype, still holds the previous user's phone #

Sub RetrieveVoter()
    Application.Range("StartRow").Value = Application.Range("StartRow").Value + 1
End Sub
Sub MoveData()
    Dim lngLastRow As Long
    
    lngLastRow = Sheets("Results").Range("C65536").End(xlUp).Row + 1
    
    For MoveInfo = 1 To 10
        Sheets("Results").Range("C" & lngLastRow).Value = Sheets("Master").Range("D8").Value
        Sheets("Results").Range("D" & lngLastRow).Value = Sheets("Master").Range("D9").Value
        Sheets("Results").Range("E" & lngLastRow).Value = Sheets("Master").Range("D10").Value
        Sheets("Results").Range("F" & lngLastRow).Value = Sheets("Master").Range("E9").Value
        Sheets("Results").Range("G" & lngLastRow).Value = Sheets("Master").Range("F9").Value
        Sheets("Results").Range("H" & lngLastRow).Value = Sheets("Master").Range("G9").Value
        Sheets("Results").Range("I" & lngLastRow).Value = Sheets("Master").Range("H9").Value
        Sheets("Results").Range("J" & lngLastRow).Value = Sheets("Master").Range("I9").Value
        Sheets("Results").Range("K" & lngLastRow).Value = Sheets("Master").Range("J9").Value
    Next
    Application.Range("LinkCell") = 1
        RetrieveVoter
    MsgBox "Successfully transfered to the Results worksheet.", vbInformation, "Moved"
End Sub

thxs bud

 

[bluepenink]

NM buddy...it works....got to work it thru another formula

much appreciated

cheers