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

  • #49974 istvankeresz aktív tag
    Új Válasz #49974
    Ú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

    istvankeresz

    aktív tag

    Üdv!

    Tesztelem az alábbi kódrészletet, de ha a feltétel a ciklusban másodszor is igaz, akkor az első igaz feltételhez kapcsolódó értéket másolja át és nem a második körben igaz feltételhez kapcsolódóét. Variálgattam, de nem jutottam előre, így a "rosszul" működőt másolom be ide. Esetleg ötlet valakinek?

    lr = Sheets(ComboBox5.Value).Range("E" & Rows.Count).End(xlUp).Row + 1
            For Each ws In ThisWorkbook.Worksheets
                For Each cell In ThisWorkbook.Sheets(ws.Name).Range("K2:K200")
                        If cell.Value Like "2023.01*" Then
                            ActiveWorkbook.Sheets(ComboBox5.Value).Range("B" & lr) = ThisWorkbook.Sheets(ws.Name).Range("A2")
                            ActiveWorkbook.Sheets(ComboBox5.Value).Range("C" & lr) = ThisWorkbook.Sheets(ws.Name).Range("B2")
                            ActiveWorkbook.Sheets(ComboBox5.Value).Range("D" & lr) = ThisWorkbook.Sheets(ws.Name).Range("M2")
                            ActiveWorkbook.Sheets(ComboBox5.Value).Range("F" & lr) = ThisWorkbook.Sheets(ws.Name).Range("L2")
                            ActiveWorkbook.Sheets(ComboBox5.Value).Range("G" & lr) = ThisWorkbook.Sheets(ws.Name).Range("N2")
                            ActiveWorkbook.Sheets(ComboBox5.Value).Range("H" & lr) = ThisWorkbook.Sheets(ws.Name).Range("O2")
                            ActiveWorkbook.Sheets(ComboBox5.Value).Range("I" & lr) = ThisWorkbook.Sheets(ws.Name).Range("P2")
                            ActiveWorkbook.Sheets(ComboBox5.Value).Range("E" & lr) = cell.Value: lr = lr + 1
                        End If
                 Next cell
            Next ws

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