Telefonszámunk: 1-472-0679

[Resolved] Túlóra lap kitöltés és nyomtatás

Kezdőlap › Fórumok › Excel témák › [Resolved] Túlóra lap kitöltés és nyomtatás

Topic Resolution: Resolved
5 bejegyzés megtekintése - 1-5 / 5
  • Szerző
    Bejegyzés
  • 2017-11-23-12:20 #3999
    wh999
    Felhasználó

      Üdv!

      Az alábbiakhoz kérnék egy kis segítséget.

      Adott egy beosztás táblázat, amiben szerepelnek túlórák is. Minden egyes túlóráról külön lapot kell kitölteni és kinyomtatni. Ezt szeretném automatizálni a következők szerint.

      A Beosztás munkalapon találhatók a túlórák T1 és T2 jelzéssel. T1 jelenti a nappalos, T2 pedig az éjszakás túlórákat.

      A Túlóra munkalap B oszlopát kell kitölteni azokon a napokon, ahol T1, és T2 szerepel. Az Azonosító és a Beosztás celláknak adtam egy-egy FKERES függvényt, B1 mező pedig kapott egy legördülő listát. A dátum résznél szükséges lenne a napszak megkülönböztetése is: pl. 2017. 12. 01. nappal illetve 2017. 12. 04. éjszaka.

      Jelen esetben 5 db lap kitöltése és nyomtatása szükséges: 2 db nappalos, és 3 db éjszakás. Ezt szeretném megoldani egy mágikus Túlóra nyomtatás gombbal. 🙂

      A segítséget előre is köszönöm!

      2017-11-23-12:26 #4000
      wh999
      Felhasználó

        Úgy tűnik telefonról nem ment el a melléklet.

        Attachments:
        You must be logged in to view attached files.
        2017-11-23-15:09 #4002
        delila
        Felhasználó

          Szia!

          Csatolom a makróbarátként mentett fájlodat.
          Nincs mágikus gomb, hanem a B1-ben kiválasztva a nevet indul a laphoz rendelt eseményvezérelt makró. Kitölti a B4:C4 cellákat (ha van a kiválasztott dolgozónak túlórája az adott 7 napban), majd nyomtat.

          Delila

          Attachments:
          You must be logged in to view attached files.
          2017-11-30-14:37 #4038
          wh999
          Felhasználó

            Szia!

            Köszönöm, tökéletesen működik.
            A folyamat működése miatt dobtam össze ezt az egyszerűsített táblázatot, a valóságban egy kicsit más formátumba kell ezt átültetnem. A makró átírásában viszont kicsit megakadtam, a sor = Application.WorksheetFunction.Match(Cells(2), Sheets("MOST").Columns(5), 0) résznél a Cells(2)-nek milyen funkciója van? A futtatásnál 1004-es runtime error jön elő (Worksheet.Function osztály Match tulajdonsága nem érhető el). A mellékelt táblázat Elrendelő lapját kéne kitölteni, a Túlmunka időpontja sorba kell illeszteni a dátumot. EP = 7:00 – 19:00-ig tartó műszak, eP pedig a 19:00 – 7:00-ig tartó műszak. Ezeket a makróban átírtam, de valami még hibádzik.
            Tudnál ennek átírásában segíteni? Köszönöm.

            Attachments:
            You must be logged in to view attached files.
            2017-11-30-16:34 #4040
            delila
            Felhasználó

              A Cells(2) a B1 cella címe. Nem lehet egy makrót ráhúzni egy másik feladatra. 🙂

              Csatolom a füzetet. A 2. lap B11 és F11 celláinak a módosulására írja be a makró a megfelelő adatokat. Ha bővíteni akarod, másold az A:C oszlopokat, majd bővítsd ki a
              If Target.Address = "$B$11" Or Target.Address = "$F$11" Then
              sort az új címekkel.

              Attachments:
              You must be logged in to view attached files.
            • Szerző
              Bejegyzés
            5 bejegyzés megtekintése - 1-5 / 5
            • Be kell jelentkezni a hozzászóláshoz.