Excel - crear hojas automáticamente con datos de una hoja de excel

   
Vista:

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?

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.Copy
    Sheets("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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder