Pegar varias celdas en colummna
Tengo la siguiente. Consulta tengo unos números en la columna "A", "B", "c"
Y deseo pegar en la columna "D"
Estos datos tu puedes hacer una macro que copie la columna A la pegue
en DE luego copie la columna B y la pegue
en DE, pero después del ultimo datos pegado desde la columna A y así sucesivamente
Gracias
Y deseo pegar en la columna "D"
Estos datos tu puedes hacer una macro que copie la columna A la pegue
en DE luego copie la columna B y la pegue
en DE, pero después del ultimo datos pegado desde la columna A y así sucesivamente
Gracias
1 respuesta
Respuesta de cmcaminam
1
Si no he entendido mal, lo que tienes es lo siguiente:
A1 =1
B1 =2
C1 =3
Quieres obtener en "D1" lo siguiente:
D1 =123
Para hacer esto, solamente tienes que incluir la siguiente fórmula en "D1":
D1 =CONCATENAR(+A1;+B1;+C1)
Esto también podría hacerse por código VBA de la siguiente forma:
SUPUESTOS
**********
Supongamos que tienes los datos en las columnas "A", "B" y "C", desde la línea 2 hasta la línea 20 ("A1",..,"A20";"B1".."B20";"C1".."C20")
CODIGO VBA
***********
Sub Agregarnumeros()
maximo = 19
Range("D2").Select
For i = 1 To maximo
ValorA = ActiveCell.Offset(0, -3).Value
ValorB = ActiveCell.Offset(0, -2).Value
ValorC = ActiveCell.Offset(0, -1).Value
ActiveCell.Offset(0, 0).Value = ValorA & ValorB & ValorC
ActiveCell.Offset(1, 0).Activate
Next i
End Sub
Espero que alguna de las dos métodos que te he expuesto te solucionen la situación.
Si no entiendes algún punto, solicítame una aclaración. La contestaré a la mayor brevedad posible. En caso contrario, te ruego que finalices la pregunta.
Un abrazo!
César M.C.M.
A1 =1
B1 =2
C1 =3
Quieres obtener en "D1" lo siguiente:
D1 =123
Para hacer esto, solamente tienes que incluir la siguiente fórmula en "D1":
D1 =CONCATENAR(+A1;+B1;+C1)
Esto también podría hacerse por código VBA de la siguiente forma:
SUPUESTOS
**********
Supongamos que tienes los datos en las columnas "A", "B" y "C", desde la línea 2 hasta la línea 20 ("A1",..,"A20";"B1".."B20";"C1".."C20")
CODIGO VBA
***********
Sub Agregarnumeros()
maximo = 19
Range("D2").Select
For i = 1 To maximo
ValorA = ActiveCell.Offset(0, -3).Value
ValorB = ActiveCell.Offset(0, -2).Value
ValorC = ActiveCell.Offset(0, -1).Value
ActiveCell.Offset(0, 0).Value = ValorA & ValorB & ValorC
ActiveCell.Offset(1, 0).Activate
Next i
End Sub
Espero que alguna de las dos métodos que te he expuesto te solucionen la situación.
Si no entiendes algún punto, solicítame una aclaración. La contestaré a la mayor brevedad posible. En caso contrario, te ruego que finalices la pregunta.
Un abrazo!
César M.C.M.
Podrías finalizar la pregunta, por favor. Otros usuarios no pueden seguir preguntándome. Una de las preguntas sin finalizar es la tuya.
Espero que entiendas la situación y liberes mi buzón de preguntas pendientes de finalizar.
Espero que entiendas la situación y liberes mi buzón de preguntas pendientes de finalizar.
