Fråga : Skriva colums för den kontroll 2 i 2 täcker och hyperlinks. Behöv a långt att kontrollera avkräver - matchen och hyperlinken.

Hi

Script, som kontrollerar 2 colums i 2, täcker och hyperlinks. Behöv a långt att kontrollera avkräver - matchen och den närvarande något att säga för hyperlink.
At jag har hyperlinks för uttryckaas

Sharath C
It som Sharath till Sharath C

Case inte bör vara en materia men avkräva - matchen bör vara linked.

Can någon hjälp som ändrar code.
REgards
sharath > för 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
" codeBody " " createhyperlink för >Sub för class= " för "" därefter x = c.Value Uppsättning rng2 = ws. Kolonner (1). Fynd (vad: =x after: =ws. Celler (1), LookIn: =xlFormulas LookAt: =xlPart SearchOrder: =xlByRows SearchDirection: =xlNext MatchCase: =False SearchFormat: =False) Om inte rng2 är ingenting därefter ws. Hyperlinks.Add ankrar: =c tilltalar: = "", SubAddress: = "" & ws. Namnge & ”!”, & rng2.Address (0, 0) & "", TextToDisplay: =c.Value Avsluta om Nästa c Avsluta suben
Related lösningar för class= ": Script, som skapar hyperlinks som kontrollerar 1, täcker till another. Behov att kontrollera sheet1 ColumA…

Svar : Skriva colums för den kontroll 2 i 2 täcker och hyperlinks. Behöv a långt att kontrollera avkräver - matchen och hyperlinken.

Den hela nedanföra ska matchen för uppdateringen stränger


hth

Dave

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

ubcreatehyperlink ()
    Dunkel ws som arbetssedeln
    Dunkel ws1 som arbetssedeln
    Dunkel rng som spänner
    Dunkelt c som spänner
    Dunkel rng2 som spänner

    Uppsättningen ws = täcker (”Sheet1”)
    Uppsättningen ws1 = täcker (”Sheet2”)
    Fastställd rng = ws1.Range (”a2: ” & ws1.Cells (Cells.Rows.Count, ”A”). Avsluta (xlUp). Ro),

    För varje c i rng
    Om c.Value- <> "" därefter
        x = c.Value
        Uppsättning rng2 = ws. Kolonner (1). Fynd (vad: =x after: =ws. Celler (1), LookIn: =xlFormulas LookAt: =xlWhole SearchOrder: =xlByRows SearchDirection: =xlNext MatchCase: =False SearchFormat: =False)
        Om inte rng2 är ingenting därefter ws. Hyperlinks.Add ankrar: =c tilltalar: = "", SubAddress: = "" & ws. Namnge & ”!”, & rng2.Address (0, 0) & "", TextToDisplay: =c.Value
        Avsluta om
    Nästa c
Avsluta suben
Andra lösningar  
 
programming4us programming4us