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

• #40916 Capella őstag #05304832 #40914

  Új Válasz 2019-04-27 14:39:17 #40916

  Ú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

  

  Capella

  őstag

  válasz #05304832 #40914 üzenetére

  Én ezt a makrót használom a mai dátum beszúrására. Csináltam hozzá egy ikont a gyorselérési eszköztárra, így egérrel is gyorsan beszúrható a kívánt cellába.

  Sub Ma()

ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

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