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

• #17680 m.zmrzlina senior tag

  Új Válasz 2013-04-09 14:28:48 #17680

  Ú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

  

  m.zmrzlina

  senior tag

  Az a kérdés, hogy az alábbi kódrészletben, hogyan lehet a rngForras változónak értéket adni (és persze utána használni is a változót) úgy, hogy nem nyitom meg a tartományt tartalmazó mappát.

  Sub reftest2()
  Dim rngForras As Range
  Dim rngMunka As Range
  
  Workbooks.Open ("C:\Users\gipszjakab\próbafájlok\test\forrásadatok.xlsx")
  Set rngForras = ActiveWorkbook.Worksheets("adatok").Range("A:B")
  
  Set rngMunka = ThisWorkbook.Worksheets("Munka1").Range("B1:B14")
  
  For Each cella In rngMunka.Cells
  cella.Value = Application.WorksheetFunction.VLookup(cella.Offset(0, -1), rngForras, 2, 0)
  Next
  
  End Sub

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