Excel - agrupar datos en 1 columna

agrupar datos en 1 columna

Publicado por Diego (41 intervenciones) el 05/10/2022 21:32:30

Estimado Foro, gracias de antemano por su atención y ayuda

deseo poder agrupar datos que tengo en varias columnas en 1 sola......nose si me hago explicar

tengo 2 tpos de datos IMEI (columnas A,C,E,G) - ICC (B-D,F,H),,,,,lo que necesito es apare a un lado o en otra pestaña me despligue en un a columna todos los IMEI y en otra todas las ICC ,,,,adjunto archivo con el que trabajo

Inventario-Bodegas-Externas.rar(46,3 KB)

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 4.908

agrupar datos en 1 columna

Publicado por Antoni Masana (2478 intervenciones) el 06/10/2022 16:12:23

Esta es la macro para la copia.

Option Explicit

Sub Copiar_Nueva_Hoja()

    Dim Colu As Byte, Fila_Orig As Long, Fila_Dest As Long

    Fila_Dest = 2

    For Colu = 1 To 7 Step 2

        Fila_Orig = 3

        While Cells(Fila_Orig, Colu) <> Empty Or Cells(Fila_Orig, Colu + 1) <> Empty

            Sheets("Data Entry").Cells(Fila_Dest, "A") = Cells(Fila_Orig, Colu)

            Sheets("Data Entry").Cells(Fila_Dest, "B") = Cells(Fila_Orig, Colu + 1)

            Sheets("Data Entry").Cells(Fila_Dest, "C") = Cells(1, Colu)

            Fila_Orig = Fila_Orig + 1

            Fila_Dest = Fila_Dest + 1

        Wend

        MsgBox Fila_Dest & " - " & Colu & " - " & Cells(1, Colu)

    Next

End Sub

Adjunto libro con el resultado de la macro y la macro.

Saludos.
\\//_

Inventario-Bodegas-Externas_Macro.zip(501,1 KB)

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

agrupar datos en 1 columna

Publicado por Diego (41 intervenciones) el 06/10/2022 18:23:15

Gracias Antoni, es lo que busco...
porfavor al final veo que se repite de forma constante la primera serie como se corrige eso??

Captura-de-pantalla-2022-10-06-112255

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

agrupar datos en 1 columna

Publicado por Antoni Masana (2478 intervenciones) el 06/10/2022 19:21:17

Si no quieres los datos de la columna C elimina la línea 12

Option Explicit

Sub Copiar_Nueva_Hoja()

    Dim Colu As Byte, Fila_Orig As Long, Fila_Dest As Long

    Fila_Dest = 2

    For Colu = 1 To 7 Step 2

        Fila_Orig = 3

        While Cells(Fila_Orig, Colu) <> Empty Or Cells(Fila_Orig, Colu + 1) <> Empty

            Sheets("Data Entry").Cells(Fila_Dest, "A") = Cells(Fila_Orig, Colu)

            Sheets("Data Entry").Cells(Fila_Dest, "B") = Cells(Fila_Orig, Colu + 1)

       '     Sheets("Data Entry").Cells(Fila_Dest, "C") = Cells(1, Colu)

            Fila_Orig = Fila_Orig + 1

            Fila_Dest = Fila_Dest + 1

        Wend

        MsgBox Fila_Dest & " - " & Colu & " - " & Cells(1, Colu)

    Next

End Sub

Saludos.
\\//_

Valora esta respuesta

Comentar

agrupar datos en 1 columna

Publicado por Diego (41 intervenciones) el 06/10/2022 19:35:57

No Antoni la columna C esta perfecto, lo que pasa es que se repiten los datos a partir de la fila 1567 hacia abajo
Captura-de-pantalla-2022-10-06-123515

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

agrupar datos en 1 columna

Publicado por Antoni Masana (2478 intervenciones) el 06/10/2022 20:11:13

Era un fallo al hacer la macro que entro en un bucle infinito y no había visto la que ha liado.

Saludos.
\\//_

Inventario-Bodegas-Externas_Macro.zip(113,6 KB)

Valora esta respuesta

Comentar

agrupar datos en 1 columna

Publicado por Diego (41 intervenciones) el 06/10/2022 20:54:22

ok entiendo, voy a intentar solucionarlo y asignarle a un boton para correr la macro todos los dias

Valora esta respuesta

Comentar

