Duda macros Excel
Necesito una macro que me ayude con lo siguiente...
Tengo una hoja de excel con la siguiente estructura:
A B C D
1 Cliente Dato1 Dato2 Dato 3
2
3
4
5 Cliente2 Dato1 Dato 2 Dato 3
6
7
8
Así consecutivamente
Lo que quiero es poner el dato 2 y dato 3 debajo del dato uno de cada cliente, mi problema es que tengo 2500 clientes en la tabla.
Mi segunda pregunta es Como hago para rellenar con el mismo nombre de cliente la fila A2, A3 y A4 y así sucesivamente con los 2500 clientes.
Espero me puedan ayudar, saludos!
Tengo una hoja de excel con la siguiente estructura:
A B C D
1 Cliente Dato1 Dato2 Dato 3
2
3
4
5 Cliente2 Dato1 Dato 2 Dato 3
6
7
8
Así consecutivamente
Lo que quiero es poner el dato 2 y dato 3 debajo del dato uno de cada cliente, mi problema es que tengo 2500 clientes en la tabla.
Mi segunda pregunta es Como hago para rellenar con el mismo nombre de cliente la fila A2, A3 y A4 y así sucesivamente con los 2500 clientes.
Espero me puedan ayudar, saludos!
1 respuesta
Respuesta de neicos
1
Perdona por la demora pero el tiempo ando escaso.
Lo que dice usted, ¿siempre los datos van cada 4 filas? ¿El cliente 1 empieza en la fila 1 el cliente 2 en la 8 el cliente 3 en la 12... así o hay clientes que tienen más de 3 datos?
Lo que dice usted, ¿siempre los datos van cada 4 filas? ¿El cliente 1 empieza en la fila 1 el cliente 2 en la 8 el cliente 3 en la 12... así o hay clientes que tienen más de 3 datos?
Hola!
Gracias por la atención... Efectivamente los datos van por intervalos, similares...
El cliente 1 en la celda 1
El cliente 2 en la celda 5
El cliente 3 en la celda 9
Siempre dejando 3 espacios abajo de cada Cliente.
Quedo en espera de tu ayuda...
Saludos!
Gracias por la atención... Efectivamente los datos van por intervalos, similares...
El cliente 1 en la celda 1
El cliente 2 en la celda 5
El cliente 3 en la celda 9
Siempre dejando 3 espacios abajo de cada Cliente.
Quedo en espera de tu ayuda...
Saludos!
El código de la macro es el siguiente:
cuen = Range("A" & Cells.Rows.Count).End(xlUp).Row
For i = 1 To cuen Step 4
Range(Cells(i, 1), Cells(i, 1)).Copy
Range(Cells(i + 1, 1), Cells(i + 1, 1)).Select
ActiveSheet.Paste
Range(Cells(i + 2, 1), Cells(i + 2, 1)).Select
ActiveSheet. Paste
Range(Cells(i, 3), Cells(i, 3)).Cut
Range(Cells(i + 1, 2), Cells(i + 1, 2)).Select
ActiveSheet.Paste
Range(Cells(i, 4), Cells(i, 4)).Cut
Range(Cells(i + 2, 2), Cells(i + 2, 2)).Select
ActiveSheet.Paste
Next
Msgbox "Proceso finalizado"
Ya lo he comprobado y funciona bien.
Valorra mi respuesta.
cuen = Range("A" & Cells.Rows.Count).End(xlUp).Row
For i = 1 To cuen Step 4
Range(Cells(i, 1), Cells(i, 1)).Copy
Range(Cells(i + 1, 1), Cells(i + 1, 1)).Select
ActiveSheet.Paste
Range(Cells(i + 2, 1), Cells(i + 2, 1)).Select
ActiveSheet. Paste
Range(Cells(i, 3), Cells(i, 3)).Cut
Range(Cells(i + 1, 2), Cells(i + 1, 2)).Select
ActiveSheet.Paste
Range(Cells(i, 4), Cells(i, 4)).Cut
Range(Cells(i + 2, 2), Cells(i + 2, 2)).Select
ActiveSheet.Paste
Next
Msgbox "Proceso finalizado"
Ya lo he comprobado y funciona bien.
Valorra mi respuesta.
