Cómo cambiar un valor por una referencia en VBA

12/11/2006 - 23:29 por Xavi Vegas | Informe spam
Hola a todos,
he buscado la última fila de un libro y la he llamado UltimaFila. Ahora
quiero seleccionar las 3 primeras columnas desde la fila 2 hasta la
UltimaFila y darles el nombre "precios".
He hecho algo como
ActiveWorkbook.Names.Add Name:="precios", RefersToR1C1:="Û!R2C1:R5000C3"
El 5000 sería la última fila, y en lugar de 5000 tendría que poner
UltimaFila pero me temo que me hago un taco con las comillas, los & y demás.
¿Alguien me puede echar una mano?

Muchas gracias,
Xavi
 

Leer las respuestas

#1 Tux
13/11/2006 - 22:01 | Informe spam
Xavi Vegas escribió:
Hola a todos,
he buscado la última fila de un libro y la he llamado UltimaFila. Ahora
quiero seleccionar las 3 primeras columnas desde la fila 2 hasta la
UltimaFila y darles el nombre "precios".
He hecho algo como
ActiveWorkbook.Names.Add Name:="precios", RefersToR1C1:="Û!R2C1:R5000C3"
El 5000 sería la última fila, y en lugar de 5000 tendría que poner
UltimaFila pero me temo que me hago un taco con las comillas, los & y demás.
¿Alguien me puede echar una mano?

Muchas gracias,
Xavi



Hola Xavier :-)

Puedes probar este codigo :-)

Defines el nombre para la fila A2 rango A2,B2,C2 como PrimeraFila

Sub Macro2()

'PrimeraFila = Rng("A2:C2")
'UltimaFila = Rng ("A5000:C5000")

Range("PrimeraFila:UltimaFila").Name = "precios"

End Sub

Este otro codigo te definira el rango "precios" desde la ultimaFila


Sub Definir_Nombre()

Dim Nombre As Range

Set Nombre = Range("UltimaFila")


Range(Nombre(1), Nombre(3).End(xlUp)).Name = "PreciosD"


End Sub

Nos comentas ok? :-)


¡Un SAludo!:-)

www.fermu.com
www.zorval.es

Preguntas similares