Special Macro/VBA NEEDED

[jspiegz]

Anyone have, or can make a macro that opens hyperlinks in the C Collumn, in the site, look and copy an email adress (maybe copies text with a @ next to it) and then pasting it in the D collumn, I need this URGENT.

I have office 2010, and also, how would I run the macro/VBA

 

[pedie]

Have you tried googling it?

Please try this thread link i think it very relevant to what you're looking or could be quick fix for now. Copy the whole thing from the web and then re-org. the email address or maybe you can try web query too.

Can i see your web address and what u want to copy from there?

 

[jspiegz]

Pedie, I have searched, Im just SO limited on time..

I just need the macro to go into the hyperlinks, and copy any potential email andresses and post it next ot the hyperlink..
How would I use it anywyas..

 

[jspiegz]

Have you tried googling it?

Please try this thread link i think it very relevant to what you're looking or could be quick fix for now. Copy the whole thing from the web and then re-org. the email address or maybe you can try web query too.

Can i see your web address and what u want to copy from there?

SG PAULINE BEAUDIN
Is the name on C46
Hyperlink on it is
http://www.cpepirouette.com/cpe_google_map.php?mf_id=536

the email i want would be: the email address shown on the linked web page

 

[jspiegz]

hello...?

 

[pedie]

try this

[/FONT]
[FONT=Courier New]Option Explicit[/FONT]
[FONT=Courier New]Sub CopywebContententTOsheet()
With ActiveSheet.QueryTables.Add(Connection:= _        "URL;http://www.cpepirouette.com/_liste_milieux_familiaux/mf_id/536", _        Destination:=Range("$C$46"))
        .Name = "536"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
Application.Goto Range("C146")
End Sub

 

[jspiegz]

Thanks!
And I can use it with multiple hyperlinks?

 

[jspiegz]

When I run, i get some errors