Mover datos de fila a columna.
Hola.
Tengo una base de datos y quiero mover un dato de una fila a una columna.
Nombre porcentaje porcentaje del 70% porcentaje del 30%
antonio 70
antonio 30
Luis 70
manuel 70
manuel 70
manuel 30
Juan 30
Lo que necesito hacer es pasar las cantidades de 70 a la columna de 70% y las cantidades de 30 a la columna de 30%.
Nombre porcentaje porcentaje del 70% porcentaje del 30%
antonio 70 30
luis 70
manuel 70 30
manuel 70
juan 30
¿Cómo le puedo hacer? Cómo es más fácil, ¿con tablas dinámicas o con macros?
Les agradeceré mucho su ayuda porque son muchos datos.
Saludos.
Daniel
Tengo una base de datos y quiero mover un dato de una fila a una columna.
Nombre porcentaje porcentaje del 70% porcentaje del 30%
antonio 70
antonio 30
Luis 70
manuel 70
manuel 70
manuel 30
Juan 30
Lo que necesito hacer es pasar las cantidades de 70 a la columna de 70% y las cantidades de 30 a la columna de 30%.
Nombre porcentaje porcentaje del 70% porcentaje del 30%
antonio 70 30
luis 70
manuel 70 30
manuel 70
juan 30
¿Cómo le puedo hacer? Cómo es más fácil, ¿con tablas dinámicas o con macros?
Les agradeceré mucho su ayuda porque son muchos datos.
Saludos.
Daniel
Respuesta de Elsa Matilde
1
Entrá al Editor de macros (con Alt y F11), insertá un módulo y allí copiá la siguiente rutina:
Sub MOVIENDO()
'desarrollada por Elsamatilde
Range("B1").Select
'recorre la col B hasta encontrar una celda vacía, suponiendo el fin del rango
While ActiveCell.Value <> ""
'controla el valor: si es 70 lo mueve a la col C sino a la D
If ActiveCell.Value = 70 Then
ActiveCell.Cut Destination:=ActiveCell.Offset(0, 1)
ElseIf ActiveCell.Value = 30 Then
ActiveCell.Cut Destination:=ActiveCell.Offset(0, 2)
End If
'pasa a la fila sgte y repite el bucle
ActiveCell.Offset(1, 0).Select
Wend
Sub MOVIENDO()
'desarrollada por Elsamatilde
Range("B1").Select
'recorre la col B hasta encontrar una celda vacía, suponiendo el fin del rango
While ActiveCell.Value <> ""
'controla el valor: si es 70 lo mueve a la col C sino a la D
If ActiveCell.Value = 70 Then
ActiveCell.Cut Destination:=ActiveCell.Offset(0, 1)
ElseIf ActiveCell.Value = 30 Then
ActiveCell.Cut Destination:=ActiveCell.Offset(0, 2)
End If
'pasa a la fila sgte y repite el bucle
ActiveCell.Offset(1, 0).Select
Wend
