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!
1

1 Respuesta

28.475 pts. Analista de sistemas y Programador en:...
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?
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!
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.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas