Vraag : Manuscript dat 2 colums in 2 bladen en hyperlinks controleert. Vereis een manier om nauwkeurig te controleren - gelijke en hyperlink.

Hallo,

Script die 2 colums in 2 bladen en hyperlinks controleert. Vereis een manier nauwkeurig te controleren - de gelijke en hyperlink.
zeggen momenteel ik een/>Case van C

It hyperlinks/>
Sharath C

Can zou moeten zijn iedereen hulp die code.

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

Sub createhyperlink ()
    Schemerige ws als Aantekenvel
    Schemerige ws1 als Aantekenvel
    Schemerige rng als Waaier
    Schemerig c als Waaier
    Schemerige rng2 als Waaier

    Vastgesteld ws = Bladen („Sheet1“)
    Reeks ws1 = Bladen („Sheet2“)
    Reeks rng = ws1.Range („a2: “ & ws1.Cells (Cells.Rows.Count, „A“). Eind (xlUp). Rij)

    Voor Elk c in rng
    Als c.Value <> "" toen
        x = c.Value
        Reeks rng2 = ws. Kolommen (1). Vind (wat: =x, na: =ws. Cellen (1), LookIn: =xlFormulas, LookAt: =xlPart, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
        Als niet rng2 niets toen ws. Anker Hyperlinks.Add is: =c, Adres: = "", SubAddress: = "" & ws. Naam & „!“ & rng2.Address (0, 0) & "", TextToDisplay: =c.Value
        Eind als
    Volgende c
Sub van het eind
Related Oplossingen: Script die tot hyperlinks controlerend 1 blad aan een andere leidt. Behoefte om sheet1 ColumA… te controleren

Antwoord : Manuscript dat 2 colums in 2 bladen en hyperlinks controleert. Vereis een manier om nauwkeurig te controleren - gelijke en hyperlink.

De update zal hieronder gehele koorden aanpassen


hth

Dave

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

ub createhyperlink ()
    Schemerige ws als Aantekenvel
    Schemerige ws1 als Aantekenvel
    Schemerige rng als Waaier
    Schemerig c als Waaier
    Schemerige rng2 als Waaier

    Vastgesteld ws = Bladen („Sheet1“)
    Reeks ws1 = Bladen („Sheet2“)
    Reeks rng = ws1.Range („a2: “ & ws1.Cells (Cells.Rows.Count, „A“). Eind (xlUp). Rij)

    Voor Elk c in rng
    Als c.Value <> "" toen
        x = c.Value
        Reeks rng2 = ws. Kolommen (1). Vind (wat: =x, na: =ws. Cellen (1), LookIn: =xlFormulas, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
        Als niet rng2 niets toen ws. Anker Hyperlinks.Add is: =c, Adres: = "", SubAddress: = "" & ws. Naam & „!“ & rng2.Address (0, 0) & "", TextToDisplay: =c.Value
        Eind als
    Volgende c
Sub van het eind
Andere oplossingen  
 
programming4us programming4us