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

• #29749 Zimmy88 tag

  Új Válasz 2015-12-08 12:32:47 #29749

  Ú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

  

  Zimmy88

  tag

  Sziasztok!

  Egy két lépésből álló feladat gyorsítására szeretnék makrót, de még nem volt időm jobban elmélyedni a témában.
  A feladat a következő:
  Adott egy excel fájl, sok (30+) munkalappal. Első körben ezek egy részének (a B1 cellában található szöveg alapján szűrhető) megadott sorszámú soraiban a képletet értékre kellene cserélni (tehát nem az egész munkalapon).
  A második lépés pedig ezeknek a (részben rögzített értékes) munkalapoknak a kimentése külön excel fájlba, az adott munkalap nevén.

  Eddigi ismereteim szerint az alábbi részletet raktam össze (nem biztos hogy jó):

  Sub SumIfFormulaToValue()

  Rows("8:9,12:14,16:17,20:22,25:30,33:35,37:39,41:43,45:46,49:50,52:59,62:67,69:72,75:76,81:82,85:90,93:95,98:100,102:103,105:105,107:109,112:117,120:120,123:124,129:130,132:132").Select

  For Each r In Selection.Areas
  r.Select
  Selection.Formula = Selection.Value
  Next

  End Sub

  Előre is köszi a segítséget!

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