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

• #39268 Fferi50 Topikgazda friccccc #39267

  Új Válasz 2018-10-04 10:44:13 #39268

  Ú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

  

  Fferi50

  Topikgazda

  válasz friccccc #39267 üzenetére

  Szia!

  Excel függvénnyel szerintem ez nem megy.
  VBA-ban mindenképpen a Worksheet_Change esemény kezelésébe kell beletenni:
  Ha képlet változtatja a D1 cella értékét, akkor kell megnézni, ha a képleten szereplő "előd" cellák értéke változott - itt az A1 és B1 cellák változásakor vizsgáljuk a D1 értékét:
  Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Range("D1").Value = "OK" Then Range("E1").Value = Range("E1").Value + 1
Application.EnableEvents = True
End Sub
  Természetesen ha más cellák értékétől függ a D1 cella értéke, akkor azon cellák címeit kell ide írnod a Range("A11") helyett. Több cellát, nem összefüggő tartományt vesszővel elválasztva írhatsz a Range(…. ) címeként.
  Ha makróval írod be az OK-t a D1 cellába, akkor a beírással egyidejüleg növeled az E1 cella értékét.
  If feltételed then Range("D1").Value="OK":Range("E1").Value=Range("E1").Value+1
  Feltételed helyére írod a saját feltételed.

  Üdv.

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