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

• #15245 sztanozs veterán medvezsolt #15242

  Új Válasz 2012-10-12 17:50:48 #15245

  Ú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

  

  sztanozs

  veterán

  válasz medvezsolt #15242 üzenetére

  A sheet lapjára kell bemásolni:
  Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  
  'A figyelt oszlop száma
  checkedcolumn = 3
  
  For areaindex = 1 To Target.Areas.Count
  For columnindex = 1 To Target.Areas(areaindex).Columns.Count
  If Target.Areas(areaindex).Columns(columnindex).Column = checkedcolumn Then
  For Each cell In Target.Areas(areaindex).Cells
  If cell.Value = "x" Then
  If (Cells(cell.Row, cell.Column + 1).Value = "") Then Cells(cell.Row, cell.Column + 1).Value = Date
  End If
  Next
  End If
  Next
  Next
  Application.EnableEvents = True
  End Sub

  Csak az üres mezőket tölti fel dátummal, a már kitöltötteket nem frissíti le.
  mod: most nézem, hogy van rendes Application property az események tiltására, lemódosítottam arra...

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