API tools faq
paste
Advertisement
Guest User

Macro Code

a guest
May 24th, 2022
88
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.61 KB | None | 0 0
raw download clone embed print report
  1. Sub Guardar()
  2. '
  3. ' Guardar Macro
  4. '
  5.  
  6. '
  7. Range("A2:S2").Select
  8. Selection.ListObject.ListRows.Add (1)
  9. Sheets("IngresoDeDatos").Select
  10. Range("C9").Select
  11. Selection.Copy
  12. Sheets("BaseDeDatos").Select
  13. Range("A2").Select
  14. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  15. :=False, Transpose:=False
  16. Sheets("IngresoDeDatos").Select
  17. Range("C11").Select
  18. Application.CutCopyMode = False
  19. Selection.Copy
  20. Sheets("BaseDeDatos").Select
  21. Range("B2").Select
  22. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  23. :=False, Transpose:=False
  24. Sheets("IngresoDeDatos").Select
  25. Range("C13").Select
  26. Application.CutCopyMode = False
  27. Selection.Copy
  28. Sheets("BaseDeDatos").Select
  29. Range("C2").Select
  30. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  31. :=False, Transpose:=False
  32. Sheets("IngresoDeDatos").Select
  33. Range("C15").Select
  34. Application.CutCopyMode = False
  35. Selection.Copy
  36. Sheets("BaseDeDatos").Select
  37. Range("D2").Select
  38. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  39. :=False, Transpose:=False
  40. Sheets("IngresoDeDatos").Select
  41. Range("C17").Select
  42. Application.CutCopyMode = False
  43. Selection.Copy
  44. Sheets("BaseDeDatos").Select
  45. Range("E2").Select
  46. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  47. :=False, Transpose:=False
  48. Sheets("IngresoDeDatos").Select
  49. Range("C19").Select
  50. Application.CutCopyMode = False
  51. Selection.Copy
  52. Sheets("BaseDeDatos").Select
  53. Range("F2").Select
  54. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  55. :=False, Transpose:=False
  56. Sheets("IngresoDeDatos").Select
  57. Range("G9").Select
  58. Application.CutCopyMode = False
  59. Selection.Copy
  60. Sheets("BaseDeDatos").Select
  61. Range("G2").Select
  62. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  63. :=False, Transpose:=False
  64. Sheets("IngresoDeDatos").Select
  65. Range("G11").Select
  66. Application.CutCopyMode = False
  67. Selection.Copy
  68. Sheets("BaseDeDatos").Select
  69. Range("H2").Select
  70. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  71. :=False, Transpose:=False
  72. Sheets("IngresoDeDatos").Select
  73. Range("G13").Select
  74. Application.CutCopyMode = False
  75. Selection.Copy
  76. Sheets("BaseDeDatos").Select
  77. Range("I2").Select
  78. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  79. :=False, Transpose:=False
  80. Sheets("IngresoDeDatos").Select
  81. Range("G15").Select
  82. Application.CutCopyMode = False
  83. Selection.Copy
  84. Sheets("BaseDeDatos").Select
  85. Range("J2").Select
  86. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  87. :=False, Transpose:=False
  88. Sheets("IngresoDeDatos").Select
  89. Range("G17").Select
  90. Application.CutCopyMode = False
  91. Selection.Copy
  92. Sheets("BaseDeDatos").Select
  93. Range("K2").Select
  94. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  95. :=False, Transpose:=False
  96. Sheets("IngresoDeDatos").Select
  97. Range("G19").Select
  98. Application.CutCopyMode = False
  99. Selection.Copy
  100. Sheets("BaseDeDatos").Select
  101. Range("L2").Select
  102. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  103. :=False, Transpose:=False
  104. Sheets("IngresoDeDatos").Select
  105. Range("G21").Select
  106. Application.CutCopyMode = False
  107. Selection.Copy
  108. Sheets("BaseDeDatos").Select
  109. Range("M2").Select
  110. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  111. :=False, Transpose:=False
  112. Sheets("IngresoDeDatos").Select
  113. Range("F23").Select
  114. Application.CutCopyMode = False
  115. Selection.Copy
  116. Sheets("BaseDeDatos").Select
  117. Range("N2").Select
  118. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  119. :=False, Transpose:=False
  120. Sheets("IngresoDeDatos").Select
  121. Range("F25").Select
  122. Application.CutCopyMode = False
  123. Selection.Copy
  124. Sheets("BaseDeDatos").Select
  125. Range("O2").Select
  126. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  127. :=False, Transpose:=False
  128. Sheets("IngresoDeDatos").Select
  129. Range("F27").Select
  130. Application.CutCopyMode = False
  131. Selection.Copy
  132. Sheets("BaseDeDatos").Select
  133. Range("P2").Select
  134. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  135. :=False, Transpose:=False
  136. Sheets("IngresoDeDatos").Select
  137. Range("F29").Select
  138. Application.CutCopyMode = False
  139. Selection.Copy
  140. Sheets("BaseDeDatos").Select
  141. Range("Q2").Select
  142. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  143. :=False, Transpose:=False
  144. Sheets("IngresoDeDatos").Select
  145. Range("F31").Select
  146. Application.CutCopyMode = False
  147. Selection.Copy
  148. Sheets("BaseDeDatos").Select
  149. Range("R2").Select
  150. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  151. :=False, Transpose:=False
  152. Sheets("IngresoDeDatos").Select
  153. Range("F33").Select
  154. Application.CutCopyMode = False
  155. Selection.Copy
  156. Sheets("BaseDeDatos").Select
  157. Range("S2").Select
  158. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  159. :=False, Transpose:=False
  160. Sheets("IngresoDeDatos").Select
  161. Application.CutCopyMode = False
  162. End Sub
  163.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!