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


  • Crear macros Excel

  • Posts

    • Sustituye tu macro por esta: Sub Sumar() Dim fila As Byte Application.ScreenUpdating = False With Sheets("STOCK") .Range("H3:L7") = "" For I = 2 To .Range("A" & Rows.Count).End(xlUp).Row - 1 fila = 0 Select Case .Range("B" & I).Interior.Color Case Range("H3").Interior.Color: fila = 3 Case Range("H4").Interior.Color: fila = 4 Case Range("H5").Interior.Color: fila = 5 Case Range("H6").Interior.Color: fila = 6 End Select If fila > 0 Then .Range("I" & fila) = .Range("I" & fila) + .Range("F" & I) .Range("I7") = .Range("I7") + .Range("F" & I) .Range("J" & fila) = .Range("I" & fila) / 2.8 .Range("J7") = .Range("I7") / 2.8 .Range("L" & fila) = (.Range("L" & fila) + .Range("B" & I) * .Range("F" & I)) .Range("L7") = (.Range("L7") + .Range("B" & I) * .Range("F" & I)) End If Next For I = 3 To 7: .Range("K" & I) = .Range("L" & I) / .Range("I" & I): Next .Range("L3:L7") = "" End With End Sub  
    • @santravis perdona por la tardanza, voy muy mal de tiempo. Te dejo una idea para empezar... con unas puntualizaciones. No he resuelto las columnas que son combinacion de dos. Cuidado con los titulos de las columnas de la hoja ordenado, tienen al final un espacio y los nombres asi no son identicos a los homonimos de la hoja 1archivo consulta.xlsx archivo consulta.xlsx
    • muchísimas gracias! funciona perfecto y lo he probado adaptándolo a lo mío y también va bien. ;). Gracias!
    • Para la creación de la TC hay distintas formas, pero cada una es valida En efecto Jose, PBI es un gran universo pero Excel siempre será nuestro gran aliado, y es además un gran complemento de PBI   Saludos 
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy