Foros del Web » Soporte técnico » Ofimática »

Copiar conjunto de datos de una columna a otra

Estas en el tema de Copiar conjunto de datos de una columna a otra en el foro de Ofimática en Foros del Web. Bueno necesito copiar los datos de cada celda de una columna a una nueva columna, que los datos de cada celda de la primer columna ...
  #1 (permalink)  
Antiguo 23/06/2011, 19:39
 
Fecha de Ingreso: junio-2011
Mensajes: 2
Antigüedad: 12 años, 9 meses
Puntos: 0
Copiar conjunto de datos de una columna a otra

Bueno necesito copiar los datos de cada celda de una columna a una nueva columna, que los datos de cada celda de la primer columna separados por ";" en la columna nueva, y que haya un máximo de 49 celdas de la primer columna en cada celda de la nueva columna.

Por ejemplo:
Suponiendo que el número máximo de celdas es de 2.

Ci Cf

1 2 3
A as as;ds
B ds fd;re
C fd po;uy
D re hg;kj
E po
F uy
G hg
H kj

Columna inicial = Ci
Columna final = Cf



PD: se me hizo un re quilombo para explicar lo que necesitaba, espero que con el ejemplo se aclare un poco más.
  #2 (permalink)  
Antiguo 24/06/2011, 07:10
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
De acuerdo Copiar conjunto de datos de una columna a otra

Hola! StopTech. Incorpora la siguiente macro:
Código PHP:
Sub AgruparCeldas()
Dim ii As Long
Const qMax As Byte 49
Const myOffset As Byte 4

With WorksheetFunction

For ii 0 To .Ceiling(Selection.Count qMax1) - 1
  Selection
(ii).Offset(, myOffset) = _
    Join
(.Transpose(Selection(qMax ii).Resize(qMax)), ";")
Next ii

If Selection.Count Mod qMax 0 Then
  With Selection
(ii).Offset(, myOffset)
    .
Value Evaluate("left(" _
      
.Address ", len(" _
      
.Address ") - " _
      qMax 
- (Selection.Count Mod qMax) & ")")
  
End With
End 
If

End With
End Sub 
Y procederás así:
a) Selecciona el rango en cuestión (por ejemplo A2:A100)
b) Y tras seleccionar el rango, ejecuta la macro.

Verás lo pedido con un desplazamiento lateral de 4 columnas las que, obviamente, puedes modificar a tu conveniencia.

¿Es lo que estabas buscando?
Saludos, Cacho.

Última edición por mrocf; 24/06/2011 a las 07:34
  #3 (permalink)  
Antiguo 24/06/2011, 12:51
 
Fecha de Ingreso: junio-2011
Mensajes: 2
Antigüedad: 12 años, 9 meses
Puntos: 0
Respuesta: Copiar conjunto de datos de una columna a otra

Si, exactamente eso es lo que estaba buscando.

Muchas gracias Cacho, sos un groso!
  #4 (permalink)  
Antiguo 24/06/2011, 17:09
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
Respuesta: Copiar conjunto de datos de una columna a otra

Fue un gusto y hasta la próxima, Cacho.

Etiquetas: columna, conjunto
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:39.