Új hozzászólás Aktív témák

• #48654 Lokids addikt

  Új Válasz 2022-03-08 09:43:46 #48654

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Lokids

  addikt

  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
  

Új hozzászólás Aktív témák