Cuestión : Macro que creará 52 gamas nombradas de otra manera idénticas, cada uno con un diverso número en el centro.

Tengo una gama nombrada Tails1 con esta definición: semana 24.xls] TailAvailability'!$6 del
Tails1='[ACA: necesidad de $R$204

I una macro que creará los nombres para las 51 semanas que siguen habiendo del año, cada uno con un diverso número de la semana, por ejemplo: semana 2.xls] TailAvailability'!$C$6 del
Tails2='[ACA: semana 17.xls] TailAvailability'!$6 de $R$204
Tails17='[ACA: $R$204

en caso de necesidad puedo retitular los primeros 9 archivos con números de dos dígitos, pero algo los mantendría titulados como es. (Aunque estuvo venido pensar en él, él sería agradable saberlo la manera de dos dígitos también, en caso de que algún otro decida que quieren los archivos nombrados todo con dos dígitos.) el

Thanks,
John


 class= del

Respuesta : Macro que creará 52 gamas nombradas de otra manera idénticas, cada uno con un diverso número en el centro.

APROBAR, para fijar la gama nombrada a un libro de trabajo externo, intentar este código:

Estar seguro de cambiar el filepath a donde sus “ACA libros de trabajo de la semana x” están situados en esta línea:

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 secundario ()
'Crear a Gama nombrada en libro de trabajo externo
    
    Amortiguar el wb como libro de trabajo
    Amortiguar el filePath como secuencia
    Amortiguar el currentWbk como secuencia
    
    filePath = “C:\”
    
    Application.ScreenUpdating = falso
    currentWbk = ActiveWorkbook.Name
    
    Para i = 1 a 52
        Fijar wb = Workbooks.Open (filePath y “semana del ACA” y i)
        Libros de trabajo (currentWbk). Nombre de Names.Add: = " ata " y i, RefersTo: =wb. Hojas de trabajo (“TailAvailability”). Gama (“6: $R$204”)
        wb. Falso cercano
        Fijar wb = nada
    Después

    Application.ScreenUpdating = verdad
    
    Se ha fijado MsgBox “Ranges nombrada!”

Submarino del extremo
Otras soluciones  
 
programming4us programming4us