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

• #31876 Fferi50 Topikgazda Timer #31867

  Új Válasz 2016-06-22 18:41:20 #31876

  Ú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

  

  Fferi50

  Topikgazda

  válasz Timer #31867 üzenetére

  Szia!

  Azt gondolom, hogy a két külön fájl megbonyolítaná a helyzetet. Ugyanazon fájlban két külön (akár elrejtett) munkalapon kétféle módon is működhet:
  1. A cím megadásánál beírod azt a munkalapot, ahová az adatok kerültek:
  Address:=Sheets("Munka2").Range("$A$7:$A$1000").Find(What:=Target.Value, LookIn:=xlValues, lookat:=xlWhole).Offset(0, 1).Value

  2. Elnevezed az adatok tartományt (a keresőértéket tartalmazó oszlopot elég) a másik munkalapon, pld. kereso néven. Ebben az esetben:
  Address:=ActiveWorkbook.Names("kereso").Referstorange.Find(What:=Target.Value, LookIn:=xlValues, lookat:=xlWhole).Offset(0, 1).Value

  Az adatokat tartalmazó munkalapot elrejtheted úgy, hogy nem is jelenik meg a listában
  Sheets("Munka2").Visible=xlSheetVeryhidden
  Ezt csak kódból tudod láthatóvá tenni:
  Sheets("Munka2").Visible=xlSheetVisible

  Üdv.

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