Please help with excel

[mosteanuv]

Hey there guys, I would really like some help because i don't even know how to search for this online.

I would like for the excel to add automatically in the last sheet called "Elevi" in the table called "Cristian Tanase" under "Elev" if he detects "Cristian Tanase" selected from drop down menu in sheets "01" to "31" under the table called "Grupe" under "Elev" and the values that are after it for "Numerar" and "Cash"


So to better understand we write the daily reports on how much kids paid for each coach and I would like the last sheet to extract the names and sums for each coach to have a monthly report.

Thank you very much

 

[mosteanuv]

Figured out how to make a module in VBA:

Sub CopyOverBudgetRecords()

    Dim StatusCol As Range
    Dim Status As Range
    Dim PasteCell As Range
    Dim ws As Worksheet
    Dim wsDestination As Worksheet
    Dim wsName As Variant
   
    ' Set destination worksheet (Sheet36 in this case)
    Set wsDestination = ThisWorkbook.Sheets("Elevi")

    ' Loop through the sheets
    For Each wsName In Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31")
        On Error Resume Next ' Bypass any error
        Set ws = ThisWorkbook.Sheets(wsName)
        On Error GoTo 0 ' Re-enable error checking

        If Not ws Is Nothing Then
            ' Set the range in Column B where your criteria will be checked
            Set StatusCol = ws.Range("B5:B25")
           
            For Each Status In StatusCol
               
                ' Check if the destination sheet has empty space in column B for pasting
                If wsDestination.Range("B6") = "" Then
                    Set PasteCell = wsDestination.Range("B6")
                Else
                    ' Find the next available row in column B
                    Set PasteCell = wsDestination.Cells(wsDestination.Rows.Count, "B").End(xlUp).Offset(1, 0)
                End If
               
                ' Copy values from Columns C, D, E if criteria in Column B is met
                If Status = "Cristian Tanase" Then
                    ' Copy only the values from Columns C, D, E (3 columns to the right of Column B)
                    Status.Offset(0, 1).Resize(1, 3).Copy
                    PasteCell.PasteSpecial Paste:=xlPasteValues
                End If

            Next Status
        End If
    Next wsName

    ' Clear the clipboard to avoid Excel pop-up message
    Application.CutCopyMode = False

End Sub