martincosme

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

Perfecto. Si es lo que necesita. Le agradezco Mucho mi estimado isidrod.

Gracias.

Buenos días, solicito su apoyo para pasar los datos de la columna A y B a txt, con el ancho fijo a una sola columna, con 2 decimales y a partir de la fila 3 
            
Y la columna C enseguida de los datos en txt, igual con ancho fijo.            
            
En total de columnas a txt serian 2    

Seria asi:

COLUMNA A   COLUMNA B          COLUMNA C                              

Anexo archivo.

Muchas gracias de antemano.

Saludos      

Pasar a TXT con ancho fijo.xls