Uso de EndDown en una fórmula:

Hola lbenaventea,

Hacer - se puede hacer pero me parece poco logico. Ademas, aunque la llamada
de rango por funcion [A1] es mas corta tambien es cierto que es bastante mas
lenta, por lo cual te recomendaria el uso de la anotacion normal como
Range("A1").

Range("C1").Formula="='[calculo.xls]hoja1'!" & _
Range("G1").End(xlDown).End(xlDown).End(xlDown).Address

Aunque si lo que buscas es la ultima celda con valor en la columna [G] seria
mas correcto, mas corto y mas rapido hacer lo siguiente:

Range("C1").Formula="='[calculo.xls]hoja1'!" & _
Range("G65536").End(xlUp).Address

Y por si algun dia el numero maximo de filas cambia de 65536 a mas podrias
hacer esto:

Range("C1").Formula="='[calculo.xls]hoja1'!" & _
Cells(Rows.Count,"G").End(xlUp).Address

Saludos,
KL


"lbenaventea" wrote in message
news:

actual Para colocar en la celda C1 de mi hoja el valor que tengo en la
celda
G30 de otro workbook (calculo.xls, hoja1), puedo hacer lo siguiente:

[C1].Formula="='[calculo.xls]hoja1'!" & [C1].Offset(30, 7).Address

Pero, si para llegar a esa celda debo situarme en G1 y hacer tres EndDown,
?como lo anoto?

Seria algo parecido a esto (pero sin error de sintaxis):

[C1].Formula="='[calculo.xls]hoja1'!" &
[C1].Offset(D1.EndDown.EndDown.EndDown).Address

Gracias.

hola, chicos !

lbenaventea escribio en el mensaje ...
... para colocar en... C1 de mi hoja el valor... en la celda G30 de otro workbook (calculo.xls, hoja1), puedo hacer
[C1].Formula="='[calculo.xls]hoja1'!" & [C1].Offset(30, 7).Address
... si para llegar a esa celda debo situarme en G1 y hacer tres EndDown, como lo anoto? [...]

KL escribio en el mensaje ...
Range("C1").Formula="='[calculo.xls]hoja1'!" & _
Range("G1").End(xlDown).End(xlDown).End(xlDown).Address [...]

[me parece que] se esta 'perdiendo de vista' que...
-> 'partir' de la celda 'G1' y 'hacer' 3 veces 'EndDown'
[y segun entiendo del mensaje de Luis B. que... 'sus razones' debe tener para navegar de esa manera]...
-> se refiere a... 'navegar'... por la hoja1... 'del otro libro' [calculo.xls] -?-
-> para lo cual se requiere 'calificar' el objeto [libro hoja Y rango] por donde el macro 'debe' navegar ;)

una [de entre varias mas 'combinaciones'] seria +/- como la siguiente:
Dim CeldaEnOtroLibro As String
With Workbooks("calculo.xls").Worksheets("hoja1").Range("g1")
CeldaEnOtroLibro = .End(xlDown).End(xlDown).End(xlDown).Address
End With
Range("c1").Formula = "='[calculo.xls]hoja1'!" & CeldaEnOtroLibro

a reserva de que Luis B. confirme/modifique/actualice/... los supuestos anteriores -?-
saludos,
hector.

"Héctor Miguel" wrote

[me parece que] se esta 'perdiendo de vista' que...
-> 'partir' de la celda 'G1' y 'hacer' 3 veces 'EndDown'
[y segun entiendo del mensaje de Luis B. que... 'sus razones' debe
tener para navegar de esa manera]...
-> se refiere a... 'navegar'... por la hoja1... 'del otro libro'
[calculo.xls] -?-

Como no sabia nada del otro mensaje solo use la informacion que habia en
este. Ahora, you interprete que justo navegando por la columna [G] de la
hoja activa del libro activo se determinaba la celda que luego se usaria en
"la hoja1... 'del otro libro' [calculo.xls]", pero seguramente me habia
equivocado.

Saludos,
KL

hola, KL !

... no sabia nada del otro mensaje

ciertamente que [aunque pareciera que yo] 'llevaba ventaja' por haberme tocado atender un mensaje anterior...
[si ya lo has revisado]... tampoco ese hilo fue 'claro' en lo tocante a las intenciones comentadas en este :)

... solo use la informacion que habia en este...

yo tambien... [mas concretamente] 'obtuve' mis supuestos del siguiente 'extracto' [o porcion] de 'este'...

"... en la celda G30 de otro workbook... si para llegar... debo situarme en G1 y hacer tres EndDown... "

[no ha sido una 'critica en mala onda'... ni de 'mala vibra'... y entiendo que asi lo entiendes] ;)
saludos,
hector.

Hola HM,

[no ha sido una 'critica en mala onda'... ni de 'mala vibra'... y entiendo
que asi lo entiendes] ;)

tu ya sabes que si. ademas tu critica es bienvenida - a veces pareces tener
razon :-o

KL