Macro de excel, necesito info!

Soy paula y vi la siguiente macro, necesitaría ayuda para poder modificar la macro, ¿en realidad necesito hacer lo mismo que te consultaron pero las columnas con los datos están en una hoja distinta de la columna que recopila . Me podrías ayudar por favor?'

Sub unir_columnas()
'Por.DAM
ci = Columns("C").Column 'columna inicial a unir
cf = Columns("O").Column 'columna final a unir
cd = Columns("Z").Column 'columna unión
f = 1 'fila inicial de datos
For i = ci To cf
    uf = Cells(Rows.Count, i).End(xlUp).Row
    ud = Cells(Rows.Count, cd).End(xlUp).Row + 1
    Range(Cells(f, i), Cells(uf, i)).Copy Cells(ud, cd)
Next
End Sub

1 Respuesta

Respuesta
3

Cambia en la macro la hoja origen y la hoja destino por los nombres de tus hojas

Sub unir_columnas()
  'Por.Dante Amor
  Dim ci As Long, cf As Long, cd As Long
  Dim sh1 As Worksheet, she As Worksheet
  '
  Set sh1 = Sheets("Hoja1")   'hoja origen de datos
  Set sh2 = Sheets("Hoja2")   'hoja destino
  '
  ci = Columns("C").Column 'columna inicial a unir
  cf = Columns("O").Column 'columna final a unir
  cd = Columns("Z").Column 'columna unión
  f = 2 'fila inicial de datos
  For i = ci To cf
    uf = sh1. Cells(Rows. Count, i).End(xlUp).Row
    ud = sh2. Cells(Rows. Count, cd).End(xlUp).Row + 1
    sh1. Range(sh1. Cells(f, i), sh1. Cells(uf, i)). Copy sh2. Cells(ud, cd)
  Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas