Új hozzászólás Aktív témák

• #46803 Delila_1 veterán Cold5 #46802

  Új Válasz 2021-05-29 06:47:53 #46803

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Cold5 #46802 üzenetére

  Makróval megoldható.
  A ThisWorkbook laphoz kell rendelned. A Sheets1 helyére a saját lapodat írd, az A1 helyére pedig a módosítandó celládét.

  Private Sub Workbook_Open()
    If Day(Date) = 25 Then Sheets(1).Range("A1") = Sheets(1).Range("A1") + 2000
End Sub

Új hozzászólás Aktív témák