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

• #3582 Delila_1 veterán FehérHolló #3577

  Új Válasz 2008-05-28 08:34:21 #3582

  Ú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ó #3577 üzenetére

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

  Ez a kis makró a munkalaphoz rendelve (lapfülön jobb klikk, kód megjelenítése, VBE-ben a jobb oldalon kapott üres lapra másolva) azt csinálja, hogy ha a D1:G10 tartományban módosul az adat, az A1-be beírja az aktuális dátumot a MA() függvénnyel, és rögtön át is írja a függvényt az értékére.

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