Ver Mensaje Individual
  #2 (permalink)  
Antiguo 20/05/2007, 05:27
alexanco
 
Fecha de Ingreso: mayo-2007
Mensajes: 7
Antigüedad: 17 años
Puntos: 0
Re: Ayuda con Macro

Amigo Dic.
La respuesta es sencilla, primero debes saber que en excel cuando utilizas la instrucción FormulaR1C1, esta trabaja con la celda actual es decir si colocas

c = ActiveCell.Column
r = ActiveCell.Row
ActiveCell.FormulaR1C1 = "='PU''s(45)'!R[" & r & "]C[" & c & "]"

esta instrucción lo que hará será hacer referencia a la fila (r) tantos valores mas abajo al de la celda donde estás ubicado..e igualmente con la columna es decir si estas en la celda A10, el va a hacer referencia a la celda A(10+10)=A20 y con la columna sería B20 (recuerda que estás en la A que es la 1 más 1 que es la que estás extrayendo entonces sería la B)

Yo siendo tu haría lo siguiente
Sub Macro1()
Worksheets("CARTA PROPUESTA").Activate
Activecell.FormulaR1C1 = "=PU's(45)!RC"
End Sub
ó lo que es lo mismo
Sub Macro1()
Fila=Application.counta(sheets("PU's(45)).Range("A :A"))
Worksheets("Carta Propuesta").Range("A1:A"&Fila).FormulaR1C1= "=PU's(45)!RC"
End Sub
, Espero sea de tu ayuda