Opgelost Is er een event o.i.d. die getriggerd wordt door de 1e dag van deze maand? Vervolg.

[trainers]

Zie: https://www.helpmij.nl/forum/thread...de-1e-dag-van-deze-maand.972541/#post-6395840

Onderstaande code (met dank aan Cow18) werkt en staat in ThisWorkbook als Private Sub Workbook_Open().

Option Explicit
     Dim Last_Day As Long
     Dim R As Integer
    
Sub WB_Open()
Last_Day = WorksheetFunction.EoMonth(Date, -1)
    With Sheets("Blad1").Range("SALDI_ULT_MND")
        R = Application.Match(Last_Day, .Offset(0), 0)
        If IsNumeric(R) Then
            If .Cells(R, 2).HasFormula Then
                .Cells(R, 2).Value = Range("SALDO").Value
                .Cells(R, 3).Value = Cells(R, 3).Value
            Else
            End If
        End If
    End With
End Sub

maar de - door mij bedachte - regel: .Cells(R, 3).Value = Cells(R, 3).Value doet niet wat ik voor ogen heb. Bedoeling is dat de formule in D8 wordt vervangen door de waarde.

Ja, selection copy paste values werkt maar is niet echt "charmant".
Wat is mijn denkfout?

Bij voorbaat dank.
Groet,
Trainers

 

[AHulpje]

Als je die regel hebt toegevoegd nadat je het document al eens geopend had na eind van de maand dan is .Cells(R, 2).HasFormula niet meer waar en wordt je nieuwe statement dus niet uitgevoerd.
En als je consequent wilt zijn zou ik er een puntje bij zetten:
.Cells(R, 3).Value = .Cells(R, 3).Value

 

[trainers]

Voor het testen breng ik het bestand even terug alsof deze nog niet is geopend in deze maand.
Die extra punt was de oplossing. Dank je wel.

Groet,
Trainers