corbalanh

Dante Amor respondió: Así quedaría: n = Range("A1") Rows("8:11").Select Selection.AutoFill Destination:=Rows("8:" & n), Type:=xlFillDefault Rows("8:" & n).Select Saludos.DAM Si es lo que necesitas.

Elsa Matilde respondió: La función de la recta que pasa por los puntos extremos es esta (gentileza de mi hijo) : Y = ( (X-Xi) * (Yf-Yi) ) / (Xf-Xi) + Yi Ahora considerando que los datos son en tu ejemplo Xi=0.18 Yi=111 (donde i quiere decir inicial) Xf=0.98 Yf=129 (donde f...

tavopz respondió: Lo que necesitas es hacer una extrapolación, para lo cual puedes encontrar funciones en Internet que podrían ayudarte (aunque algunas piden bastantes argumentos para hallar los valores). Otra forma que se me ocurre es que hagas la gráfica XY de estos...

fejoal respondió: Esta es la instrucción que buscas: Workbooks.Open FileName:="TuArchivo.xls", Updatelinks:=False, password:="TuContraseña" Obviamente, reemplaza "TuArchivo" y "TuContraseña" por los correspondientes a tu caso. aclarando qué entendí mal o qué faltó.