Pergunta : Macro que criará 52 escalas nomeadas de outra maneira idênticas, cada um com um número diferente no meio.

Eu tenho uma escala nomeada Tails1 com esta definição: semana 24.xls] TailAvailability'!$6 do
Tails1='[ACA: necessidade de $R$204

I um macro que crie nomes para as 51 semanas permanecendo do ano, cada um com um número diferente da semana, por exemplo: semana 2.xls] TailAvailability'!$C$6 do
Tails2='[ACA: semana 17.xls] TailAvailability'!$6 de $R$204
Tails17='[ACA: $R$204

caso necessário eu posso rebatizar as primeiras 9 limas com dois números do dígito, mas eu mantê-los-ia um pouco intitulados como é. (Embora vindo pensar dele, ele seria agradável para sabê-lo também a maneira de dois dígitos, caso que alguma outra pessoa decide que querem as limas nomeadas toda com dois dígitos.) o

Thanks,
John


 class= do

Resposta : Macro que criará 52 escalas nomeadas de outra maneira idênticas, cada um com um número diferente no meio.

APROVAR, para ajustar a escala nomeada a um manual de instruções externo, tentar este código:

Ser certo mudar o filepath a onde seus “ACA manuais de instruções da semana x” são ficados situados nesta linha:

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:

CreateNamedRangesExtWbk secundário ()
'Criar Escala nomeada no manual de instruções externo
    
    Escurecer a WB como o manual de instruções
    Escurecer o filePath como a corda
    Escurecer o currentWbk como a corda
    
    filePath = “C:\”
    
    Application.ScreenUpdating = falso
    currentWbk = ActiveWorkbook.Name
    
    Para i = 1 a 52
        Ajustar WB = Workbooks.Open (filePath & do “semana ACA” & i)
        Manuais de instruções (currentWbk). Nome de Names.Add: = " ata " & i, RefersTo: =wb. Folhas (“TailAvailability”). Escala (“6: $R$204”)
        WB. Falso próximo
        Ajustar WB = nada
    Em seguida

    Application.ScreenUpdating = retificam
    
    MsgBox “Escala nomeada foi ajustado!”

Submarino da extremidade
Outras soluções  
 
programming4us programming4us