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

• #3599 Delila_1 veterán FehérHolló #3597

  Új Válasz 2008-06-02 10:41:00 #3599

  Ú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 FehérHolló #3597 üzenetére

  Ez, a laphoz rendelve azt csinálja.

  Sub Worksheet_Change(ByVal Target As Excel.Range)
  If (Target.Column > 1 And Target.Column < 8) Then
  Range("I" & Target.Row).Select
  ActiveCell.FormulaR1C1 = "= TODAY()"
  Selection.Copy
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
  Application.CutCopyMode = False
  End If
  End Sub

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