2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • 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

  • #28123 Fferi50 Topikgazda marcyman #28121
    Új Válasz #28123
    Ú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 marcyman #28121 üzenetére

    Szia!

    Próbáld ki a következő képleteket:
    D3 cella:
    =HA(SZUM(B$3:B3)+D$2<500000*DARAB(D$2:D2);"NT";SZUM(B$3:B3)+D$2-500000*DARAB(D$2:D2))
    C3 cella:
    =HA(D3="NT";"";B3-D3)

    Ezeket a képleteket húzhatod végig az adott oszlopokon.

    Üdv.

  • #28122 Delila_1 veterán marcyman #28121
    Új Válasz #28122
    Ú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 marcyman #28121 üzenetére

    Másold a lenti makrót a lapod kódlapjára (lapfülön jobb klikk, Kód megjelenítése, a jobb oldalon kapott üres részbe másold). Lépj vissza a füzetbe, és a G1 cellába írd be az utolsó sor számát, ahol a D oszlopban szám szerepel. A példád szerint ez 23.

    Innen kezdve mikor a B oszlopba új adatot viszel be, a makró kiszámolja, hogy a jelzett cellák összege meghaladja-e a félmilliót. Ha nem, akkor a D oszlopba beírja az NT szöveget. Ellenkező esetben a maradékot, ahogy írtad, a G1-be beviszi az új sorszámot, az E oszlopban elvégzi a cellák összevonását, és beírja oda a következő sorszámot, a példa szerinti 209-et. beírja a C-be a B-D értéket.

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim osszeg, sor As Long, tartomany As Range
    If Target.Column = 2 And Target.Row > 2 And Target.Count = 1 And Target > "" Then
    Application.EnableEvents = False
    sor = Range("G1")
    Set tartomany = Range("B" & sor + 1 & ":B" & Target.Row)
    osszeg = Cells(sor, "D") + Application.WorksheetFunction.Sum(tartomany)
    If osszeg >= 500000 Then
    Range("D" & Target.Row) = osszeg - 500000
    Range("G1") = Target.Row
    Range("E" & sor + 1) = Application.WorksheetFunction.Max(Columns(5)) + 1
    Range("E" & sor + 1 & ":E" & Target.Row).MergeCells = True
    Range("E" & sor + 1 & ":E" & Target.Row).VerticalAlignment = xlCenter
    Cells(Target.Row, "C") = Cells(Target.Row, "B") - Cells(Target.Row, "D")
    Range("G1") = Target.Row
    Else
    Cells(Target.Row, "D") = "NT"
    End If
    Application.EnableEvents = True
    End If
    End Sub

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