> Sto se tice primera, original ne smem da kacim.
Pa nisam ni trazio original nego samo da vidim strukturu podataka da bi mogao da ti pomognem
Na osnovu onoga sto sam ja zamislio moglo bi da se uradi sledece
1/ Povezes celije IV nivoa sa listom za validaciju ValList (u primeru opseg H2:H4)
2/ Na dogadjaj SelectionChange ukoliko je selektovana neka celija IV nivoa azurira se lista za validaciju na osnovu liste troskova na posebnom listu.
- Pri tome se brise se sadrzaj prethodne lista za validaciju
Code:
Range("ValList").Clear
- Kreira nova lista prolaskom kroz celokupnu listu troskova i poredjenjem sa unosima za I, II i III nivo
Code:
For r = 1 To rend
If Range("Troskovi").Cells(r, 1).Text = Range("B3").Text And _
Range("Troskovi").Cells(r, 2).Text = Range("C3").Text And _
Range("Troskovi").Cells(r, 3).Text = Range("D3").Text Then
' Ako je zadovoljen uslova dodaje se u listu za validaciju
Range("ValList").Cells(l, 1).Value = Range("Troskovi").Cells(r, 4).Text
l = l + 1
End If
Next r
- Ponovo formira (ažurira) lista za validaciju
Code:
ActiveWorkbook.Names.Add Name:="ValList", RefersTo:= _
"=" & ActiveSheet.Name & "!$H$2:$H$" & Trim(Str(l + 1))
Na taj način u padajućem meniju za IV nivo pojaviće se sadržaj ažurirane liste za validaciju.
Kompletan primer je okačen u prilogu. Problem je što ovo traje neko vreme, pa ako je lista troskova dugačka ...
Nije to loše Rembrante, samo što ne bi dodao još malo boje?