Visual Basic - Error 1004 en Set rngDestino = wshDestino.Range(celdaDestino1)

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 11 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error 1004 en Set rngDestino = wshDestino.Range(celdaDestino1)

Publicado por PAU (1 intervención) el 10/05/2020 12:52:39
Hola a todos. Estoy empezando a programar en VBA. Tengo un error 1004 y no se como solucionarlo. Alguna idea?

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
Option Explicit
 
 
Private Sub ButtonCopy_Click()
Dim wsFactura As Excel.Worksheet
Dim wsFacturaImprimir As Excel.Worksheet
 
Dim wshOrigen As Object
Dim wshDestino As Object
 
Dim rngOrigen As Excel.Range
Dim rngDestino As Excel.Range
Dim celdaOrigen1 As Excel.Range
Dim celdaDestino1 As Excel.Range
 
Dim NorFila As Object
 
 
'Indicar las hojas de origen y destino
Set wshOrigen = Worksheets("Factura")
Set wshDestino = Worksheets("FacturaImprimir")
 
 
'Indicar la celda de origen y destino
 
Set NorFila = ActiveCell
 
Set celdaOrigen1 = Range("A" & (ActiveCell.row))
Set celdaDestino1 = Range("C3")
 
 
'Inicializar los rangos de origen y destino
'Set rngOrigen = wsOrigen.Range(celdaOrigen1)
 
 
'Error 1004
 
Set rngDestino = wshDestino.Range(celdaDestino1)
 
'Seleccionar rango de celdas origen
celdaOrigen1.Select
 
Selection.Copy
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: 1.234
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error 1004 en Set rngDestino = wshDestino.Range(celdaDestino1)

Publicado por Antoni Masana (445 intervenciones) el 11/05/2020 18:53:32
Ayuda mucho subir un libro de ejemplo con el error y explicar que pasos sigues para que salga.

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