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())
Automaattinen päivämäärä?
Päivämäärä ongelma
6
3253
Vastaukset
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 tuleelisä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
Näin Enter-napilla tehdään miljardi euroa - Helsingissä
"Ei se nyt niin kovin ihmeelliseltä näytä. Tavallinen nappi, musta muovinpala, joka kököttää parikymppiä maksavan mustan2319087- 696055
- 265668
Perussuomalaiset kirjoittaa vain positiivisista uutisista
Ei tarvitse palstaa paljon seurata, kun sen huomaa. Joka ainoa positiivinen uutinen Suomen taloudesta tai ylipäätään, ni485515Jätä minut rauhaan
En pidä sinusta. Lopeta seuraaminen. Älä tulkitse keskustelutaitoa tai ystävällisyyttä miksikään sellaiseksi mitä ne eiv415388Ben Z: "SDP ei ole ollut 50 vuoteen näin huolissaan velasta"
"– Olen ollut eduskunnassa noin 50 vuotta, eikä SDP ole koskaan ollut niin huolissaan velasta kuin nyt. Se on tietysti h945282- 624763
- 434427
Mitä luulet, miten Martina Aitolehti pärjää Erikoisjoukoissa?
Kohujulkkis, yrittäjä ja hyvinvointivalmentaja Martina Aitolehti on mukana Erikoisjoukot-realityssä. Erikoisjoukot on573756- 493405