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
Respuesta de Dante Amor
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
thank Youu me freind - Albert Dhefin