2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    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

  • #5195 Delila_1 veterán Ch4os #5190
    Új Válasz #5195
    Ú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 Ch4os #5190 üzenetére

    Jó vicc volt, hogy az előző válaszomhoz elfelejtettem csatolni a makrót. :O :W
    A tiédben az ELSE sor beteszi az üres sort az I oszlopba, vagyis ugyanott vagy vele, mint makró nélkül.

    A lenti makrót a lapodhoz kell rendelni: lapfülön jobb klikk, Kód megjelenítése, üres lapra bemásolás.

    Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5 Or Target.Column = 6 Then
    sor_1 = 2
    E = Range("E65536").End(xlUp).Row
    F = Range("F65536").End(xlUp).Row
    usor = Application.WorksheetFunction.Max(E, F)

    Range(Cells(2, 9), Cells(usor, 9)).ClearContents 'előző adatok törlése

    For fogyi = 2 To usor
    If Cells(fogyi, 5) > 0 And Cells(fogyi, 6) > 0 Then
    Cells(sor_1, 9) = Round(Cells(fogyi, 6) / (Cells(fogyi, 5) / 100), 2)
    sor_1 = sor_1 + 1
    End If
    Next fogyi
    End If
    End Sub

    Gyorsan elküldöm, mert ezelőtt 4 db pillanatnyi áramszünet megsemmisítette a válaszomat.

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