macro para copiar celda desde formula a maxtxt

[akira468]

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]

[Antoni]

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")

[akira468]

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

[Antoni]

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

[akira468]

Macro Antonio.

Disculpa la demora.

Ahora si lo subi correctamente

Saludos.

Solicitud.rar

[akira468]

macro antonio por favor ayudame con esto...

Saludos...

[akira468]

solucione el problema...

tema cerrado gracias...