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

  • #10755 Delila_1 veterán fess #10744
    Új Válasz #10755
    Ú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

    Delila_1

    veterán

    válasz fess #10744 üzenetére

    A működéshez tedd meg az alábbi lépéseket:
    Office gomb, Az Excel beállításai, Bővítmények. Balra lent a Kezelések közül Excel bővítmények, Ugrás, a kapott felsorolás első két bővítménye elé tegyél pipát, OK.

    Az első (gyűjtő) lapodhoz rendelve marad a

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then karbantart
    End Sub

    makró, ami figyeli az A1 cella változását.A modulba kerül a másik makró,

    Sub karbantart()
    Dim sorGy%, lap%, sorLap%, usorLap%
    sorGy% = 2
    Sheets(1).Select

    Rows("2:10000").ClearContents
    For lap% = 2 To Worksheets.Count
    Sheets(lap%).Select
    usorLap% = Sheets(lap%).Range("A50000").End(xlUp).Row
    For sorLap% = 2 To usorLap%
    If Cells(sorLap%, 5) + Cells(sorLap%, 6) <= Sheets(1).Cells(1) Then
    Range(Cells(sorLap%, 1), Cells(sorLap%, 6)).Copy Sheets(1).Cells(sorGy%, 1)
    sorGy% = sorGy% + 1
    End If
    Next
    Next
    Sheets(1).Select
    End Sub

    ami a kigyűjtést végzi. A számítás alapja, hogy az egyes lapokon az utolsó karbantartás idejéhez hozzáadja a következő karbantartáshoz szükséges napokat (E+F), és ha ez a nap kisebb, vagy egyenlő, mint a gyűjtő lap A1 cellájába írt dátum, akkor bemásolja az egyes alkatrészek adatait a lapokról az A:F oszlopokból.

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