Cuestión : Script los colums de ese cheque 2 en 2 hojas y enlaces hipertexto. Necesitar una manera de comprobar exacto - fósforo y enlace hipertexto.

Hola,

Script que comprueba 2 colums en 2 hojas y enlaces hipertexto. Necesitar una manera de comprobar - el fósforo y hyperlink.
dicen actualmente que tengo enlaces hipertexto del as

Sharath C
It de la palabra que Sharath a Sharath C

Case no debe ser una cuestión sino exacto - el fósforo exacto debe ser linked.

Can cualquier persona ayuda que cambia el code.

REgards
sharath class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
createhyperlink notpretty del >Sub " del class= " de " codeSnippet777581 del id= del 
 de c.Value entonces
        x = c.Value
        Fijar rng2 = WS. Columnas (1).Find (qué: =x, después: =ws. Células (1), LookIn: =xlFormulas, LookAt: =xlPart, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
        Si no rng2 no es nada entonces ancla de WS. Hyperlinks.Add: =c, dirección: = "", SubAddress: = "" y WS. Nombre y “!” y rng2.Address (0, 0) y "", TextToDisplay: =c.Value
        Terminar si
    C siguiente
Submarino del extremo
class= > " claro " del
soluciones >Related class= escritura del title= " de " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26210674.html del href= " del Script " qRelatedParent " que crea los enlaces hipertexto que comprueban 1 hoja a otros. Necesidad de comprobar sheet1 ColumA…

Respuesta : Script los colums de ese cheque 2 en 2 hojas y enlaces hipertexto. Necesitar una manera de comprobar exacto - fósforo y enlace hipertexto.

La actualización abajo emparejará secuencias enteras


hth

Dave

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

createhyperlink del ub ()
    WS dévil como hoja de trabajo
    Ws1 dévil como hoja de trabajo
    Rng dévil como gama
    C dévil como gama
    Rng2 dévil como gama

    Fijar WS = las hojas (“Sheet1”)
    Fijar ws1 = las hojas (“Sheet2”)
    Fijar el rng = ws1.Range (“a2: ” Y ws1.Cells (Cells.Rows.Count, “A”). Extremo (xlUp). Fila)

    Para cada c en rng
    Si "" <> de c.Value entonces
        x = c.Value
        Fijar rng2 = WS. Columnas (1).Find (qué: =x, después: =ws. Células (1), LookIn: =xlFormulas, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
        Si no rng2 no es nada entonces ancla de WS. Hyperlinks.Add: =c, dirección: = "", SubAddress: = "" y WS. Nombre y “!” y rng2.Address (0, 0) y "", TextToDisplay: =c.Value
        Terminar si
    C siguiente
Submarino del extremo
Otras soluciones  
 
programming4us programming4us