Anónimo
Cambiar rango definido en nombre
Hola: Tengo una plantilla que realiza una búsqueda basándose en un Rango que lo definí con el nombre "NOMPRO". Este Rango se obtiene de un Libro con varias pestañas(una por cada departamento".Tengo un desplegable donde selecciono el nombre del departamento y las tres primeras letras (por ejemplo AMA) la muestro en la celda I7 de la primera pestaña. Intente lo siguiente:
Sub Cambiar_Rango()
Dim nompest As String
Sheets(1).Activate
nompest = Range("I7")
ActiveWorkbook.Names.Add Name:="NOMPRO", RefersToR1C1:= _
"='[01 Reporte Americatel LD - Julio 09.xls]"+nompest+"'!R16C1:R160C5"
End Sub
Es decir reemplace AMA' por "+nompest+"', pero sin resultado. Si es posible quisiera poder remplazar también el mes y año.
Gracias de antemano
Sub Cambiar_Rango()
Dim nompest As String
Sheets(1).Activate
nompest = Range("I7")
ActiveWorkbook.Names.Add Name:="NOMPRO", RefersToR1C1:= _
"='[01 Reporte Americatel LD - Julio 09.xls]"+nompest+"'!R16C1:R160C5"
End Sub
Es decir reemplace AMA' por "+nompest+"', pero sin resultado. Si es posible quisiera poder remplazar también el mes y año.
Gracias de antemano
1 Respuesta
Respuesta de Elsa Matilde
1
Reemplazá tu línea por esta:
ActiveWorkbook.Names.Add Name:="NOMPRO2", RefersToR1C1:= _
"='[01 Reporte Americatel LD - Julio 09.xls]" & nompest & "'!R16C1:R160C5"
La parte en negrita empieza con una comilla doble, luego 1 simple.
Para la parte de la fecha, sería algo así:
ActiveWorkbook.Names.Add Name:="NOMPRO", RefersToR1C1:= _
"='[01 Reporte Americatel LD - " & fecha & ".xls]" & nompest & "'!R16C1:R160C5"
Sdos. No olvides finalizar la consulta si el tema queda concluido
ActiveWorkbook.Names.Add Name:="NOMPRO2", RefersToR1C1:= _
"='[01 Reporte Americatel LD - Julio 09.xls]" & nompest & "'!R16C1:R160C5"
La parte en negrita empieza con una comilla doble, luego 1 simple.
Para la parte de la fecha, sería algo así:
ActiveWorkbook.Names.Add Name:="NOMPRO", RefersToR1C1:= _
"='[01 Reporte Americatel LD - " & fecha & ".xls]" & nompest & "'!R16C1:R160C5"
Sdos. No olvides finalizar la consulta si el tema queda concluido
Una excelente solución, yo programaba en visual con "+" y no "&", recién estoy incursionando en Macros es por eso que voy a tener fallas de ese tipo. Ya llevaba un mes sin saber en que fallaba, gracias otra ves, espero llegar a ser tan bueno como tu. Gracias