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
OnePlus 7 Pro til test: Nu er selskabet i stand til at banke mobilverdenens giganter
Det kinesiske selskab OnePlus vil ind i det fine selskab af topproducenter med OnePlus 7 Pro. Missionen er lykkedes.
Computerworld
Google blokerer med omgående virkning for Huaweis brug af Android-licenser - se hvad det kommer til at betyde for dig
Google begrænser med omgående virkning kinesiske Huaweis brug af Android. Huawei vil ikke længere have adgang til tjenester fra Google.
CIO
CIO Jesper Riis fra DSV: Sådan arbejder jeg med governance så omkostninger og kompleksitet kan begrænses
Der er dømt stram governance hos Jesper Riis, CIO for verdens femtestørste transportvirksomhed. Men det er samtidig en betingelse for innovationen slår han fast. Hør mere om ledelse, performancekultur og vision hos globale DSV med de danske rødder.
Job & Karriere
"Vi var fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Det kalder jeg mit første start-up. Det blev til IT-Universitetet. "
"Da jeg var færdig med PhD´en så var vi fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Så skulle vi bare have et nyt universitet op og køre på seks måneder. Det kalder jeg mit første start-up. Det blev til IT-Universitetet."
White paper
Hvad gør du? Printsikkerhed er en trussel for din virksomhed!
Du tænker nok: Er printere virkelig så stort en sikkerhedstrussel? På mange måder ja, for i en tid med konstante angreb, er en printer et nemt og ofte overset mål. Blandt andet viser undersøgelsen i dette whitepaper, at der er 68% større sandsynlighed for at printere er kilden til en ekstern trussel eller brist, end der var i 2016, og hele 118% større sandsynlighed for sker internt. Med dette in mente er det overraskende, at kun 30% af de adspurgte it-professionelle anerkender at printere udgør en sikkerhedsrisiko. Læs dette whitepaper og bliv klar over hvad det er du skal være opmærksom på.