HBC Juniormester
14. marts 2019 - 22:16 Der er 1 løsning

Hyperlink, fandt denne makro

Hej derude,

Fandt denne makro på nettet som laver et link imellem de forskellige værdier som findes både i kolonne E og C.
Jeg kan så flytte rundt imellem hvilke kolonner jeg vil bruge.
Mit spørgsmål lyder om der er nogen som kan hjælpe med, at kolonne C skal være i ark 2 og dermed ikke samme ark som kolonne E, hvilket er ark1.

Se nedenstående makro:

Sub Update_Hyperlinks()



    Dim LRowE, LRowC As Integer

    Dim LContinue As Boolean

 

    'Clear all hyperlinks from the active sheet

    ActiveSheet.Hyperlinks.Delete

 

    'Start at row 1 when creating hyperlinks for column E

    LRowE = 1

 

    'Create hyperlinks in column E until a blank value is encountered in column E

    While Len(Range("E" & CStr(LRowE)).Value) > 0

     

        'Start at row 1 (when searching column C values)

        LRowC = 1

        LContinue = True

     

        'Stop searching column C when either a match is found, or

        ' a blank value in column C is found

        While LContinue = True

     

            'Found a match between column E and column C, set hyperlink and

            ' set boolean variable to not search any more for a match

            If Range("E" & CStr(LRowE)).Value = Range("C" & CStr(LRowC)).Value Then

             

                'Select the location for the new hyperlink

                Range("E" & CStr(LRowE)).Select

     

                'Add the hyperlink to the column C value

                ActiveSheet.Hyperlinks.Add Anchor:=Selection, _

                    Address:="", _

                    SubAddress:="C" & CStr(LRowC), _

                    ScreenTip:="C" & CStr(LRowC)



                'Found a match, so do not continue

                LContinue = False

             

            End If

     

            'Move to next row in column C

            LRowC = LRowC + 1

         

            'A blank value is found in column C, do not continue further

            If Len(Range("C" & CStr(LRowC)).Value) = 0 Then

                LContinue = False

            End If

         

        Wend

     

        'Move to next row in column E

        LRowE = LRowE + 1

    Wend

 

End Sub
HBC Juniormester
15. marts 2019 - 09:07 #1
Har fået kodet det lidt om og løst det.
Lukker.
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Midt i spionage-rygter og mediestorm: Computerworld besøger Huawei i Kina - tag med på besøg hos det måske mest omstridte tech-firma lige nu
Reportage, Shenzhen: “Exacting, rigorous, tests drive learning, all for real battles.” Computerworld er taget på besøg i det gigantiske hovedkvarter for verdens måske mest omtalte tech-selskab lige nu
Computerworld
Google slipper første version af Android 10 løs: Her er de vigtigste nyheder
Tiende version af styresystemet Android er ude i sin første betaversion: Her er de nye funktioner, som systemsoftwaren vil byde på.
CIO
Tech fra Toppen: Det har CIO Mads Madsbjerg Hansen fra FLSmidth lært af flere års global it-konsolidering
Tech fra Toppen: Flere års arbejde har betydet en reduktion i antallet af it-systemer hos FLSmidth. Men processen har ikke været uden overraskelser. Hør hvad CIO Mads Madsbjerg Hansen har lært af den omfattende og globale proces.
Job & Karriere
Efter blodrødt regnskab: Nu fyrer Atea 20 medarbejdere i Danmark
Atea fyrer nu 20 medarbejdere. Det sker som en direkte konsekvens af, at den danske forretning er under pres, oplyser selskabets direktør.
White paper
Gratis e-bog: Mister du pusten på BI-bjergetapen? Tag den lige vej i stedet!
Denne e-bog er relevant for dig der sidder i en virksomhed, der allerede arbejder med Dynamics 365 for Finance & Operations, eller som overvejer at få det. Det er din genvej til at komme tilbage på BI-motorvejen, hurtigt og på den rigtige måde. Du finder ud af hvordan du kommer ud over bumpene og uden om hullerne på bjergvejen med CBI Plugin, så du igen kommer tilbage på motorvejen og kan køre direkte mod målet. Læs videre og bliv klogere på, hvordan du kommer over – eller helt undgår – de største bump på bjergetapen.