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.