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

• #25013 alfa20 senior tag slashing #25010

  Új Válasz 2015-01-13 20:29:31 #25013

  Ú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

  

  alfa20

  senior tag

  válasz slashing #25010 üzenetére

  köszi, de sajnos nem ilyen egyszerű,
  kiszedtem a makróból a kérdéses részt, a lenti kép alapjára állítottam a képletet, meg egyszerűsítettem:

  Sub teszt1()
  
  Range("b2").FormulaR1C1 = "=vlookup(RC1,RC[2]:R[10]C[3],2,false)"
  Range("b2").Copy
  Range("A2").End(xlDown).Offset(0, 1).Select
  Range(Selection, Selection.End(xlUp)).Select
  ActiveSheet.Paste
  Selection.Copy
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Application.CutCopyMode = False
  
  End Sub

  ebből kellene kiindulni.

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