Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #48654 Lokids addikt
    Új Válasz #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