Macro que importe datos de unas hojas de un libro de Excel a una hoja de otro libro
Publicado por Juan (1 intervención) el 02/06/2021 18:23:09
Cordial Saludo si alguien me puede ayudar se lo agradezco de antemano, la situación es la siguiente: Necesito copiar unos datos que están ubicados en unas hojas de Excel en los mismos rangos a otro libro de Excel.
Tengo el siguiente código pero no me funciona el ciclo For solo me trae los datos de la primer hoja que copia
Código:
Mil gracias por la ayuda....
Tengo el siguiente código pero no me funciona el ciclo For solo me trae los datos de la primer hoja que copia
Código:
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
Sub ImportarDatos()
Dim librodatos As Workbook
Dim Ruta As String
Dim i As Integer
Ruta = Application.GetOpenFilename(Title:="Por favor seleccionar un archivo de Excel")
If Ruta = "False" Then
Exit Sub
End If
Set librodatos = Workbooks.Open(Ruta)
tmp = librodatos.Sheets.Count
For i=1 To tmplibrodatos.Sheets(i).Range("A2:A7").Copy
ActiveSheet.PasteRange("A2:A50").Select
Next i
librodatos.Close savechanges:=False
End Sub
Mil gracias por la ayuda....
Valora esta pregunta
0
