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

• #14016 detroitrw addikt

  Új Válasz 2012-06-13 09:58:22 #14016

  Ú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

  

  detroitrw

  addikt

  Sziasztok!

  Egy olyan kérdésem lenne hogy miként lehet egy bizonyos cellába iratni a fájl mentési idejét?
  Élőlábnak már megcsináltam, de fogalmam sincs hogy kéne konkrét cellába (L5) rakatni

  ez az élőláb tartalma:

  Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  'Calculate the date and time stamp string
  Dim TS As Date
  TS = Now
  Dim TSS As String
  TSS = FormatDateTime(TS, 1) & " "
  'Place time stamp into the cell labeled SaveTimestamp
  'Range("SaveTimestamp").Value = TSS
  'Place time stamp into the header or footer for printing
  Dim WS As Worksheet
  For Each WS In Worksheets
  WS.PageSetup.LeftFooter = " City," & TSS
  'WS.PageSetup.LeftFooter = ThisWorkbook.FullName
  Next WS
  End Sub

  miként kéne átírni hogy az L5-ös cellába legyen a tartalom?

  Előre is köszönöm a segítséget

  

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