Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » COPIAR CELDAS VBA

Excel - COPIAR CELDAS VBA

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 24
Ha aumentado 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

COPIAR CELDAS VBA

Publicado por nacho (14 intervenciones) el 27/07/2018 13:59:47
Hola,
me gustaría que este programita en excel VBA me funcionase.
Quiero que cuando ejecute la macro las celdas de la hoja pedido tomen los valores(que son formulas por ejemplo=BUSCARV(Pedido!D28;Tabla1;2;0)).
Este programita lo tengo en otro macro y me funciona bien, alguien podria explicarme por que nho me funciona bien?
me da error 438.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub xxx
 
With Sheets("Pedido")
      .Range("D28") = ""
      .Range("E24").Value "=Pedido!S3"
      .Range("D26").Value "=Extras!D26"
      .Range("J14").Value "=Extras!J15"
      .Range("J15").Value "=Extras!J16"
      .Range("J16").Value "=Extras!J17"
      .Range("L16").Value "=Extras!L17"
      .Range("M18").Value "=Extras!M19"
 
End With
 
End sub
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 CELDAS VBA

Publicado por Antoni Masana (2479 intervenciones) el 30/07/2018 10:53:44
Te pongo tres formas que padece ser que funciona, yo me quedo con la segunda.

1
2
3
4
5
6
7
8
9
10
11
12
Sub xxx()
    With Sheets("Pedido")
       .Range("D28") = ""
       .Range("E24").Value = "=Pedido!S3"
       .Range("D26").Value = "=Extras!D26"
       .Range("J14").Value = "=Extras!J15"
       .Range("J15").Value = "=Extras!J16"
       .Range("J16").Value = "=Extras!J17"
       .Range("L16").Value = "=Extras!L17"
       .Range("M18").Value = "=Extras!M19"
    End With
End Sub


1
2
3
4
5
6
7
8
9
10
11
12
Sub xxx()
    With Sheets("Pedido")
        .Range("D28") = ""
        .Range("E24").Formula = "=Pedido!S3"
        .Range("D26").Formula = "=Extras!D26"
        .Range("J14").Formula = "=Extras!J15"
        .Range("J15").Formula = "=Extras!J16"
        .Range("J16").Formula = "=Extras!J17"
        .Range("L16").Formula = "=Extras!L17"
        .Range("M18").Formula = "=Extras!M19"
    End With
End Sub


1
2
3
4
5
6
7
8
9
10
11
12
Sub xxx()
    With Sheets("Pedido")
        .Range("D28") = ""
        .Range("E24").Formula = "=Pedido!R3C19"   ' -- S3

        .Range("D26").Formula = "=Extras!R26C4"   ' -- D26

        .Range("J14").Formula = "=Extras!R15C10"  ' -- J15

        .Range("J15").Formula = "=Extras!R16C10"  ' -- J16

        .Range("J16").Formula = "=Extras!R17C10"  ' -- J17

        .Range("L16").Formula = "=Extras!R17C12"  ' -- L17

        .Range("M18").Formula = "=Extras!R19C13"  ' -- M19

    End With
End Sub

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