Sziasztok!

Van egy alábbi makró részletem, amiben a legelső For ciklus nem lépdel. Sohasem lép rá a next-re. Azon belüli ciklusok simán végigfutnak ahogy kell. De a "For OpenSor" rész csak 1x fut le, pedig s_OpenlastRow 6000 körüli értékkel bír. (6000 soros az excel amit végig kéne nyálaznia). Ennek ellenére csak a legelső sort nézi végig. Mit nézek el?

For OpenSor = 4 To s_OpenLastRow
        s_OpenTorzsNum = Workbooks(OpenWBName).Worksheets(1).Cells(OpenSor, 2).Value
            For Sor = 4 To s_LastRow
                s_TorzsNum = Workbooks(MainWBName).Worksheets(s_wsName).Cells(Sor, 2).Value
                
                If s_TorzsNum = s_OpenTorzsNum Then
                
                    For OpenCol = 6 To s_OpenLastCol
                        s_FteNum = Workbooks(OpenWBName).Worksheets(1).Cells(2, OpenCol).Value
                        
                        For MainCol = 6 To s_MainLastCol
                            s_MainFteNum = Workbooks(MainWBName).Worksheets(s_wsName).Cells(2, MainCol).Value
                            
                                If s_MainFteNum = s_FteNum Then
                                    If Workbooks(OpenWBName).Worksheets(1).Range(Col_Letter(OpenCol) & OpenSor).Value <> "" Then
                                        CellaTartalom = Workbooks(MainWBName).Worksheets(s_wsName).Cells(Sor, MainCol).Value
                                        OpenCellaTartalom = Workbooks(OpenWBName).Worksheets(1).Cells(OpenSor, OpenCol).Value
                                        If CellaTartalom = "" Then
                                            Workbooks(MainWBName).Worksheets(s_wsName).Cells(Sor, MainCol).Value = OpenCellaTartalom & ";"
                                        Else
                                            PartString = Left(CellaTartalom, InStr(1, CellaTartalom, ";") - 1)
                                            Workbooks(MainWBName).Worksheets(s_wsName).Cells(Sor, MainCol).Value = PartString & ";" & OpenCellaTartalom
                                        End If
                                    End If
                                End If
                        Next MainCol
                    Next OpenCol
                
                End If
            Next Sor
    Next OpenSor
  

[ Szerkesztve ]

If you chase two rabbits you will lose them both.