Como se puede modificar una macro
Yo tengo esta macro que yo modifique algunas cosas y a la hora de ejecutarla se guarda como iva yo quisiera que se guardase solo como el numero de factura completo por ejemplo 77-2015 .estos datos están en la d7
Gracias
Sub Macro15()
'Sub GuardarHoja()
'Por.Dante Amor
Application.ScreenUpdating = False
Set l1 = ThisWorkbook
Set h2 = l1.Sheets("factura iva") 'Nombre de la Hoja a guardar
Set l2 = Workbooks.Add
Set h3 = l2.Sheets(1)
ruta = "I:\Empresa\TOÑI\EMPRESAS\ultima factura\IVA" 'Ruta
FACTURA = h2.[D7] 'Celda con el número de factura
fecha = Format(Date, "dd-mmm-yyyy")
'
h2.Cells.Copy
h3.Range("A1").PasteSpecial Paste:=xlPasteValues
h3.Range("A1").PasteSpecial Paste:=xlPasteFormats
h3.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
h2.DrawingObjects("imagen 1").Copy
h3.Paste
Selection.Top = Range("A1").Top
Selection.Left = Range("A1").Left
l2.SaveAs ruta & facturaiva & ".xlsx"
l2.Close False
MsgBox "Factura guardada", vbInformation
End Sub
1 respuesta
Acá va mi version, por las dudas puse los los lugares donde la modifique porque puedo estar pasando algo por alto y deje la version anterior también arriba con signo '
Si no, espera a ver la versión de Dante.
Sub Macro15()
'Sub GuardarHoja()
'Por.Dante Amor
'Modificado por Javier Casabal
Application.ScreenUpdating = False
Set l1 = ThisWorkbook
Set h2 = l1.Sheets("factura iva") 'Nombre de la Hoja a guardar
Set l2 = Workbooks.Add
Set h3 = l2.Sheets(1)
ruta = "I:\Empresa\TOÑI\EMPRESAS\ultima factura\IVA" 'Ruta
factura = h2.[D7] 'Celda con el número de factura
'fecha = Format(Date, "dd-mmm-yyyy") 'Modificado por JC
fecha = Format(Date, "yyyy") 'Modificado por JC
'
h2.Cells.Copy
h3.Range("A1").PasteSpecial Paste:=xlPasteValues
h3.Range("A1").PasteSpecial Paste:=xlPasteFormats
h3.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
h2.DrawingObjects("imagen 1").Copy
h3.Paste
Selection.Top = Range("A1").Top
Selection.Left = Range("A1").Left
'l2.SaveAs ruta & facturaiva & ".xlsx" Modificado por JC
l2.SaveAs ruta & factura & "-" & fecha & ".xlsx" 'Modificado por JC
l2.Close False
MsgBox "Factura guardada", vbInformation
End Sub
¡Gracias!
En primer lugar gracias
Ahora cuando ejecuto la macro se guarda así
Ejemplo
iva77-2015-2015
No se podría guardar solo con
Ejemplo 77-2015
Si, claro. Es solo que yo no se bien que datos tiene el libro.
Creo que así debería estar bien. Fíjate.
Sub Macro15()
'Sub GuardarHoja()
'Por.Dante Amor
'Modificado por Javier Casabal
Application.ScreenUpdating = False
Set l1 = ThisWorkbook
Set h2 = l1.Sheets("factura iva") 'Nombre de la Hoja a guardar
Set l2 = Workbooks.Add
Set h3 = l2.Sheets(1)
ruta = "I:\Empresa\TOÑI\EMPRESAS\ultima factura\" 'Ruta
factura = h2.[D7] 'Celda con el número de factura
'fecha = Format(Date, "dd-mmm-yyyy") 'Modificado por JC
fecha = Format(Date, "yyyy") 'Modificado por JC
'
h2.Cells.Copy
h3.Range("A1").PasteSpecial Paste:=xlPasteValues
h3.Range("A1").PasteSpecial Paste:=xlPasteFormats
h3.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
h2.DrawingObjects("imagen 1").Copy
h3.Paste
Selection.Top = Range("A1").Top
Selection.Left = Range("A1").Left
'l2.SaveAs ruta & facturaiva & ".xlsx" Modificado por JC
l2.SaveAs ruta & factura & ".xlsx" 'Modificado por JC
l2.Close False
MsgBox "Factura guardada", vbInformation
End Sub
