Vraag : Macro die tot 52 anders identieke genoemde waaiers, elk met een verschillend aantal in het midden zal leiden.

Ik heb een waaier genoemd Tails1 met deze definitie:
Tails1='[ACA Week 24.xls] TailAvailability'!$6: $R$204

I vergen een macro die tot namen voor de resterende 51 weken van het jaar, elk met een verschillend weekaantal, bijvoorbeeld zal leiden:
Tails2='[ACA Week 2.xls] TailAvailability'!$C$6: $R$204
Tails17='[ACA Week 17.xls] TailAvailability'!$6: $R$204

indien nodig ik de eerste 9 dossiers met aantallen met twee cijfers kan anders noemen, maar ik zou hen met een adellijke titel eerder houden zoals is. (Hoewel gekomen aan het denken, zou het aardig zijn om het te kennen de manier met twee cijfers eveneens, voor het geval dat iemand anders beslist zij de dossiers allen genoemd met twee cijfers.)

Thanks,
John


 willen

Antwoord : Macro die tot 52 anders identieke genoemde waaiers, elk met een verschillend aantal in het midden zal leiden.

O.K., om de genoemde waaier aan een extern werkboek te plaatsen, probeer deze code:

Ben zeker om filepath in waar te veranderen uw „ACA Week x“ de werkboeken in deze lijn worden gevestigd:

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:

Sub CreateNamedRangesExtWbk ()
'Cre�ër Genoemde Waaier in Extern Werkboek
    
    Verduister wb als Werkboek
    Verduister filePath als Koord
    Verduister currentWbk als Koord
    
    filePath = „C:\“
    
    Application.ScreenUpdating = Vals
    currentWbk = ActiveWorkbook.Name
    
    Voor I = 1 tot 52
        Vastgesteld wb = Workbooks.Open (filePath & „ACA Week“ & I)
        Werkboeken (currentWbk). Names.Add noem: = " Staarten " & I, RefersTo: =wb. Aantekenvellen („TailAvailability“). Waaier („6: $R$204“)
        wb. Dichte Vals
        Vastgesteld wb = niets
    Daarna

    Application.ScreenUpdating = Waar
    
    MsgBox „Genoemde Waaiers is geplaatst!“

Sub van het eind
Andere oplossingen  
 
programming4us programming4us