por que no toma el range
Publicado por Joaquin (2 intervenciones) el 27/11/2019 15:50:33
Hola, soy nuevo en VBA y tengo este problema:
Tengo un libro con hoja1, quiero copiar los datos de la columna A a la columna A de hoja2, pero omitiendo la celda A1 porque ahí esta el titulo, tengo este código pero no resulta, copia todo con titulo incluido y según yo la lógica esta bien, no se en que fallo, ayuda por favor.
Tengo un libro con hoja1, quiero copiar los datos de la columna A a la columna A de hoja2, pero omitiendo la celda A1 porque ahí esta el titulo, tengo este código pero no resulta, copia todo con titulo incluido y según yo la lógica esta bien, no se en que fallo, ayuda por favor.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub PRUEBASX()
Dim numfilas As Integer
Dim f As Integer
f = 2Workbooks.Open "C:\Users\Lenovo\Desktop\vba\noviembre.xlsx"
Workbooks("noviembre.xlsx").Worksheets("Hoja1").Select
numfilas = Workbooks("noviembre.xlsx").Worksheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row
For x = 1 To numfilasWorkbooks("noviembre.xlsx").Worksheets("Hoja2").Range("A" & x & ":A1").Value = _
Workbooks("noviembre.xlsx").Worksheets("Hoja1").Range("A" & f & ":A1").Value
f = f + 1
Next
End Sub
Valora esta pregunta
0
