Pytanie : Pisać scenariusz ten czek 2 colums w 2 prześcieradło i hyperlinks. Potrzebować sposób dokładny - dopasowanie i hyperlink.

Cześć,

Script który sprawdzać 2 colums w 2 prześcieradło i hyperlinks. Potrzebować sposób dokładny - dopasowanie i hyperlink.
At teraźniejszość mówić i mieć słowo as

Sharath C
It hyperlinks Sharath Sharath C

Case musieć sprawa ale dokładny - dopasowanie musieć linked.

Can musieć pomoc the code.

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

Sub createhyperlink ()
    Ciemnawy ws Jako Worksheet
    Ciemnawy ws1 Jako Worksheet
    Ciemnawy rng Pasmo
    Ciemnawy c Pasmo
    Ciemnawy rng2 Pasmo

    Set ws = Ciąć na arkusze ("Sheet1")
    Set ws1 = Ciąć na arkusze ("Sheet2")
    Ustalony rng = ws1.Range ("a2: " & ws1.Cells (Cells.Rows.Count, "A"). Końcówka (xlUp). Rząd)

    Dla Rng c W rng
    Jeżeli c.Value <> "" Wtedy
        x = c.Value
        Set rng2 = ws. Kolumna (1).Find (Co: =x, póżniej: =ws. Komórka (1), LookIn: =xlFormulas, LookAt: =xlPart, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
        Jeśli nie rng2 Być Nic Wtedy ws. Hyperlinks.Add Kotwica: =c, Adres: = "", SubAddress: = "" & ws. Imię & "!" & rng2.Address ((0), (0)) & "", TextToDisplay: =c.Value
        Kończyć Jeżeli
    Następny c
Końcówka Okręt podwodny
Related Rozwiązanie: Script który tworzyć hyperlinks (1) prześcieradło prześcieradło. Potrzeba sheet1 ColumA…

Odpowiedź : Pisać scenariusz ten czek 2 colums w 2 prześcieradło i hyperlinks. Potrzebować sposób dokładny - dopasowanie i hyperlink.

The aktualizacja sznurek dopasowywać cały sznurek


hth

Dave

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

ub createhyperlink ()
    Ciemnawy ws Jako Worksheet
    Ciemnawy ws1 Jako Worksheet
    Ciemnawy rng Pasmo
    Ciemnawy c Pasmo
    Ciemnawy rng2 Pasmo

    Set ws = Ciąć na arkusze ("Sheet1")
    Set ws1 = Ciąć na arkusze ("Sheet2")
    Ustalony rng = ws1.Range ("a2: " & ws1.Cells (Cells.Rows.Count, "A"). Końcówka (xlUp). Rząd)

    Dla Rng c W rng
    Jeżeli c.Value <> "" Wtedy
        x = c.Value
        Set rng2 = ws. Kolumna (1).Find (Co: =x, póżniej: =ws. Komórka (1), LookIn: =xlFormulas, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
        Jeśli nie rng2 Być Nic Wtedy ws. Hyperlinks.Add Kotwica: =c, Adres: = "", SubAddress: = "" & ws. Imię & "!" & rng2.Address ((0), (0)) & "", TextToDisplay: =c.Value
        Kończyć Jeżeli
    Następny c
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us