NOMBRAR RANGOS VARIABLES

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

NOMBRAR RANGOS VARIABLES

Notapor Jorgemtzramon » 11 Oct 2017 19:47

Buenas tardes a todos, quiero solicitar de su valioso apoyo con el siguiente tema, tengo un grupo de datos en el cual quisiera nombrar ciertos rangos, el detalle es que esos rangos varían reporte tras reporte. el código que elaboré grabándolo es el siguiente, pero no me funciona al cambiar de longitud el rango.

Sub Macro1()
'
' Macro1 Macro
'
' Acceso directo: Ctrl+Mayús+K
'
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="GENERAL", RefersToR1C1:="=FULL!R2C1:R22C4"
Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="HORAS", RefersToR1C1:="=FULL!R2C4:R22C4"
End Sub

Adjunto el archivo donde se encuentra el ejemplo

Agradeceré infinitamente el apoyo que se me pueda brindar.
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
Jorgemtzramon
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 19
Registrado: 20 Jul 2015 12:01

Re: NOMBRAR RANGOS VARIABLES

Notapor conmed » 11 Oct 2017 20:32

Hola Jorgemtzramon,

Sobre tu mismo código, reemplaza este modificado:

Código: Seleccionar todo
Sub Macro1()
'
' Macro1 Macro
'
' Acceso directo: Ctrl+Mayús+K
'
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Names.Add Name:="GENERAL", RefersTo:=Selection
    Range("D2").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Names.Add Name:="HORAS", RefersTo:=Selection
End Sub


Saludos,

...::conmed::...
conmed
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 286
Registrado: 26 Ene 2010 11:36

Re: NOMBRAR RANGOS VARIABLES

Notapor Jorgemtzramon » 12 Oct 2017 11:35

Muchísimas gracias conmed, me ha servido a la perfección.
Jorgemtzramon
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 19
Registrado: 20 Jul 2015 12:01

Re: NOMBRAR RANGOS VARIABLES

Notapor conmed » 12 Oct 2017 22:06

Me alegra que te haya servido, gracias a ti por responder.

Saludos,

...::conmed::...
conmed
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 286
Registrado: 26 Ene 2010 11:36


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: d0412100 y 3 invitados