Crear Archivo

Buenas Tarde grupo,


Tengo una macro que hize con la grabadora de macro:

Sub Crear()
Sheets(Array("Hoja1", "Hoja2")).Select
Sheets("Hoja2").Activate
Sheets(Array("Hoja1", "Hoja2")).Copy
Sheets("Hoja1").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Sheets("Hoja2").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Sheets("Hoja1").Select
Range("H2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(Hoja2!RC:R[500]C)"
Range("G2").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Hoja2!RC[1]:R[500]C[1],"">0"")"
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Range("A1").Select
ActiveSheet.Next.Select
Range("A1").Select
End Sub

Esta macro me crea otro archivo y lo que necesito es que me lo salve
automaticamente con el nombre del archivo que copie las hojas pero me
ponga un 2 al final, para diferenciarlos.

Espero que me puedan ayudar,

Saludos,

Hola AnGeLo,

Que tal algo asi (suponiendo que el codigo se colocara y se ejecutara
desde el libro original):

Sub Crear()
Application.ScreenUpdating = False
With ThisWorkbook
.Sheets(Array("Hoja1", "Hoja2")).Copy
Nombre = Replace(.Path & "\" & .Name, ".xls", "2.xls")
End With
With ActiveWorkbook
.Sheets(Array("Hoja1", "Hoja2")).Select
With .Sheets("Hoja1")
.Range("H2").FormulaR1C1 = "=SUM(Hoja2!RC:R[500]C)"
.Range("G2").FormulaR1C1 = _
"=COUNTIF(Hoja2!RC[1]:R[500]C[1],"">0"")"
.Cells.Copy
.Cells.PasteSpecial xlValues
Application.CutCopyMode = False
.Range("A1").Select
.Select
End With
.SaveAs Nombre
End With
Application.ScreenUpdating = True
End Sub

Saludos,
KL


"AnGeLo" wrote in message
news:OZI4GK%

Buenas Tarde grupo,


Tengo una macro que hize con la grabadora de macro:

Sub Crear()
Sheets(Array("Hoja1", "Hoja2")).Select
Sheets("Hoja2").Activate
Sheets(Array("Hoja1", "Hoja2")).Copy
Sheets("Hoja1").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Sheets("Hoja2").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Sheets("Hoja1").Select
Range("H2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(Hoja2!RC:R[500]C)"
Range("G2").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Hoja2!RC[1]:R[500]C[1],"">0"")"
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
ActiveSheet.Next.Select
Range("A1").Select
End Sub

Esta macro me crea otro archivo y lo que necesito es que me lo salve
automaticamente con el nombre del archivo que copie las hojas pero me
ponga un 2 al final, para diferenciarlos.

Espero que me puedan ayudar,

Saludos,