crear hojas automáticamente con datos de una hoja de excel
Publicado por sandra1 (1 intervención) el 12/05/2015 19:24:31
Hola a todos,
Tengo una tabla con datos en excel en la cual incluyo filas y actualizo datos. En ella hay datos que necesito para crear una hoja nueva por cada fila de datos sobre una plantilla. Me gustaría que cuando incluyo una fila nueva de datos se cree una hoja nueva con esa plantilla.
He creado un macro pero tengo que estar creando uno por cada fila y tengo mas de 80. Alguien me puede ayudar?
Muchas gracias, Sandra
Tengo una tabla con datos en excel en la cual incluyo filas y actualizo datos. En ella hay datos que necesito para crear una hoja nueva por cada fila de datos sobre una plantilla. Me gustaría que cuando incluyo una fila nueva de datos se cree una hoja nueva con esa plantilla.
He creado un macro pero tengo que estar creando uno por cada fila y tengo mas de 80. Alguien me puede ayudar?
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
34
35
36
37
Sub Crear1()
'
' Crear Macro
'
' Acceso directo: CTRL+q
'
Sheets("Parte produccion").Select
Sheets("Parte produccion").Copy After:=Sheets(2)
Sheets("BBDD").Select
Range("A2").Select
Selection.CopySheets("Parte produccion (2)").Select
Sheets("Parte produccion (2)").Name = "1"
Range("D9:G9").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+BBDD!R[-7]C[4]"
Range("D10:G10").Select
ActiveCell.FormulaR1C1 = "=+BBDD!R[-8]C[8]"
Range("D12:G12").Select
ActiveCell.FormulaR1C1 = "=+BBDD!R[-10]C[-2]"
Range("C16:G16").Select
ActiveCell.FormulaR1C1 = "=+BBDD!R[-14]C[2]"
Range("C17:G17").Select
ActiveCell.FormulaR1C1 = "=+BBDD!R[-15]C[3]"
Range("C18:G18").Select
ActiveCell.FormulaR1C1 = "=+BBDD!R[-16]C[4]"
Range("E20:G20").Select
ActiveCell.FormulaR1C1 = "=+BBDD!R[-18]C[-1]"
Range("C29:F29").Select
ActiveCell.FormulaR1C1 = "=+BBDD!R[-27]C[4]"
Range("C30:F30").Select
Sheets("BBDD").Select
Range("N2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'1'!A1", TextToDisplay:="'1'!A1"
End Sub
Muchas gracias, Sandra
Valora esta pregunta
0