Reemplazar valores cada X filas

[Excel_Táctico]

Muy buenas,

Tengo un archivo en el que necesito hacer reemplazos cada x filas, concretamente cada 5 filas.

En la primera hoja (proyectos)  tengo una tabla donde tengo los importes organizados en una sola fila por proyecto.

Sin embargo, lo que deseo es crear una base de datos donde la informacion se organice de la siguiente manera (pestaña 2 Data).

 

Lo que he estado haciendo dolarizar todas las referencias, copiar bloques de 5 filas unos debajo de otros y reemplazar manualmente el numero de fila, pero al tener muchas filas de proyectos se hace inviable hacer a mano. La idea es que cada vez que copie un bloque nuevo de 5 filas me sume 1 para que coja la siguiente fila de la hoja de proyectos.

No se si habra otra solucion mas facil y factible.

Muchas gracias por la colabroacion.

Saludos.

 

 

 

 

Macro reemplazar.xlsx

[Antoni]

Sub Transponer()
Application.ScreenUpdating = False
With Sheets("Data")
   .Cells.ClearContents
   .Range("A1") = "Proyecto"
   .Range("B1") = "Tipo control"
   .Range("C1") = "Importe"
End With
With Sheets("Proyectos")
   For x = 3 To .Range("A" & Rows.Count).End(xlUp).Row
      fila = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1
      Sheets("Data").Range("A" & fila).Resize(5, 1) = .Range("A" & x)
      .Range("B2:F2").Copy
      Sheets("Data").Range("B" & fila).PasteSpecial Paste:=xlValues, Transpose:=True
     .Range("B" & x).Resize(1, 5).Copy
      Sheets("Data").Range("C" & fila).PasteSpecial Paste:=xlValues, Transpose:=True
   Next
End With
End Sub

 

[Excel_Táctico]

Muchas gracias, funciona perfectamente.

Un saludo.

[Gerson Pineda]

En 16/12/2020 at 6:51 , Excel_Táctico dijo:

No se si habra otra solucion mas facil y factible.

Muchas gracias por la colabroacion.

Si la hay

Con Power Query, se hace en un solo paso y no importa cuanto vaya creciendo tus datos, solo daras actualizar y listo

Te adjunto el archivo, revisa y cualquier duda, pues nos avisas

 

Saludos 

Dinamizar columnas power query_GP.xlsx