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

• #6 KovacsUr addikt KovacsUr #5

  Új Válasz 2003-03-11 19:08:45 #6

  Ú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

  

  KovacsUr

  addikt

  válasz KovacsUr #5 üzenetére

  Bocs... v1.1
  
  Sub Worksheet_Change(ByVal Target As Excel.Range)
  
  If Target.Value <> '''' And (Target.Column = 1) Or (Target.Column = 2) Then
  Cells(Target.Row, 3).Activate
  ActiveCell.Value = Date
  ActiveCell.NumberFormat = ''yyyy/mm/dd''
  Target.Activate
  End If
  
  End Sub
  

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