agrupar datos en 1 columna

Publicado por Diego (41 intervenciones) el 06/10/2022 22:52:53

al correr la macro me salta un error como podria correr la macro todos los dias??? si los datos cambian un poco cada dia
gracias disculpa

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

agrupar datos en 1 columna

Publicado por Antoni Masana (2478 intervenciones) el 07/10/2022 16:49:24

Si los cambios mantiene el mismo número de filas o aumenta no hay problema, cuando disminuya si que sobran líneas y hay que borrarlas.

Option Explicit

Sub Copiar_Nueva_Hoja()

    Dim Colu As Byte, Fila_Orig As Long, Fila_Dest As Long

    Fila_Dest = 2

    For Colu = 1 To 7 Step 2

        Fila_Orig = 3

        While Cells(Fila_Orig, Colu) <> Empty Or Cells(Fila_Orig, Colu + 1) <> Empty

            Sheets("Data Entry").Cells(Fila_Dest, "A") = Cells(Fila_Orig, Colu)

            Sheets("Data Entry").Cells(Fila_Dest, "B") = Cells(Fila_Orig, Colu + 1)

       '     Sheets("Data Entry").Cells(Fila_Dest, "C") = Cells(1, Colu)

            Fila_Orig = Fila_Orig + 1

            Fila_Dest = Fila_Dest + 1

        Wend

        MsgBox Fila_Dest & " - " & Colu & " - " & Cells(1, Colu)

    Next

    ' ---&--- Limpia las filas que Sobran

    With Sheets("Data Entry")

        While .Cells(Fila_Dest, "A") <> Empty Or .Cells(Fila_Dest, "B") <> Empty

            .Cells(Fila_Dest, "A") = ""

            .Cells(Fila_Dest, "B") = ""

            Fila_Orig = Fila_Orig + 1

        Wend

    End With

end Sub

Envíame un pantallazo del error para solucionarlo.

Saludos.
\\//_

Valora esta respuesta

Comentar

agrupar datos en 1 columna

Publicado por Diego (41 intervenciones) el 07/10/2022 18:38:27

La columna de los IMEI sale perfecto, el problema es con las solumnas de los ICC
me sale este error

Inventario-Bodegas-Externas_Macro.rar(2,4 MB)

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

agrupar datos en 1 columna

Publicado por Antoni Masana (2478 intervenciones) el 07/10/2022 18:56:08

Arreglado.

Se tenia que ejecutar desde la hoja CAVs, ahora se puede ejecutar desde cualquier hoja.
He quitado los mensajes que eran para la prueba.

Option Explicit

Sub Copiar_Nueva_Hoja()

    Dim Colu As Byte, Fila_Orig As Long, Fila_Dest As Long

    Sheets("CAVs").Select

    Fila_Dest = 2

    For Colu = 1 To 7 Step 2

        Fila_Orig = 3

        While Cells(Fila_Orig, Colu) <> Empty Or Cells(Fila_Orig, Colu + 1) <> Empty

            Sheets("Data Entry").Cells(Fila_Dest, "A") = Cells(Fila_Orig, Colu + 1)

            Sheets("Data Entry").Cells(Fila_Dest, "B") = Cells(Fila_Orig, Colu + 1)

            Sheets("Data Entry").Cells(Fila_Dest, "C") = Cells(1, Colu)

            Fila_Orig = Fila_Orig + 1

            Fila_Dest = Fila_Dest + 1: DoEvents

        Wend

    Next

    ' ---&--- Limpia las filas que Sobran

    With Sheets("Data Entry")

        While .Cells(Fila_Dest, "A") <> Empty Or .Cells(Fila_Dest, "B") <> Empty

            .Cells(Fila_Dest, "A") = ""

            .Cells(Fila_Dest, "B") = ""

            Fila_Orig = Fila_Orig + 1: DoEvents

        Wend

    End With

End Sub

Saludos.
\\//_

Inventario-Bodegas-Externas_Macro_2.zip(99,2 KB)

Valora esta respuesta

Comentar

agrupar datos en 1 columna

Publicado por Diego (41 intervenciones) el 07/10/2022 22:12:36

Gracias !---..al parecer funciona muy bien
su ayuda es muy importante le agradezco y a la vez aprendo mas

Valora esta respuesta

Comentar

Devolver celda en blanco

Visualizar en textbox el valor de la ultima celda creada