2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

!! SZERVERLEÁLLÁS, ADATVESZTÉS INFORMÁCIÓK !!
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
  • 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

  • #10646 Delila_1 veterán fess #10635
    Új Válasz #10646
    Ú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 #10635 üzenetére

    Az két makró ezt csinálja:
    Ha az első lap A1 cellájába beírod a dátumot, automatikusan indul a kigyűjtés erre a lapra, A2-től kezdődően. A beírás indítja az első makrót, ami nekilódítja a másikat.

    Az utóbbi végigszalad a másodiktól az utolsó lapig. Minden lapon végignézi az A oszlopban tárolt dátumokat soronként (amik feltehetően az utolsó karbantartás dátumai).
    Ahol az első lap A1-es dátumánál 90 nappal, vagy annál régebbi dátumot talál, a sor első 15 oszlopát (A:O oszlopok) átmásolja az első lapra egymás alá.

    Ahhoz, hogy automatikusan induljon a kért dátum beírásakor, 2 makró szükséges.
    Az elsőt a gyűjtő (első) laphoz rendeld, a másodikat modulba.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then karbantart
    End Sub
    .
    Sub karbantart()
    Dim sorGy%, lap%, sorLap%, usorLap%
    sorGy% = 2
    Rows("2:10000").ClearContents
    For lap% = 2 To Worksheets.Count
    Sheets(lap%).Select
    usorLap% = Sheets(lap%).Range("A65000").End(xlUp).Row
    For sorLap% = 2 To usorLap%
    If Sheets(1).Cells(1) - Sheets(lap%).Cells(sorLap%, 1) >= 90 Then
    Range(Cells(sorLap%, 1), Cells(sorLap%, 15)).Copy Sheets(1).Cells(sorGy%, 1)
    sorGy% = sorGy% + 1
    End If
    Next
    Next
    Sheets(1).Select
    End Sub

    Ha több oszlopod van, mint 15, a
    Range(Cells(sorLap%, 1), Cells(sorLap%, 15)).Copy Sheets(1).Cells(sorGy%, 1)
    sorban írd át a 15-öt.

  • #10636 perfag aktív tag fess #10635
    Új Válasz #10636
    Ú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

    perfag

    aktív tag

    válasz fess #10635 üzenetére

    Mondjuk nem tudom mekkora alkatrész bázissal dolgozol, de meg lehet kerülni a makrót. Először is a dátumok közötti különbséget kell kezelni, innen el lehet indulni:
    Dátumok és időpontok használata az Excel programban
    "az első lapra azoknak az alkatrészeknek a nevét kiírná amik karbantartásra szorulnak." ehhez egy gyűjtögető makró kellene, de minek. Szerintem meg lehetne oldani, hogy az első lapon egy oszlopban megjelennek az alkatrésznevek, mellettük meg az eltelt idő. Vagy egyszerű sorba rendezéssel kigyűjtheted a szükséges alkatrészeket, vagy feltételes formázással mondjuk piros lesz azoknak az alkatrészeknek a neve ahol matatni kell.

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