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

• #3632 Delila_1 veterán

  Új Válasz 2008-06-06 17:01:25 #3632

  Ú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

  FehérHolló

  Félrevezettelek az előbb (ha hagytad magad). A targetes így módosul:

  Sub Worksheet_Change(ByVal Target As Excel.Range)
  If (Target.Column > 1 And Target.Column < 8) Then
  Cells(Target.Row, 8) = "." 'Itt írtam hülyeséget az előbb
  Cells(Target.Row,9).Select
  Selection.FormulaR1C1 = "= TODAY()"
  Selection.Copy
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
  Application.CutCopyMode = False
  Cells(Target.Row, Target.Column).Select 'Ez visszaáll a bevitt adat cellájára
  End If
  End Sub

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