Jump to content

Concatenar 2 columnas y que me la pegue en la siguiente hoja en 1 columna


Recommended Posts

Hola a todos:

¿como podría concatenar la columna C y D de la siguiente macro de la cual su autor es Antoni, y que me la pegue en la hoja2 columna D?

Muchas gracias por su tiempo y su apoyo.

Bendiciones.


Sub Copiar()
Application.ScreenUpdating = False

Set H1 = Sheets("ORIGEN")
Set H2 = Sheets("DESTINO")

H2.Range("A1:Z50000").ClearContents
H2.Range("A1:Z50000").ClearFormats


fila = H2.Range("A" & Rows.Count).End(xlUp).Row '+ 1
'Range("A" & fila) = "Albaranes"
fila = fila '+ 1
ufila = H1.Range("A" & Rows.Count).End(xlUp).Row

H1.Range("B1:B" & ufila).Copy: H2.Range("A" & fila).PasteSpecial 'xlValues

 

H1.Range("C1:C" & ufila).Copy: QUE SE CONCATENE CON LA COLUMNA E Y LA PEGUE EN LA HOJA 2 COLUMNA D
H1.Range("E1:E" & ufila).Copy: H2.Range("D" & fila).PasteSpecial 'xlValues

End Sub

Edited by martincosme
Resaltar texto
Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×
×
  • Create New...

Important Information

Privacy Policy