[Resolved] VBA – bizonyos sorok kigyűjtése kétdimenziós tömbbe

Sziasztok!

Letöltöttem Pexcel.xlsm et és sajnos nekem nem működik.

Konkrétan a munka1 tartlma nekem nem szűrhető, és a munka2 lapon sem találtam sem képletet, sem vb utalást sem!

Delila ! tudnál esetleg segíteni, hogy nekem miért nem működik?

Előre is köszönöm válszod!

Üdv.: Norbi

Egyszerűsítettem a makrón. A tömbbe eredetileg fordítva tettem be az adatokat (sor, oszlop).

Sub TombosMasolas()
    Dim Tomb(), sor As Long, usor As Long, oszlop As Integer, uoszlop As Integer, tombsor As Integer
    
    usor = Cells.SpecialCells(xlLastCell).Row
    uoszlop = Cells.SpecialCells(xlLastCell).Column

    ReDim Tomb(usor, uoszlop)
    tombsor = 0
    For sor = 2 To usor
        If Cells(sor, 2) = 4 Then
            tombsor = tombsor + 1
            For oszlop = 1 To uoszlop
                Tomb(oszlop, tombsor) = Cells(sor, oszlop)
            Next
        End If
    Next
    
    Sheets(2).Range("A1" & ":M" & uoszlop) = Application.Transpose(Tomb)
End Sub