buena tarde, solicito de su ayuda ya que genere este código, pero al agregarle la parte cells select se atora y si se lo quito corre bien el problema es que las hojas se quedan formuladas por eso necesito que se peguen en valores espero me puedan ayudar. saludos
ChDir "C:\Users\oper15\Documents\uriel\logistica\REPORTE PRESUPUESTOS DE VENTAS\JULIO"
ActiveWorkbook.SaveAs Filename:="C:\Users\oper15\Documents\uriel\logistica\REPORTE PRESUPUESTOS DE VENTAS\JULIO\PRESUPUESTOS POR TDA" & a & "0707JUL.xls", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ChDir "C:\Users\oper15\Documents\uriel\logistica\REPORTE PRESUPUESTOS DE VENTAS\JULIO"
ActiveWorkbook.SaveAs Filename:="C:\Users\oper15\Documents\uriel\logistica\REPORTE PRESUPUESTOS DE VENTAS\JULIO\PRESUPUESTOS POR TDA" & a & "0707JUL.xls", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Next i
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
buena tarde, solicito de su ayuda ya que genere este código, pero al agregarle la parte cells select se atora y si se lo quito corre bien el problema es que las hojas se quedan formuladas por eso necesito que se peguen en valores espero me puedan ayudar. saludos
[/hr]
Sub crear()
Dim n As Integer
Dim i As Integer
Dim a As Variant
n = 4
Sheets("PARAMETROS").Select
For i = 1 To 14
a = Cells(n + i, 1)
Range("I2").Select
ActiveCell.FormulaR1C1 = a
Sheets("RESUMEN").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ChDir "C:\Users\oper15\Documents\uriel\logistica\REPORTE PRESUPUESTOS DE VENTAS\JULIO"
ActiveWorkbook.SaveAs Filename:="C:\Users\oper15\Documents\uriel\logistica\REPORTE PRESUPUESTOS DE VENTAS\JULIO\PRESUPUESTOS POR TDA" & a & "0707JUL.xls", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Next i
End Sub
- - - - - Mensaje combinado - - - - -
listo ya lo solucione me quedo asi....Sub crear()
Dim n As Integer
Dim i As Integer
Dim a As Variant
n = 4
Sheets("PARAMETROS").Select
For i = 1 To 14
Application.DisplayAlerts = False
a = Cells(n + i, 1)
Range("I2").Select
ActiveCell.FormulaR1C1 = a
Sheets("RESUMEN").Copy
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ChDir "C:\Users\oper15\Documents\uriel\logistica\REPORTE PRESUPUESTOS DE VENTAS\JULIO"
ActiveWorkbook.SaveAs Filename:="C:\Users\oper15\Documents\uriel\logistica\REPORTE PRESUPUESTOS DE VENTAS\JULIO\PRESUPUESTOS POR TDA" & a & "0707JUL.xls", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Next i
End Sub