Editointipäiväyksen lisääminen taulukkoon?

Siinä kävi suunnilleen näin:

Sub pvm()
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1") = Now
End Sub

Kun pistää run => herjaa "Compile error Expected End Sub" viitaten ekaan riviin. Eli mitä pitää muuttaa?

Kiitti avusta kumminkin!

Guggenheimer kirjoitti:

Siinä kävi suunnilleen näin:

Sub pvm()
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1") = Now
End Sub

Kun pistää run => herjaa "Compile error Expected End Sub" viitaten ekaan riviin. Eli mitä pitää muuttaa?

Kiitti avusta kumminkin!

Sub pvm()
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1") = Now
End Sub

poista eka rivi Sub pvm() -tässä oikea koodi

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1") = Now
End Sub

Kunde kirjoitti:

Sub pvm()
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1") = Now
End Sub

poista eka rivi Sub pvm() -tässä oikea koodi

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1") = Now
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1") = Now
End Sub

Koodi suoritetaan automaattisesti,joka kerta juuri ennen kuin työkirja tallenetaan.Koodiin voi tehdä omia ehtoja tallennuksen suhteen.
Et siis tarvitse erillistä makroa suorittaaksesi sen

Kunde kirjoitti:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1") = Now
End Sub

Koodi suoritetaan automaattisesti,joka kerta juuri ennen kuin työkirja tallenetaan.Koodiin voi tehdä omia ehtoja tallennuksen suhteen.
Et siis tarvitse erillistä makroa suorittaaksesi sen

Ei se toimi vieläkään. Eli nyt koodi lienee ok, mutta ei vaan tapahdu mitään kun tallentaa.

Eli se on moduulina, näkyy VBA project editorissa.

Mutta, mitään ei tapahdu kun tallentaa. Eli pitääkö tuo toiminto erikseen aktivoida?

Guggenheimer kirjoitti:

Ei se toimi vieläkään. Eli nyt koodi lienee ok, mutta ei vaan tapahdu mitään kun tallentaa.

Eli se on moduulina, näkyy VBA project editorissa.

Mutta, mitään ei tapahdu kun tallentaa. Eli pitääkö tuo toiminto erikseen aktivoida?

Onhan se varmasti ThisWorkbook moduulissa? Jos muualla niin ei toimi!

Kunde kirjoitti:

Onhan se varmasti ThisWorkbook moduulissa? Jos muualla niin ei toimi!

Nyt se toimii. Tosi hieno juttu!

Kiitos.