več spustnih seznamov

[rick]

pozdravljeni,
precej zahtevno za vprašat
torej rad bi imel vsaj tri spustne sezname, recimo:
v stolpcu a1 bi bili meseci- to ni problem narediti
v stolpcu b1 bi bila neka imena
v stolpcu c1 pa rojstni dnevi
in sedaj vprašanje: ali je možno,da ti spustni seznami delujejo povezano:

recimo v a1 določim januar, in mi v spustnem stolpcu b1 vrne imena, ki so v januarju, no v c1 pa mi vrne rojstne dneve.

upam,da ste me razumeli.
za odgovor se iskreno zahvaljujem.
lp

[admin]

To se brez uporabe VBA programiranja ne da narediti. (Mogoče malce več v tejle tematiki)

[rick]

pozdravljen,

makro ja, kje ga dobiti????? na vašem forumu, nekaj takšnega ne najdem, imate idejo?
če ni prehudo, bi vas prosil za nadaljno pomoč.

lp

[admin]

akro ja, kje ga dobiti?????

Bi bilo sicer lepo, a vsega pač ne moremo dobiti...

na vašem forumu, nekaj takšnega ne najdem, imate idejo?

Ne na forumu podobnega makra ni, saj je programiranje pač veda, kjer ustvarjate nekaj novega, nekaj kar še ni napisano in ob tem uporabite že izdelane module oz. sestavne dele...

če ni prehudo, bi vas prosil za nadaljno pomoč.

Za kaj tekšnega pa nimam časa. Morali se boste potruditi sami in napisati vsaj okvir rešitve, kjer vam bom na kakšnem konkretnem koraku z veseljem pomagal, sicer pa vas moram preusmeriti na tole spletno stran.

[rick]

Pozdravljeni,

Bi bilo sicer lepo, a vsega pač ne moremo dobiti...

Vsega morda ne, ampak jaz sem prosil le za makro, oziroma za nasvet....
Bom še malo pogledal naokrog, pa bom kasneje morda bolj konkretno vprašal.
lp

[rick]

Pozdravljen Matjaž,

poizkusil sem na takšen način:

Private Sub ComboBox2_Change()

If ComboBox1.Text = "januar" Then

ComboBox2.Items.Add ("ana")

ComboBox2.Items.Add ("tina")

ComboBox2.Items.Add ("mija")

End If

If ComboBox1.Text = "februar" Then

ComboBox2.Items.Add ("roman")

ComboBox2.Items.Add ("luka")

ComboBox2.Items.Add ("peter")

End If

End Sub

vendar mi v comboboks nič ne vpiše, čeprav se januar v prvem nahaja.
Mi lahko od tu dalje pomagate?

[zvonem]

Mislim, da je najboljša rešitev v vrtilni tabeli. V tabeli stolpec B imenujte npr.: "Ime", stolpec C "Datum" in stolpec A "Mesec". V stolpcu B vpisujte željena imena, v stolpec C datume rojstva, v stolpec A pa vpišite formulo

Koda: Izberi vse

=month(c)

Iz tega naredite vrtilno tabelo, kjer boste "Mesec" potegnili v polje"Tule spustite polja strani", ostala podatka pa v "Tule spustite polja vrstice".

[zvonem]

Aha, napaka v formuli: prava je, če podatke začnete vpisovati v B2, potem v A2 vpišite:
=month(c2)

[admin]

Pozdravljen Matjaž,

poizkusil sem na takšen način:

...

vendar mi v comboboks nič ne vpiše, čeprav se januar v prvem nahaja.
Mi lahko od tu dalje pomagate?

Saj se zgodi, samo vi ne opazite. Ob spremembi v prvem polju, morate drugega najprej pobrisati, saj bi sicer elemente vedno samo dodajali in nato dodati elemente, ter na koncu tudi nek element prikazati, saj sicer polje ostane prazno, čeravno elementi v njem so!

Koda: Izberi vse

Private Sub ComboBox1_Change()
  If (ComboBox1.Text = "januar") Then
    ComboBox2.Clear
    ComboBox2.AddItem "a"
    ComboBox2.AddItem "b"
    ComboBox2.AddItem "c"
    ComboBox2.AddItem "d"
    ComboBox2.ListIndex = 0
  End If
  
  If (ComboBox1.Text = "februar") Then
    ComboBox2.Clear
    ComboBox2.AddItem "e"
    ComboBox2.AddItem "g"
    ComboBox2.AddItem "h"
    ComboBox2.AddItem "j"
    ComboBox2.ListIndex = 0
  End If
  
End Sub