Fråga : Makroen, som ska, skapar 52 annars namngav identiska spänner, varje med ett olikt numrerar i en mitt.

Jag har en spänna som namnges Tails1 med denna definition: vecka 24.xls] TailAvailability'!$6 för
Tails1='[ACA: behov för $R$204

I som en makro, som ska, skapar, namnger för de återstående 51 veckorna av året, varje med en olik vecka numrerar, till exempel: vecka 2.xls] TailAvailability'!$C$6 för
Tails2='[ACA: vecka 17.xls] TailAvailability'!$6 för $R$204
Tails17='[ACA: nödvändig $R$204

If jag kan byta namn på de första 9na sparar med två som siffran numrerar, men jag skulle den snarlika uppehället de betitlade, som är. (Även om kommet till funderare av den, det, skulle är trevligt att veta den siffran två långt som väl, i fall att någon avgör annars att de önskar sparar all namngett med två siffror.),

Thanks,
John


 " klar "

Svar : Makroen, som ska, skapar 52 annars namngav identiska spänner, varje med ett olikt numrerar i en mitt.

REKO till namngiven uppsättningspänna till en yttre arbetsbok, försök som detta kodifierar:

Var säker att ändra filepathen till var dina ”ACA arbetsböcker för veckan x” lokaliseras i denna fodrar:

filePath = ”C:\”,
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

UnderCreateNamedRangesExtWbk ()
'Skapa namngett spänner i yttre arbetsbok
    
    Dunkel wb som arbetsboken
    Dunkel filePath som stränger
    Dunkel currentWbk som stränger
    
    filePath = ”C:\”,
    
    Application.ScreenUpdating = falskt
    currentWbk = ActiveWorkbook.Name
    
    För I = 1 till 52
        Uppsättning wb = Workbooks.Open (filePath & ”ACA-veckan” & I)
        Arbetsböcker (currentWbk). Names.Add namnger: = " svanar " & I, RefersTo: =wb. Arbetssedlar (”TailAvailability”). Spänna (”6: $R$204”)
        wb. Nära falskt
        Uppsättning wb = ingenting
    Därefter

    Application.ScreenUpdating = True
    
    Namngav MsgBox ”spänner har varit fastställd!”,

Avsluta suben
Andra lösningar  
 
programming4us programming4us