Fråga : Vbs skrivar för att få gruppmedlemskapräkning. Får inte den faktiska räkningen för några grupper.

Hi

Vbs skrivar för att få gruppmedlemskapräkning. Får inte den faktiska räkningen för någon groups.
For några grupper som är 0 som, den får den föregående avlästa gruppno's
Can någon hjälp att fixa issue.
REgards
sharath > för 
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:
" codeBody " " meritförteckning för fel för >On för class= " för
" klar "

Svar : Vbs skrivar för att få gruppmedlemskapräkning. Får inte den faktiska räkningen för några grupper.

Den hela nedanföra ska matchen för uppdateringen stränger


hth

Dave

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

ubcreatehyperlink ()
    Dunkel ws som arbetssedeln
    Dunkel ws1 som arbetssedeln
    Dunkel rng som spänner
    Dunkelt c som spänner
    Dunkel rng2 som spänner

    Uppsättningen ws = täcker (”Sheet1”)
    Uppsättningen ws1 = täcker (”Sheet2”)
    Fastställd rng = ws1.Range (”a2: ” & ws1.Cells (Cells.Rows.Count, ”A”). Avsluta (xlUp). Ro),

    För varje c i rng
    Om c.Value- <> "" därefter
        x = c.Value
        Uppsättning rng2 = ws. Kolonner (1). Fynd (vad: =x after: =ws. Celler (1), LookIn: =xlFormulas LookAt: =xlWhole SearchOrder: =xlByRows SearchDirection: =xlNext MatchCase: =False SearchFormat: =False)
        Om inte rng2 är ingenting därefter ws. Hyperlinks.Add ankrar: =c tilltalar: = "", SubAddress: = "" & ws. Namnge & ”!”, & rng2.Address (0, 0) & "", TextToDisplay: =c.Value
        Avsluta om
    Nästa c
Avsluta suben
Andra lösningar  
 
programming4us programming4us