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

• #10053 Delila_1 veterán zsotesz81 #10051

  Új Válasz 2011-04-12 14:28:40 #10053

  Ú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

  

  Delila_1

  veterán

  válasz zsotesz81 #10051 üzenetére

  Tényleg prérifarkas vagy, az első kérdésedben más volt az elrendezés. A válaszom emiatt adott #NAME eredményt.
  A pontatlanságoddal – hogy ne írjak hebehurgyaságot – megdolgoztatod azokat, akiknek a segítségét kéred.

  A ciklusok hosszú időd vesznek igénybe, pláne, ha 2 különálló táblázaton kell végig futniuk. Sokkal gyorsabb és egyszerűbb 1-1 lépésben megadni a képleteket, majd ezek helyére beilleszteni az értéküket.

  A jelenlegi felállásra:

  Sub X_ek()
  Dim usor%
  Sheets("Sheet1").Select
  usor = Range("E6000").End(xlUp).Row
  Range("F1:F" & usor).FormulaR1C1 = _
  "=IF(ISERROR(VLOOKUP(Sheet2!RC2&""*"",C5,1,0)),""nincs"",IF(RIGHT(VLOOKUP(Sheet2!RC2& ""*"",C5,1,0),9)=""Contr/IBM"",""X"",""""))"
  Range("G1:G" & usor).FormulaR1C1 = _
  "=IF(ISERROR(VLOOKUP(Sheet2!RC2&""*"",C5,1,0)),""nincs"",IF(RIGHT(VLOOKUP(Sheet2!RC2& ""*"",C5,1,0),9)=""vakia/IBM"",""X"",""""))"
  Columns("F:G").Select
  Selection.Copy
  Selection.PasteSpecial Paste:=xlValues
  Application.CutCopyMode = False
  Range("F1").Select
  End Sub

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