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

• #31875 Fferi50 Topikgazda Declare #31864

  Új Válasz 2016-06-22 18:25:07 #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 2016-06-22 15:40:58 #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