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

• #29121 szatocs1981 aktív tag Delila_1 #29119

  Új Válasz 2015-10-21 08:35:54 #29121

  Ú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

  

  szatocs1981

  aktív tag

  válasz Delila_1 #29119 üzenetére

  Igaz, akkor így:

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  Dim rngz As Range
  On Error GoTo Ende
  Application.EnableEvents = False
  For Each rngz In Application.Intersect(Columns("B"), Target).Cells
  rngz.Offset(0, -1).Value = Date
  Next rngz
  
  Ende:
  Application.EnableEvents = True
  
  End Sub

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