2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #39268 Fferi50 Topikgazda friccccc #39267
    Új Válasz #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("A1:B1") 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