Quisiera me ayudaran en esto.

Tengo un libro con 2 paginas la primera se llama maxtxt y la segunda se llama formula.

Necesito macro para copiar desde pagina formula la celda A2 y pegarla en pagina maxtxt Celda C7.

Private Sub maxtxt()
Set Lcl = Range("B3")
Set rg = Range("C7") 
rg.Copy rg.Offset(rg.Rows.Count, 0).Resize(rg.Rows.Count * [B5] - 1)


 fecha = Format(Now - 1, "mmdd")
 Application.ScreenUpdating = False
 Range("C7").Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.Copy
 Workbooks.Add
 Range("A1").Select
 ActiveSheet.Paste
 Application.CutCopyMode = False
 ActiveWorkbook.SaveAS Filename:="C:\" & "Max" & fecha & "." & Lcl, FileFormat:=xlText, CreateBackup:=False
 ActiveWorkbook.Close
 Application.ScreenUpdating = True


End Sub

[/PHP]

Necesito macro para copiar desde pagina formula la celda A2 y pegarla en pagina maxtxt Celda C7.

Sheets("formula").Range("A2").Copy Sheets("maxtxt").Range("C7")

Primero que todo gracias Macro antonio por la ayuda.

No me funciona, me arroja error.

En la macro que subi como deberia implementarla?

rg.Copy rg.Offset(rg.Rows.Count, 0).Resize(rg.Rows.Count * [B5] - 1)[/PHP]

elimine rg.copy y coloque la macro que me diste .

adjunto archivo

Solicitud.zip

Tu archivo da error "Factor de compresión desconocido".

Macro Antonio.

Disculpa la demora.

Ahora si lo subi correctamente

Saludos.

Solicitud.rar

macro antonio por favor ayudame con esto...

Saludos...

solucione el problema...

tema cerrado gracias...