Auto definir nombres para rangos dinámicos
Hola de nuevo,
Ante todo muchas gracias.
Tengo una hoja en la que tengo que definir unos 80 nombres. Estos 80 nombres están en la columna A y luego de la B a la ... (máximo Z) están los datos asociados para cada nombre.
Ejemplo:
Nombre1 Rojo Verde Azul
Nombre2 Rojo Verde
Solución deseada:
Nombre1 rango(B2:D2)
Nombre2 rango(B3:C3)
La pregunta es, ¿es posible definir un nombre con rangos de columnas dinámicos con macros tengo que ir uno por uno?
Encontré cosas como este código pero no funcionan como yo quiero:
Sub MakeName2()
Dim rngName As String
rngName = Cells(StartDataRow, 1).Text
ActiveWorkbook.Names.Add Name:=rngName, RefersToR1C1:="=Hoja1!R1C2:R" & LastDataRow & "C"" & LastDataColumn
End Sub
Gracias de nuevo.
Un saludo
Ante todo muchas gracias.
Tengo una hoja en la que tengo que definir unos 80 nombres. Estos 80 nombres están en la columna A y luego de la B a la ... (máximo Z) están los datos asociados para cada nombre.
Ejemplo:
Nombre1 Rojo Verde Azul
Nombre2 Rojo Verde
Solución deseada:
Nombre1 rango(B2:D2)
Nombre2 rango(B3:C3)
La pregunta es, ¿es posible definir un nombre con rangos de columnas dinámicos con macros tengo que ir uno por uno?
Encontré cosas como este código pero no funcionan como yo quiero:
Sub MakeName2()
Dim rngName As String
rngName = Cells(StartDataRow, 1).Text
ActiveWorkbook.Names.Add Name:=rngName, RefersToR1C1:="=Hoja1!R1C2:R" & LastDataRow & "C"" & LastDataColumn
End Sub
Gracias de nuevo.
Un saludo
2 Respuestas
Respuesta de boumerang
Respuesta de antorchas