I found how to consolidate first row, but now I have just a new problem to loop this script...
So in sheet "PROD" each 11 rows, we have a new table with another item. I would like to loop this script each 11 rows
I have got a idea ?
'--------------------------------------------------------------------------------------------------------------------------
'Consolidation Hours
'-------------------------------------------------------------------------------------------------------------------------
For Each Cel In Sheets("PROD").Range("A1:Q1")
If Cel = Sheets("Matrice").Range("BJ1") Then C = Cel.Column: Exit For
Next
If C > 0 Then
For Each Cel1 In Sheets("Matrice").Range("BK1:BT1")
For Each Cel In Sheets("PROD").Range("A2:A11")
If Left(Cel, Len(Cel1)) = Cel1 Then L = Cel.Row: Exit For
Next
Sheets("Matrice").Cells(2, Cel1.Column) = Sheets("PROD").Cells(L, C)
Next
End If
Bookmarks