Pozdrav svima.
Ovako..
Radim obrasce za posao mi treba pa mucim muku.
U .doc word 2003, uradim tabele
U prvoj tabeli sam uradio drop down field imam opciju da izaberem listu stvari koje sam uneo.
A u drugoj tabeli mi treba da se druga tabela poveze sa prvom.
Npr. Ako u tabeli 1 iz padajuce liste izaberem "lopta" hteo bih da automatski u tabeli 2 izbaci "sport"
Pa ako u 1 izaberem "kasika" u tabeli 2 se samo prikaze "hrana".
Nadam se da me razumete, ovo sam samo naveo primer sta hocu.
Da predmetu iz padajuce liste 1 dodelim podrazumevanu vrednost tabeli 2.
Ako neko moze da pomogne, hvala unapred.
Hvala na odvojenom vremenu.
Tako otprilike, samo da kad izaberem levo "hrana" on sam prebaci desno na "fudbal",
ili kad levo kliknem na "sport" on sam desno prebaci na "kosarku".
Veoma je blizu onoga sto mi treba, hvala u svakom slucaju na odvojenom vremenu. I ovo ce mi biti itekako od koristi sto ste poslali u poruci.
Evo primera kako otprilike izgleda.
[Ovu poruku je menjao gscorpy dana 04.10.2018. u 18:16 GMT+1]
@bokinet
Uspeo sam da uradim ovo sa stranom koju si mi poslao i sa ovim kodom dole. Ali jedino mi funkcionise kod kada su vrednosti napisane latinicom, a meni treba cirilica. Kako da osposobim da funkcionise i cirilica?
Sad npr. kada upisem "Georgia", tada radi, ali kada upisem "Georgia", umesto cirilicnih slova ispise znakove pitanja.
Da li imas neki predlog kako da resim slucaj?
<code><span>Sub PopulateddState()</span>
<code><span> Select Case ActiveDocument.FormFields("ddRegion").Result</span>
<code><span> Case "North"</span>
<code><span> With ActiveDocument.FormFields("ddState").DropDown.ListEntries</span>
<code><span> .Clear</span>
<code><span> .Add "Michigan"</span>
<code><span> .Add "Ohio"</span>
<code><span> End With</span>
<code><span> Case "South"</span>
<code><span> With ActiveDocument.FormFields("ddState").DropDown.ListEntries</span>
<code><span> .Clear</span>
<code><span> .Add "Georgia"</span>
<code><span> .Add "Texas"</span>
<code><span> End With</span>
<code><span> Case "East"</span>
<code><span> With ActiveDocument.FormFields("ddState").DropDown.ListEntries</span>
<code><span> .Clear</span>
<code><span> .Add "New York"</span>
<code><span> .Add "Maine"</span>
<code><span> End With</span>
<code><span> Case "West"</span>
<code><span> With ActiveDocument.FormFields("ddState").DropDown.ListEntries</span>
<code><span> .Clear</span>
<code><span> .Add "California"</span>
<code><span> .Add "Oregon"</span>
<code><span> End With</span>
<code><span> End Select</span>
<code><span> End Sub</span>
1.U samom pc-u
Control Panel > Regional and language options > advanced tab > choose the native language you want to use in language for non-unicode programs ---- Izaberite Serbian cyrilic
2.U VBA editoru
tools>options>editor format> font koji podržava vaš format (opciono Arial cyrilic)
To je to. Kod radi.