Hirdetés

  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

  • #31875 Fferi50 Topikgazda Declare #31864
    Új Válasz #31875
    Ú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 Declare #31864 üzenetére

    Szia!

    Akkor "csak" annyi a gond, hogy a feltételben a "p" helyett "w" amit be kell írni:
    Csak az eleje változik:
    If Range("H" & Selection.Row).Value = "w" then stb.

    Mivelhogy eddig a w csak érintőlegesen szerepelt. Hiba esetén
    If Err <> 0 Then If Range("H" & i).Value = "p" Then Range("F" & i).Value = Application.Sum(Range("F" & i - 1, Cells(1, "F")))
    helyett is nyilván képletet szeretnél:
    If Err <> 0 Then If Range("H" & i).Value = "w" Then Range("F" & i).Formula = "=Sum(" & Range("F" & i - 1, Cells(1, "F")).Address & ")"

    Üdv.

  • #31871 bsasa1 csendes tag Declare #31864
    Új Válasz #31871
    Ú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

    bsasa1

    csendes tag

    válasz Declare #31864 üzenetére

    Szia, nálam így működik:

    Sub FormatText()

    Dim i As Integer

    For i = 1 To Range("A55").End(xlUp).Row
    If Application.WorksheetFunction.CountIf(Range("H" & i), "w") > 0 Then
    Range("A" & i & ":H" & i).Select
    Selection.Font.Name = "Calibri"
    Selection.Font.FontStyle = "Italic"
    Selection.Font.Underline = xlUnderlineStyleSingle
    Range("E" & i).Value = Range("A" & i).Value & " " & Range("D" & i).Value
    Range("E" & i).HorizontalAlignment = xlRight
    Range("A" & i & ":D" & i).ClearContents
    End If

    On Error Resume Next
    If Range("H" & i).Value = "p" Then Range("F" & i).Formula = "=Sum(" & Range("F" & Range("H1:H" & i - 1).Find(what:="p", LookIn:=xlValues, SearchDirection:=xlPrevious, lookat:=xlWhole).Row + 1).Address & ":" & Range("F" & i - 1).Address & ")"
    If Err <> 0 Then If Range("H" & i).Value = "p" Then Range("F" & i).Formula = "=Sum(" & Range("F1:F" & i - 1).Address & ")"
    On Error GoTo 0


    Next i

    End Sub

    De pl ha az első sorban van a "p", vagy több van egymás után akkor azt nem tudja túl jól kezelni.

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