factura_urano.bas

  1. 'Attribute VB_Name = "Macros"
  2. Option Explicit
  3.  
  4. Sub MacroFechaFactura()
  5. 'Attribute MacroFechaFactura.VB_ProcData.VB_Invoke_Func = " \n14"
  6. Range("C14").Select
  7. Selection.FormulaR1C1 = "=TODAY()"
  8. Selection.Copy
  9. Selection.PasteSpecial Paste:=xlPasteValues, _
  10. Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  11. Application.CutCopyMode = False
  12. End Sub
  13.  
  14. Sub MacroNumeroFactura()
  15. 'Attribute MacroNumeroFactura.VB_ProcData.VB_Invoke_Func = " \n14"
  16. Range("C12").Select
  17. Selection.Copy
  18. Range("C13").Select
  19. Selection.PasteSpecial Paste:=xlPasteValues, _
  20. Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  21. Application.CutCopyMode = False
  22. End Sub
  23.  
  24. Sub MacroFechaNumeroFactura()
  25. Call MacroFechaFactura
  26. Call MacroNumeroFactura
  27. End Sub
  28.  
  29. Sub MacroManual()
  30. 'Hace lo mismo que MacroFechaNumeroFactura
  31. Range("c14").Value = Date
  32. Range("c13").Value = Range("c13").Value + 1
  33. End Sub
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  

Proinf.net