Buenas tardes a Tod@s

como explico mas en detalle en el archiuvo que adjunto me giustaria que quedara como en el ejemplo

Gracias por vuestra colaboracion

prueba.xls

Hola:

Pues ha sido mas complicado de lo que parecía a simple vista:

Sub RepartirImportePorMuelle()


Dim Muelles() As Variant, Índice As Integer

Dim Importe As Currency, Celda As Range



Range("V2:AA" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents



For x = 2 To Range("A" & Rows.Count).End(xlUp).Row

   If Not Left(Range("B" & x), 6) = "Cuenta" Then

      ReDim Preserve Muelles(Índice)

      Muelles(Índice) = Left(Range("O" & x), 3)

      Índice = Índice + 1

   Else

      If Range("T" & x) <> "" Then

         Importe = Range("T" & x) / Range("O" & x)

         Debug.Print Importe; UBound(Muelles); Range("O" & x)

         For m = 0 To UBound(Muelles)

            For Each Celda In Range("V1:AA1")

               If Muelles(m) = Trim(Celda.Value) Then

                  Cells(x, Celda.Column) = Cells(x, Celda.Column) _

                                         + Importe

                  Exit For

               End If

            Next

         Next

      End If

      Índice = 0

   End If

Next



End Sub


Saludos



[/CODE]