Frage : Script diese Überprüfung 2 colums in 2 Blättern und in Hyperlink. Eine Weise benötigen, genaues zu überprüfen - Gleiches und Hyperlink.

Hallo,

Script, das 2 colums in 2 Blättern und in Hyperlink überprüfen. Eine Weise benötigen, genaues - Gleiches und hyperlink.
sagen, ich zurzeit ein Wort as

Sharath C
It Hyperlink, die Sharath dass habe zu Sharath C

Case nicht eine Angelegenheit aber ein genau sein sollte - Gleiches zu überprüfen sollte linked.

Can jedermann sein die Hilfe, die das code.

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

Sub createhyperlink ()
    Schwaches WS als Arbeitsblatt
    Schwaches ws1 als Arbeitsblatt
    Schwaches rng als Strecke
    Schwaches c als Strecke
    Schwaches rng2 als Strecke

    Einstellen WS = Blätter („Sheet1“)
    Einstellen ws1 = Blätter („Sheet2“)
    Rng = ws1.Range einstellen („a2: “ U. ws1.Cells (Cells.Rows.Count, „A“). Ende (xlUp). Reihe)

    Für jedes c im rng
    Wenn c.Value <> "" dann
        x = c.Value
        Einstellen rng2 = WS. Spalten (1).Find (was: =x, nachher: =ws. Zellen (1), LookIn: =xlFormulas, LookAt: =xlPart, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
        Wenn nicht rng2 nichts dann Anker WS-. Hyperlinks.Add ist: =c, Adresse: = "", Subadresse: = "" u. WS. Name u. „!“ u. rng2.Address (0, 0) u. "", TextToDisplay: =c.Value
        Beenden wenn
    Folgendes c
Enden-Unterseeboot
Related Lösungen: Script, das die Hyperlink verursacht, die 1 Blatt zu anderen überprüfen. Notwendigkeit, sheet1 ColumA… zu überprüfen

Antwort : Script diese Überprüfung 2 colums in 2 Blättern und in Hyperlink. Eine Weise benötigen, genaues zu überprüfen - Gleiches und Hyperlink.

Das Update unten bringt vollständige Schnüre zusammen


hth

Dave

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

ub createhyperlink ()
    Schwaches WS als Arbeitsblatt
    Schwaches ws1 als Arbeitsblatt
    Schwaches rng als Strecke
    Schwaches c als Strecke
    Schwaches rng2 als Strecke

    Einstellen WS = Blätter („Sheet1“)
    Einstellen ws1 = Blätter („Sheet2“)
    Rng = ws1.Range einstellen („a2: “ U. ws1.Cells (Cells.Rows.Count, „A“). Ende (xlUp). Reihe)

    Für jedes c im rng
    Wenn c.Value <> "" dann
        x = c.Value
        Einstellen rng2 = WS. Spalten (1).Find (was: =x, nachher: =ws. Zellen (1), LookIn: =xlFormulas, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
        Wenn nicht rng2 nichts dann Anker WS-. Hyperlinks.Add ist: =c, Adresse: = "", Subadresse: = "" u. WS. Name u. „!“ u. rng2.Address (0, 0) u. "", TextToDisplay: =c.Value
        Beenden wenn
    Folgendes c
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us