Defenir nombre
Hola cesar:
Me gustaría que me remitieras la respuesta que le ofreciste a "arume" que a continuación te detallo
Hola! Necesito tu ayuda.
Tengo un libro de excel con dos hojas, donde en la hoja1 tengo una macro con un filtro avanzado y en la hoja2 en la celda "A1" debo escribir un nombre que al cambiar esta celda y situarme en la celda "A2" me ejecute la macro de la hoja1 para poder en esta celda ("A2") pueda escoger de una lista (validación) otros nombres relacionados con los de la celda "A1" y que fueron filtrados con la macro de la hoja2
Te agradecería me enviaras la macro que necesito para el código de la hoja1
Arume
Creo que la respuesta de esta pregunta solucionaría el problema que se me presenta, relacionado con pegar un nombre... Que es un rango y que a su vez es variable.
De antemano gracias
mauromol
Chile
Me gustaría que me remitieras la respuesta que le ofreciste a "arume" que a continuación te detallo
Hola! Necesito tu ayuda.
Tengo un libro de excel con dos hojas, donde en la hoja1 tengo una macro con un filtro avanzado y en la hoja2 en la celda "A1" debo escribir un nombre que al cambiar esta celda y situarme en la celda "A2" me ejecute la macro de la hoja1 para poder en esta celda ("A2") pueda escoger de una lista (validación) otros nombres relacionados con los de la celda "A1" y que fueron filtrados con la macro de la hoja2
Te agradecería me enviaras la macro que necesito para el código de la hoja1
Arume
Creo que la respuesta de esta pregunta solucionaría el problema que se me presenta, relacionado con pegar un nombre... Que es un rango y que a su vez es variable.
De antemano gracias
mauromol
Chile
Respuesta de César Mera
1
El pedacito que te sirve es el siguiente:
Range("K6").Select
If Range("K7").Value <> "" Then Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="Cargos", _
RefersToR1C1:="=Hoja2!" & Selection.Address(ReferenceStyle:=xlR1C1)
Este código ubica la celda activa en K6 y evalúa si hay datos hacia abajo, si no hay nombra la celda como "Cargos", si hay más datos selecciona todo el rango y le da el mismo nombre pero a todo el rango.
Espero que te sirva, si necesitas algo adicional me avisas y con mucho gusto.
Range("K6").Select
If Range("K7").Value <> "" Then Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="Cargos", _
RefersToR1C1:="=Hoja2!" & Selection.Address(ReferenceStyle:=xlR1C1)
Este código ubica la celda activa en K6 y evalúa si hay datos hacia abajo, si no hay nombra la celda como "Cargos", si hay más datos selecciona todo el rango y le da el mismo nombre pero a todo el rango.
Espero que te sirva, si necesitas algo adicional me avisas y con mucho gusto.
