2022. december 10., szombat

Excel, jó a keres/cserél? Nem mindenre. Hivatkozások cseréje?

Akinél mondjuk van vagy több mint 1000, vagy csak 10 hyperlink vagy hivatkozás egy táblában, akkor hogy cseréli le egy részét simán? Én nem találtam más megoldást, csak a kattintgatást. Ja nem... Még mindig itt van a VBA

Jobb egér, hivatkozás szerkesztése... Ez kicsit sokáig tartott volna

Nade!

Változik a szerver neve, változik az útvonal, akármi... nincs mit csinálni, végig kell gyalogolni mindegyik linken.

Tehát, mielőtt kipróbálod, csinálj mentést! Ha nem tudod hogyan kell, akkor ne próbáld ki! Ez a kis makró, nem biztos hogy jó, vagy bármire is lehet vagy tudnád használni!

Ha valaki ebbe beleszaladna, akkor itt a megoldás.

'kicserélni a linkekeket jó linkekre...

Sub MindenlinkCsereje()

    Dim hLink As Hyperlink

    Dim wSheet As Worksheet


    For Each wSheet In Worksheets

       For Each hLink In wSheet.Hyperlinks

            hLink.Address = Replace(hLink.Address, "\\régisrv\", "\\újsrv\")

        Next hLink

    Next

End Sub


Ez tuti segíteni fog. Csak elindítod a kis makrót! Mentést mindig készíts! A mentés nagyon fontos! Főleg az ilyen típusú, tömeges frissítések esetén!


Nincsenek megjegyzések:

Megjegyzés küldése

Nexon bérjegyzékek emailezése - ennél nem volt könnyebb! Nexonból letöltöd a névsort, mondjuk a hivatali és vagy a magán email címeket nevek...