copiar datos de varios archivos xls

hola Juan

quiero que estos datos se copien como valores, con los formatos,

es decir, el pegado especial de formatos, y el pegado especial de
valores<<<

cambia toda esta parte del codigo =>

      .Range("a2:z" & .Cells(.Rows.Count, 1) _
          .End(xlUp).Row + 1).Copy hj.Cells(hj.Rows _
          .Count, 1).End(xlUp).Offset(1)


por esto otro =>

Dim uF As Long
uF = hj.Cells(hj.Rows.Count, 1).End(xlUp).Row + 1
.Range("a2:z" & .Cells(.Rows.Count, 1) _
.End(xlUp).Row + 1).Copy
hj.Cells(uF, 1).PasteSpecial xlPasteValues
hj.Cells(uF, 1).PasteSpecial xlPasteFormats


espero te sirva

un saludo
Ivan

ok

muchas gracias de inmediato lo aplico


"Ivan" escribió en el mensaje
news:
hola Juan

quiero que estos datos se copien como valores, con los formatos,

es decir, el pegado especial de formatos, y el pegado especial de
valores<<<

cambia toda esta parte del codigo =>

.Range("a2:z" & .Cells(.Rows.Count, 1) _
.End(xlUp).Row + 1).Copy hj.Cells(hj.Rows _
.Count, 1).End(xlUp).Offset(1)


por esto otro =>

Dim uF As Long
uF = hj.Cells(hj.Rows.Count, 1).End(xlUp).Row + 1
.Range("a2:z" & .Cells(.Rows.Count, 1) _
.End(xlUp).Row + 1).Copy
hj.Cells(uF, 1).PasteSpecial xlPasteValues
hj.Cells(uF, 1).PasteSpecial xlPasteFormats


espero te sirva

un saludo
Ivan

muchas gracias, si me esta funcionando...

pero, al momento de cerrar cada uno de los archivos, me manda el mensaje de
que hay mucha informacion en el portapapeles, que si deseo guardarla o
eliminarla

hay forma de que se elimine la informacion del portapapeles, para que no
salga este mensaje.

Gracias.



"Ivan" escribió en el mensaje
news:
hola Juan

quiero que estos datos se copien como valores, con los formatos,

es decir, el pegado especial de formatos, y el pegado especial de
valores<<<

cambia toda esta parte del codigo =>

.Range("a2:z" & .Cells(.Rows.Count, 1) _
.End(xlUp).Row + 1).Copy hj.Cells(hj.Rows _
.Count, 1).End(xlUp).Offset(1)


por esto otro =>

Dim uF As Long
uF = hj.Cells(hj.Rows.Count, 1).End(xlUp).Row + 1
.Range("a2:z" & .Cells(.Rows.Count, 1) _
.End(xlUp).Row + 1).Copy
hj.Cells(uF, 1).PasteSpecial xlPasteValues
hj.Cells(uF, 1).PasteSpecial xlPasteFormats


espero te sirva

un saludo
Ivan

hola juan

pero, al momento de cerrar cada uno de los archivos, me manda el mensaje de
que hay mucha informacion en el portapapeles, que si deseo guardarla o
eliminarla

prueba a poner esto =>

Application.CutCopyMode = False

justo detras de esto

hj.Cells(uF, 1).PasteSpecial xlPasteValues
hj.Cells(uF, 1).PasteSpecial xlPasteFormats
' aqui=>
Application.CutCopyMode = False


si sigue dandote el mensaje comentas, pues quizas sea el portapapeles
de Windows (la verdad es que no tengo mucha idea sobre el tema)

a ver si hay suerte

un saludo
Ivan