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

• #49571 MasterMark titán lappy #49570

  Új Válasz 2022-09-09 07:42:40 #49571

  Ú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

  

  MasterMark

  titán

  válasz lappy #49570 üzenetére

  Köszi, tökéletes.

  Ez lett belőle:

  For Offset = 3 To 7
Formula = Loc.Resize(1).Offset(0,Offset).Formula
ExpArray = Split(Formula, "+")
Exprr = ExpArray(UBound(ExpArray))
Exprr = Replace(Exprr, CStr(Loc.Row - 1), CStr(Loc.Row - 2))
Loc.Resize(1).Offset(0,Offset) = Formula & "+" & Exprr
Next Offset

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