moduloMacrosEjemplo.bas

  1. Attribute VB_Name = "moduloMacrosEjemplo"
  2. Option Explicit
  3.  
  4. Public Sub MacroEjemplo1_1()
  5. Worksheets("ejemplo1").Range("I:IV").EntireColumn.Delete
  6.  
  7. Call CrearTablaCartesiana( _
  8. Worksheets("ejemplo1").Range("B2"), _
  9. Worksheets("ejemplo1").Range("I2"), _
  10. 1, 3, 2, _
  11. opcionFijar:=False, _
  12. opcionAjustar:=False)
  13. End Sub
  14.  
  15. Public Sub MacroEjemplo1_2()
  16. Worksheets("ejemplo1").Range("I:IV").EntireColumn.Delete
  17.  
  18. Call CrearTablaCartesiana( _
  19. Worksheets("ejemplo1").Range("B2"), _
  20. Worksheets("ejemplo1").Range("I2"), _
  21. 2, 2, 2, _
  22. opcionFijar:=False, _
  23. opcionAjustar:=False)
  24. End Sub
  25.  
  26. Public Sub MacroEjemplo2_1()
  27. Worksheets("ejemplo2").Range("K:IV").EntireColumn.Delete
  28.  
  29. Call CrearTablaCartesiana( _
  30. Worksheets("ejemplo2").Range("B2"), _
  31. Worksheets("ejemplo2").Range("K2"), _
  32. 1, 3, 4, _
  33. opcionFijar:=False, _
  34. opcionAjustar:=False)
  35. End Sub
  36.  
  37. Public Sub MacroEjemplo2_2()
  38. Worksheets("ejemplo2").Range("K:IV").EntireColumn.Delete
  39.  
  40. Call CrearTablaCartesiana( _
  41. Worksheets("ejemplo2").Range("B2"), _
  42. Worksheets("ejemplo2").Range("K2"), _
  43. 2, 2, 4, _
  44. opcionFijar:=False, _
  45. opcionAjustar:=False)
  46. End Sub
  47.  
  48. Public Sub MacroEjemplo3_1()
  49. Worksheets("destino").Range("A:IV").EntireColumn.Delete
  50.  
  51. Call CrearTablaCartesiana( _
  52. Worksheets("origen").Range("B2"), _
  53. Worksheets("destino").Range("B2"), _
  54. 1, 3, 4)
  55. End Sub
  56.  
  57. Public Sub MacroEjemplo3_2()
  58. Worksheets("destino").Range("A:IV").EntireColumn.Delete
  59.  
  60. Call CrearTablaCartesiana( _
  61. Worksheets("origen").Range("B2"), _
  62. Worksheets("destino").Range("B2"), _
  63. 2, 2, 4)
  64. End Sub
  65.  
  66. Public Sub MacroVerCodigoFuente()
  67. SendKeys "%{F11}"
  68. End Sub
  69.  

Proinf.net