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

• #21229 Delila_1 veterán Metathrone #21225

  Új Válasz 2014-04-10 07:28:03 #21229

  Ú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 Metathrone #21225 üzenetére

  Mindegyik makró modulba kerül.

  Private Leallitando As Boolean
  Private Xlsnev As String
  Private Munkalapnev As String
  Private Cellasor As Integer
  Private Cellaoszlop As Integer
  
  Sub Pontosidő()
  If Leallitando Then Exit Sub
  Application.OnTime Now() + TimeSerial(0, 0, 1), "Pontosidő"
  Workbooks(Xlsnev).Sheets(Munkalapnev).Cells(Cellasor, Cellaoszlop) = Format(Now(), "yyyy.mm.dd. hh:nn:ss")
  End Sub
  
  Sub leallítás()
  Leallitando = True
  End Sub
  
  Sub Inditás()
  Xlsnev = ActiveWorkbook.Name
  Munkalapnev = ActiveSheet.Name
  Cellasor = 1
  Cellaoszlop = 1
  Leallitando = False
  Pontosidő
  End Sub

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