Automaattinen päivämäärä?

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

Lue lisää

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

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