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

• #5 KovacsUr addikt airyca #3

  Új Válasz 2003-03-11 19:07:15 #5

  Ú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 airyca #3 üzenetére

  Jobb klikk a worksheet fülön, Kód megjelenítése
  
  aztán ezt beilleszt
  
  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''
  End If
  
  End Sub
  
  

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