Cuestión : Escritura de Vbs para conseguir cuenta de la calidad de miembro de grupo. No consigue la cuenta real para algunos grupos.

Hola, escritura del

Vbs para conseguir cuenta de la calidad de miembro de grupo. No consigue a cuenta real para algún groups.
For algunos grupos que sean 0 que consigue a no's

Can cualquier persona del grupo previamente explorado ayuda para fijar el issue.

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:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
curriculum vitae notpretty del error del >On " del class= " de " codeSnippet777591 del id= del
class= del

Respuesta : Escritura de Vbs para conseguir cuenta de la calidad de miembro de grupo. No consigue la cuenta real para algunos grupos.

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