Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » COPIAR DATOS DE UNA HOJAS 1, A LAS HOJAS 2, HOJAS 3, Y HOJAS 4

Excel - COPIAR DATOS DE UNA HOJAS 1, A LAS HOJAS 2, HOJAS 3, Y HOJAS 4

Volver
Nuevo Tema
<<>>
 
Vista:

COPIAR DATOS DE UNA HOJAS 1, A LAS HOJAS 2, HOJAS 3, Y HOJAS 4

Publicado por edgar villamizar (1 intervención) el 29/09/2020 21:48:43
Hola buenas, estoy intentando hacer una macro que copie los datos de una hojas a otras, con el codigo que lo estoy asiendo me da vas bien copiando a 2 hojas, pero cuando quiero que copie a las 3 era hoja me da error de objetos, error 1004 en la linea de ranger, aca le dejo el codigo

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
38
39
40
41
42
43
44
45
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
 
 
 
Range("X1:Y1:Z1:AA1").Select 'COPIAR LOS DATOS PARA EL REGISTRO
    Selection.Copy
 
     With Worksheets("SISTEMA")
    .Visible = True
    .Activate
    .Unprotect
    .Range("A7").Select
    End With
 
 
    While ActiveCell.Value <> ""   'CONDICIÓN
    ActiveCell.Offset(1, 0).Select  'ACCIÓN SI SE CUMPLE LA CONDICIÓN
    Wend
    'PEGAR LOS DATOS E IR A LA HOJA DEL FORMULARIO
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
        Range("X4:Y4:Z4:AA4:AB4").Select 'COPIAR LOS DATOS PARA EL REGISTRO
    Selection.Copy
         With Worksheets("SALIDA DE PRODUCTO")
    .Visible = True
    .Activate
    .Unprotect
    .Range("J2").Select
    End With
    While ActiveCell.Value <> ""   'CONDICIÓN
    ActiveCell.Offset(1, 0).Select  'ACCIÓN SI SE CUMPLE LA CONDICIÓN
    Wend
    'PEGAR LOS DATOS E IR A LA HOJA DEL FORMULARIO
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
 
Application.CutCopyMode = False
    Sheets("SISTEMA").Select
 
End Sub

todo lo estoy asiendo por vba en excel 365
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
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

COPIAR DATOS DE UNA HOJAS 1, A LAS HOJAS 2, HOJAS 3, Y HOJAS 4

Publicado por Antoni Masana (2481 intervenciones) el 29/09/2020 22:20:36
Te cuento el problema que le veo a la 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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
 
    ' ---&--- No veo cual es la hoja activa desde la que copias
 
    Range("X1:Y1:Z1:AA1").Select 'COPIAR LOS DATOS PARA EL REGISTRO
    Selection.Copy
 
    With Worksheets("SISTEMA")
        .Visible = True
        .Activate
        .Unprotect
        .Range("A7").Select
    End With
 
    ' ---&--- No veo cual es la hoja activa donde PEGAS
 
    While ActiveCell.Value <> "" 'CONDICIÓN
        ActiveCell.Offset(1, 0).Select 'ACCIÓN SI SE CUMPLE LA CONDICIÓN
    Wend
    'PEGAR LOS DATOS E IR A LA HOJA DEL FORMULARIO
    Selection.PasteSpecial Paste:=xlPasteValues, _
                           Operation:=xlNone, _
                           SkipBlanks:=False, _
                           Transpose:=False
 
    ' ---&--- No veo cual es la hoja activa desde la que copias
 
    Range("X4:Y4:Z4:AA4:AB4").Select 'COPIAR LOS DATOS PARA EL REGISTRO
    Selection.Copy
 
    With Worksheets("SALIDA DE PRODUCTO")
        .Visible = True
        .Activate
        .Unprotect
        .Range("J2").Select
    End With
 
    ' ---&--- No veo cual es la hoja activa donde PEGAS
 
    While ActiveCell.Value <> "" 'CONDICIÓN
        ActiveCell.Offset(1, 0).Select 'ACCIÓN SI SE CUMPLE LA CONDICIÓN
    Wend
 
    'PEGAR LOS DATOS E IR A LA HOJA DEL FORMULARIO
    Selection.PasteSpecial Paste:=xlPasteValues, _
                           Operation:=xlNone, _
                           SkipBlanks :=False, _
                           Transpose:=False
    Application.CutCopyMode = False
    Sheets("SISTEMA").Select
End Sub

Es posible que este bien pero yo no lo veo, a veces no acabo de entender lo que hace el Excel.
Por favor puedes subir un libro de ejemplo con la macro y explicar de donde ha de leer y donde ha de escribir.
Me ayudara a en entender lo que quieres hacer, el funcionamiento de la macro y ver porque sale el error.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar