Copiar misma macro, con datos diferentes, varias veces
Publicado por Leticia (2 intervenciones) el 19/02/2016 08:54:55
Buenos días,
Tengo realizada la siguiente macro:
El caso es que esta misma macro, debo realizarla varias veces pero con datos diferentes, es decir, si ahora copia el rango B2, luego tendrá que copiar el rango B3, B4 y así sucesivamente.
¿Alguien sabe como puedo hacer esta macro, sin tener que copiarla, pegarla y modificarla tantas veces necesite?
Muchas gracias por vuestra ayuda
Tengo realizada la siguiente macro:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub copypaste()
'1 copiamos y pegamos los datos de una hoja a otra
Worksheets("Datos").Range("B2").Copy
Worksheets("PVI").Range("D4:H4").PasteSpecial
Worksheets("Datos").Range("C2").Copy
Worksheets("PVI").Range("D6:H6").PasteSpecial
Worksheets("Datos").Range("D2").Copy
Worksheets("PVI").Range("D8:H8").PasteSpecial
Worksheets("Datos").Range("J2").Copy
Worksheets("PVI").Range("D10:H10").PasteSpecial
Worksheets("Datos").Range("G2").Copy
Worksheets("PVI").Range("D12:H12").PasteSpecial
Worksheets("Datos").Range("L2").Copy
Worksheets("PVI").Range("D14:H14").PasteSpecial
'1 imprimir en pdf.
ruta = "D:\Macro\" + Cells(1, 3) + ".pdf"
Sheets("PVI").Select
Range("B1:O54").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\Macro\" + Cells(1, 3) + ".pdf" & Range("B92").Value, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'1 borrar contenido
Worksheets("PVI").Range("D4:H4").ClearContents
Worksheets("PVI").Range("D6:H6").ClearContents
Worksheets("PVI").Range("D8:H8").ClearContents
Worksheets("PVI").Range("D10:H10").ClearContents
Worksheets("PVI").Range("D12:H12").ClearContents
Worksheets("PVI").Range("D14:H14").ClearContents
El caso es que esta misma macro, debo realizarla varias veces pero con datos diferentes, es decir, si ahora copia el rango B2, luego tendrá que copiar el rango B3, B4 y así sucesivamente.
¿Alguien sabe como puedo hacer esta macro, sin tener que copiarla, pegarla y modificarla tantas veces necesite?
Muchas gracias por vuestra ayuda
Valora esta pregunta
0
