Hyperlink i filter

[ Sudarica @ 22.01.2011. 21:32 ] @

Molim vas pomoć

htjela bih iz radne knjige u kojoj radim samo pogledati u drugu radnu knjigu podatke za šifru iz ćelije C4. Primjenila sam hyperlink ali ne znam kako dobiti podatke za (kriterij C4)

[ neptuncokg @ 23.01.2011. 11:42 ] @

Pogledaj resenje koje saljem. Mislim da je to sto ti treba. Imaj u vidu da sam pretpostavio da se fajl sa lozinkama zove "LOZINKE.xls", i da se nalazi na "C" disku. Dakle put do njega je: "C:\LOZINKE.xls". Da bi kod tebe funkcionisalo, ti u makrou zameni ovu putanju sa onom odakle citas podatak. Pozdrav

[ Jpeca @ 23.01.2011. 17:05 ] @

Nisi objasnila da li se radi o radnom listu koji treba pogledati, imenovanom osegu ili već šta.
U funkciji Hyperlink iza putanje do radne sveske unesi simbol # a zatim naziv radnog lista pa simbol ! pa celiju ka kojoj vodi link. Naziv radne sveske, Radnog lista ili imenovanog opsega može se uzeti iz druge ćelije. Npr

Code:
=HYPERLINK("C:\My Documents\Razno\HyperlinkTest.xlsx#" & A4 & "!A1";B4)

postavlja link na ćeliju A1 radne sveske hyperlinktest i radnog lista zadatog u ćeliji A4 tekuće radne sveske
Evo u prilogu i primer kako se može izvesti da se iz radne sveske ClickToHiperlink pregledaju podaci iz radne sveske HyperlinkTest. Putanju do fala prilagodi prema svojoj organizaciji.

_{[Ovu poruku je menjao Jpeca dana 23.01.2011. u 18:17 GMT+1]}

[ Ivek33 @ 23.01.2011. 17:16 ] @

Citat:

Sudarica: Primjenila sam hyperlink ali ne znam kako dobiti podatke za (kriterij C4)

Peca je već odgovorio ali nema veze kada sam već započeo, evo primjer "malkice" drugačiji od @Jpece

=HYPERLINK("[C:\folder\Book2.xls]Sheet1!C4";"CLICK HERE")

Ovaj hiperlink otvara Book2.xls i pozicionira se na Sheet1 na ćeliju C4 u C:\folder mapi

[ Sudarica @ 23.01.2011. 20:06 ] @

Nisam dobro objasnila
Ovako

na "Radnoj" bi htjela da mi otvori podatke u "evidenciji "SAMO za šifru 3 (A4) isto kao da sam filterom podigla šifru 3 u evidenciji. ( imam filtere ali je tabela trenutno napunjena sa 70 000 redova i podaci nisu sortirani po šifri pa pretraživanje filtera je užas.)

Bilo bi idealno kad bi ja klikom na "click here" dobila samo podatke za šifru iz A4 (inače ćelija A4 se puni i svaki put dok se napuni ide se na "click here" vidjeti podatke u Evidenciju

[ Ivek33 @ 24.01.2011. 09:48 ] @

Citat:

Bilo bi idealno kad bi ja klikom na "click here" dobila samo podatke za šifru iz A4 (inače ćelija A4 se puni i svaki put dok se napuni ide se na "click here" vidjeti podatke u Evidenciju

Ovo je dosta zbunjujuće. Ćelija A4 ne može se "puniti". Kada jednom upišeš vrijednost to je to (po njoj valjda želiš filter). Pa vjerojatno opet promjeniš vrijednost u njoj i opet na filter (click here)?

Ako sam te dobro razumio, ti želiš u Workbook Radna.xls selektirati na Sheetu "Radna" ćeliju A4 i klikom da ti otvori evidencija.xls Sheet na kojem se nalaze podaci ali tako da ti odmah ti podaci budu filtrirani po vrijednosti iz A4 (Radna.xls).
Ili još bolje kada bi se prikazali samo podaci za vrijednost u A4.?

Vjerojatno postoji elegantnije rješenje ili macro koji bi to odradio da na klik otvara workbook "evidencija.xls" i filtrira no ja bih to uradio na slijedeći način (ako mogućnosti dozvoljavaju, ali to povećava datoteku jer imaš 70000 redova).

1. Iz workbook "evidencija.xls" kopirao bi sve podatke u dodatni Sheet u "Radna.xls", imenovao ga "linkani_sheet", po sistemu Paste Special => Paste Link, tako bi u Radna .xls uvijek imala linkane podatke
2. Klikom na button pokreće se Macro koji u odnosu na vrijednost iz Sheet-Radna(A4) prelazi na "linkani_sheet" i automatski filtrira po vrijednosti iz A4

Nadam se da sam nekako uspio pojasniti (pogledaj attach)

Možda ti netko može napisati Macro za koji nema potrebe imati ovaj dodatni "linkani_sheet", već da automatski otvara workbook "evidencija.xls" i vrši filtriranje

Code:
Sub Macro1()
'
' Filtriranje na drugom Sheetu po kriteriju iz A4
'
    Range("A4").Select
    Sheets("linkani_sheet").Select
    Range("A2").Select
    ActiveSheet.Range("$A$1:$D$16").AutoFilter Field:=1, Criteria1:=Sheets("Radna").Range("$A$4")
    Range("A1").Select
End Sub

Ako ovo nije rješenje ili put ka rješenju, sorry toliko od mene.

[ Sudarica @ 25.01.2011. 15:10 ] @

Ivek33 oprosti što ti nisam odmah odgovorila ali imala sam velikih problema sa putanjom. naime, radila sam malu aplikaciju na svom stroju i sve je radilo savršeno. prenjela sam ju na drugi stroj i nisam mogla koristiti popis iz Data validation. oba stroja imaju office 2007, Radna knjiga u kojoj koristim popis (data validation) je templte, a izvor je druga radna knjiga koja ima makro za pozivanje templete (predloška) u kojoj je putanja za poziv predloška i na mom stroju putanja počinje sa \\ naziv servera..... , a na drugom stroju sa Y:\. Kada sam to ispravila \\ u Y:\ radi bez problema a izgubila sam sate i živce i ne znam ustvari zbog čega se to dogodilo.

uvažila sam tvoj prijedlog i radi mi dobro . Radni list u kojem imam hyperlink ima samo 12 redova kroz godinu a nema nekakvu težinu, i smanjila sam nepotrebne podatke u radnom listu kojeg pretražuje. Nije onako kako sam zamislila ali poslužiće obzirom da ne znam dobro objasniti šta hoću.

Hvala puno svima i pozdrav