Ú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.

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