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

• #11128 m.zmrzlina senior tag zoli1962 #11119

  Új Válasz 2011-08-22 07:59:49 #11128

  Ú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

  

  m.zmrzlina

  senior tag

  válasz zoli1962 #11119 üzenetére

  Ilyen logika mentén is el lehet indulni:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 4 Or Target.Column = 8 Then
  Range("A" & ActiveCell.Row).Select
  ActiveCell.Copy
  ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  ActiveWorkbook.Save
  End If
  End Sub

  Ha vagy a D vagy a H oszlopban változik valami akkor a változtatott cella sorának és az A oszlop metszéspontjában lévő cella tartalmát értékként magára másolja.

  Ez az A oszlop megfelelő cellájából kitörli a benne lévő képletet így az a cella többet nem fog újraszámolódni.

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