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

• #31849 Fferi50 Topikgazda Timer #31848

  Új Válasz 2016-06-21 13:32:38 #31849

  Ú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 #31848 üzenetére

  Szia!

  Túlságosan is excelesen gondolkodsz, ezt VBA (makró) sokkal egyszerűbben oldja meg.
  A kiválasztott fájlnévhez tartozó elérési út alapján a Workbook.Open eljárással meg tudod nyitni az adott fájlt.
  Tehát: van egy táblázatod, ami tartalmazza a kiválasztható fájlneveket és a hozzájuk tartozó elérési utakat. Egy cellára - keresőcella - csinálsz adatérvényesítést, ami a kiválasztható fájlneveket tartalmazza - csak ebből lehet választani, így nem lehet elrontani a keresést.
  Pl: H1-H5 tartalmazza a listát, I1-I5 tartalmazza az elérési utat.
  A1 legyen a kereső mező.
  A1 adatérvényesítése lista - forrása $H$1:$H$5
  Worksheet change eseménybe kerül a következő makró:
  Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Application.EnableEvents = False
Workbooks.Open Filename:=Range("$H$1:$H$5").Find(What:=Target.Value, LookIn:=xlValues, lookat:=xlWhole).Offset(0, 1).Value & Target.Value
Application.EnableEvents = True
End If
End Sub

  Ne felejtsd el, hogy az elérési út végére kell egy backslash \
  Az adott munkalaphoz úgy viheted be, hogy a munkalap fülre állva jobb egérgomb, kód megjelenítése, majd bemásolod a megjelent ablakba.

  Ha választható listát másik munkalapon szeretnéd tárolni, akkor el kell nevezned és a nevet kell beírni az adatérvényesítés forrásaként - valamint a makróba is.

  Üdv.

  [ Szerkesztve ]

• #31851 Fferi50 Topikgazda Timer #31850

  Új Válasz 2016-06-21 14:48:17 #31851

  Ú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 #31850 üzenetére

  Szia!

  A hiba ebben az esetben "természetes", hiszen most abból indultam ki, hogy a keresési feltételben a fájl neve szerepel. Ha ez nem így van, akkor a Target.Value a Filename paraméterből elhagyandó
  Workbooks.Open Filename:=Range("$H$1:$H$5").Find(What:=Target.Value, LookIn:=xlValues, lookat:=xlWhole).Offset(0, 1).Value
  Ennyi marad - bár nyilván azt, hogy hol tárolod a fájlnevet és az elérési utat, Te tudod igazán, a példából én azt látom, hogy egy cellában van, a keresési feltétel mellett.

  Üdv.

  Ps: "Ez nem lenne gond, de ez egy .pdf"
  Bocsi, de ezt honnan kellett volna tudnom?
  Ebben az esetben hyperlink követést kell programozni, most éppen nincs időm rá, hogy pontosan megnézzem.

  [ Szerkesztve ]

• #31853 Fferi50 Topikgazda Timer #31852

  Új Válasz 2016-06-21 15:00:24 #31853

  Ú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 #31852 üzenetére

  Szia!

  Ebben az esetben az
  ActiveWorkbook.FollowHyperlink Address:=Range("$H$1:$H$5").Find(What:=Target.Value, LookIn:=xlValues, lookat:=xlWhole).Offset(0, 1).Value
  formát próbáld meg.

  Üdv.

• #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.

  [ Szerkesztve ]

• #31883 Fferi50 Topikgazda Timer #31882

  Új Válasz 2016-06-23 10:16:53 #31883

  Ú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 #31882 üzenetére

  Szia!
  "Hálám üldözni fog!"
  Az nem baj, csak utol ne érjen... Mert elég gyorsan kifáradok....

  További szép napot!

  [ Szerkesztve ]

• #31926 Fferi50 Topikgazda Timer #31924

  Új Válasz 2016-06-27 15:32:49 #31926

  Ú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 #31924 üzenetére

  Szia!

  - Megoldható-e, hogy az Excel dokumentum megnyitásakor a kurzor már alapból a szövegbeviteli cellán legyen?

  A Thisworkbook kódlapjára másold be az alábbi makrót:
  Private Sub Workbook_Open()
Application.EnableEvents = False
Sheets("Munka1").Select 'Munka1 helyére írd be a kereső munkalapod nevét.
Range("C2").Select
Application.EnableEvents = True
End Sub
  A VBA projektben a Thisworkbook összetevőre kattintasz kettőt és a megjelenő ablakba bemásolod.

  - Megoldható-e, hogy két keresési ciklus között (tehát amikor bevisz egy cikkszámot, amihez kapcsolódóan a makró megnyitja a hálózaton lévő fájlt, de újabb cikkszám bevitel még nem történt meg) ne az előzőleg bevitt cikkszám legyen

  Application.EnableEvents=True elé írd be ezt a sort:
Range("C2").Value=0, vagy Range("C2").Value="Kérem, olvassa be a vonalkódot!"

  Viszont ez utóbbi elég hosszúnak tűnik, ha mellette levő cellában is van adat, akkor nem fog végig kiférni.

  Üdv.

  [ Szerkesztve ]

• #33908 Pakliman tag Timer #33879

  Új Válasz 2017-01-26 13:20:27 #33908

  Ú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

  

  Pakliman

  tag

  válasz Timer #33879 üzenetére

  Szia!

  Az táblázat megnyitása (a tulajdonképpeni "program" elindítása) nélkül ez nem megy
  Viszont van kerülő út, pl.:
  - a win. indítópultjába berakod, így az a gép (újra)indításakor megnyílik, a program lefut. Hátránya, hogy bezárni Neked kell
  - VBScript, időzítő programok használata...

  Hogy csak egyszer lehessen futtatni:
  Makró kell.
  Ki kell választani egy cellát valamelyik munkalapon (lehet egy kimondottan erre létrehozott, esetleg rejtett!).
  Ez lesz a CheckDate...
  A lekérdezést/másolást végző makró elejére kell beírni egy kódot, ami ellenőrzi, hogy a CheckDate cella tartalma mi: ha üres vagy a mai napnál régebbi dátum szerepel benne, akkor mehet tovább a feldolgozás,
  egyébként esetleg MsgBox a júzernek, hogy ma már nem futhat...

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