Automaattinen päivämäärä?

Päivämäärä ongelma

Onko Exelissä mahdollista luoda kaavaa joka lisäisi soluun päivämäärän (ja ehkä myös ajan) sillä hetkellä kun syötän tietoja tyhjään soluun ja tuo päivämäärä jäisi siihen.

Yritin näin, mutta tuo NYT funktiohan muuttuu sitä mukaan kun kello käy, joten se ei käy.
=JOS(a2="";"";NYT())

6

3071

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • tietämättä tarpeitasi tossa alla yleisluontoinen esim.
      eli tsekataan A2 solua ja kun soluun syötetään arvo, niin soluun B2 tulee kellonaika. Tee soluun B2 sopiva solumuotoilu.
      Solun B2 arvo ei muutu, vaikka muut solut muuttusivatkin toisin kuin noilla volatile eli ei pysyvillä Excelin omilla funktioilla.
      Solun B2 arvo muuttuu vain siinä tapauksessa, kun solu A2 on tyhjennetty ja uudelleen syötetään arvo siihen

      taulukon moduuliin...

      Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Range("A2"), Target) Is Nothing Then
      If Not Range("A2") = "" Then
      Range("B2") = Now()
      End If
      End If
      End Sub

      Keep EXCELing
      @Kunde

      • Päivämäärä ongelma

        Juuri tuollaista etsinki. Tuo koodin kirjoittaminen ei ole ollenkaan tuttua, mutta sain toimimaan.

        Saanko tuota koodia jotenkin muokkaamalla saman toiminnon myös muihin ruutuihin.
        - Eli siis jos syötän soluihin A1-A200 jotain niin soluihin B1-B200 tulee tuo päivämäärä ja aika
        - Ja tarkoitan siis, että sitä mukaan kun soluihin noita tietoja tulee


      • Päivämäärä ongelma kirjoitti:

        Juuri tuollaista etsinki. Tuo koodin kirjoittaminen ei ole ollenkaan tuttua, mutta sain toimimaan.

        Saanko tuota koodia jotenkin muokkaamalla saman toiminnon myös muihin ruutuihin.
        - Eli siis jos syötän soluihin A1-A200 jotain niin soluihin B1-B200 tulee tuo päivämäärä ja aika
        - Ja tarkoitan siis, että sitä mukaan kun soluihin noita tietoja tulee

        lisäsin malliksi aikamuotoilun, jota on helppo muotoilla...

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        If Not Intersect(Range("A1:A200"), Target) Is Nothing Then
        If Not Target = "" Then
        Target.Offset(0, 1) = Format(Now(), "dd.mm.yyyy hh:mm:ss")
        End If
        End If
        End Sub


    • digipikseli

      Jos haluat muuttaa esim täytettväksi ruuduiksi F sarakkeen solut - muuta kohtaa Target.Offset(0, 1) -> Target.Offset(0, 5)

      eli 5 siirtää täytettävää solua oikealle F sarakkeeseen :))

      lisäsin kun itse pähkäilin moista :)

    • Jeppuliii

      Liittyen samaan aiheeseen: Saako tiettyyn soluun päivämäärän sen mukaan koska excel sivu on avattu? Eli jos avaan sen tänään ja alan täyttään ni se lyös määriteltyyn soluun automaattisesti tämän päiväisen päivämäärän?

      • ko. taulukon moduuliin(jompi kumpi ei molempia).,,,

        jos taulukko aktivoidaan niin silloin päiväys kirjoitetaan (ei päivity jos taulukko on aktiivinen ja tallennat sen ja avaat uudelleen huomenna niin sama päiväys(eli vaatii avauksessa jonkun tietyn sivun aktivoimisen aluksi(pääsivu)...)
        Private Sub Worksheet_Activate()
        Range("C1") = Date
        End Sub

        tai jos haluat, että kun muutoksia tehdään

        Private Sub Worksheet_Change(ByVal Target As Range)
        Range("C1") = Date
        End Sub


        Keep EXCELing
        @Kunde


    Ketjusta on poistettu 1 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Mikä on kaivattusi etunimi?

      Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.
      Ikävä
      155
      3160
    2. En kestä katsoa

      Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois
      Ikävä
      96
      1673
    3. Anna minulle anteeksi

      Anna minulle anteeksi. Minä pyydän.
      Ikävä
      143
      1617
    4. Kun viimeksi kohtasitte/näitte

      Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
      Ikävä
      124
      1485
    5. Peräti 95 % persujen kannattajista rasisteja

      Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää
      Maailman menoa
      381
      1475
    6. Olet kyllä vaarallisen himokas

      Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
      Ikävä
      99
      1295
    7. Anna vielä vähän vihreää valoa

      Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet
      Ikävä
      17
      1033
    8. Mitä ajattelit silloin kun

      Löysit hänet?
      Ikävä
      62
      939
    9. On minulla suunitelma

      Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s
      Ikävä
      48
      892
    10. Palstan ylivoimaisesti suosituin keskustelunaihe

      Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks
      Luterilaisuus
      260
      862
    Aihe