Macro para pegar datos en una celda determinada

He creado la siguiente macro:

Sub extraerDatosOtroLibro()
Dim libroDatos As Workbook
Set libroDatos = Workbooks.Open("C:\Archivo.xlsx")
libroDatos.Sheets(1).Range("A1:B6").Copy
libroDatos.Close savechanges:=False
ActiveSheet.Paste
Range("B3").Select
End Sub

Y al pulsar el botón que la ejecuta, se trae los datos a la celda que tengamos seleccionada en el Excel en ese momento, en vez de depositar la información a partir de la celda B3 (como he indicado en la penúltima línea).

¿Qué tendría que cambiar para que pegue los valores a partir de la celda B3, sin tener que tenerla seleccionada?

1 Respuesta

Respuesta
1

[Hola 

Cambia

ActiveSheet. Paste
Range("B3").Select

por esto

ActiveSheet. Range("B3"). PasteSpecial xlValues

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas