Necesito concatenar una serie de celdas

Hola, estoy utilizando el siguiente procedimiento, para copiar los datos de una hoja en otra pero necesito concatenar una serie de seldas que están en la hoja factura y quiero que las pace a la hoja control en una sola celda las celdas que necesito concatenar tienen que ir así C35 Y I35 JUNTAS, ESPACIO, C36 Y I36, ASÍ SUCESIVAMENTE, el resultado me lo tiene que colocar en la columna 5
Sub copiandodatos()
Dim filaUlt As Long
filaUlt = Sheets("CONTROL").Range("A65536").End(xlUp).Row + 1
Sheets("CONTROL").Cells(filaUlt, 1) = Sheets("FACTURA").Range("I10")
Sheets("CONTROL").Cells(filaUlt, 2) = Sheets("FACTURA").Range("B9")
Sheets("CONTROL").Cells(filaUlt, 3) = Sheets("FACTURA").Range("G10")
Sheets("CONTROL").Cells(filaUlt, 4) = Sheets("FACTURA").Range("I48")
Sheets("CONTROL").Cells(filaUlt, 5) =
End Sub
Gracias por la respuesta

1 respuesta

Respuesta
1
Te dejo las instrucciones que te faltan. Tomé las ref de tu consulta anterior (xq cambian las ref en cada consulta? )
'hoja activa = FACTURA
Dim cadena As String
cadena = ""
Range("C32").Select
'recorro la col C desde fila 32 a 47 inclusive
While ActiveCell.Row <= 47
'guardo en la cadena la celda C, J y un espacio
    cadena = cadena & ActiveCell & ActiveCell.Offset(0, 7) & " "
    ActiveCell.Offset(1, 0).Select
Wend
Sheets("CONTROL").Cells(filaUlt, 5) = cadena

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas