Visual Basic - BUSCAR SUMA DE REFERENCIAS VERTICALES DE HOJAS CON MACROS

Option Explicit

Sub Buscar()

    Dim WS As Worksheet, Linea As Long, a As Long, Codigo As String

    Sheets("BASE").Select

    Range("B4:C31").Select:    Selection.ClearContents

    Range("A4").Select

    Linea = 4

    While Cells(Linea, 1) <> ""

        Codigo = Cells(Linea, 1)

        For Each WS In ThisWorkbook.Worksheets

            If WS.Name Like "DAT*" Then

               For a = 4 To 13

                   If Codigo = Sheets(WS.Name).Cells(a, 4) Then

                      Cells(Linea, 2) = Sheets(WS.Name).Cells(a, 5)

                      Cells(Linea, 3) = Sheets(WS.Name).Cells(a, 6) + Cells(Linea, 3)

                   End If

               Next

            End If

        Next

        Linea = Linea + 1

    Wend

End Sub