Elektroda.pl
Elektroda.pl
X

Search our partners

Find the latest content on electronic components. Datasheets.com
Elektroda.pl
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

[Solved] VBA Excel automatyczne dodanie daty i zmiany pracy w systemie 3- zmianowym

rysio.rudnik 17 Feb 2018 19:27 1710 4
  • #1
    rysio.rudnik
    Level 5  
    Witam!
    Zna może ktoś sposób aby przypisać makro lub funkcję aby w momencie "kliknięcia" przycisku automatycznie wypełniało/ aktualizowało komórkę C2 i wpisało datę rozpoczęcia zmiany roboczej a w komórce D2 wpisało zmianę roboczą (I II, III) jaka jest w momencie wstawiania raportu?

    I zmiana trwa od 06:00 do 14:00
    I zmiana trwa od 14:00 do 22:00
    I zmiana trwa od 22:00 do 06:00

    Chodzi dokładnie o to aby po kliknięciu przycisku o godzinie np. 03:54 dnia 17.02.2018 jako zmianę w D2 wpisało III a jako datę wstawienia w komórkę C2 wstawiło 16.02.2018 zmiast 17.02 ponieważ zmiana nocna zaczeła się 16.02 i to jest data rozpoczęcia nocki (zmiana III z 16.02 trwa do godziny 05:59 17.02)

    Mam nadzieję, że to co napisałem jest zrozumiałe.

    Bardzo proszę o pomoc jeśli jest na to jakiś "sposób". Wypełniam na zakończenie zmiany kilka różnych raportów i o ile dla 1 i 2 zmiany datę można szybko wstawić przez ctrl+: o tyle dla nocek trzeba każdą datę poprawiać i jeszcze wpisywać zmianę...
    [28-30.06.2022, targi] PowerUP EXPO 2022 - zasilanie w elektronice. Zarejestruj się za darmo
  • Helpful post
    #2
    JRV
    VBA, Excel specialist
    Code: vb
    Log in, to see the code
  • #3
    rysio.rudnik
    Level 5  
    Działa super, wielkie dzięki :-)

    Dodano po 2 [godziny] 45 [minuty]:

    A jak bym w C2 wpisał =TERAZ() i ustawił datę aby miała format 2017-11-11 to czy udało by się ten sam efekt (czyli przypisanie zmiany) uzyskać automatycznie w momencie otwierania pliku tak abym nie musiał podczepiać makra pod przycisk?
  • Helpful post
    #4
    mar-ilo
    Level 11  
    Wystarczy dodać Private Sub Workbook_Open() i kod wpsać w "ThisWorkook jak na załączonym obrazku

    VBA Excel automatyczne dodanie daty i zmiany pracy w systemie 3- zmianowym
  • #5
    rysio.rudnik
    Level 5  
    Właśnie o to chodziło, dzięki :-)