România
Roportal.ro

Excel & VB cod

Început de Constantin Marin, Mar 18 aug 2009 · 3 răspunsuri · 3.485 vizualizări

Constantin Marin43 mesaje#1

Intr-un registru Excel am un tabel numit Clienti, pentru introducerea datelor in acest tabel folosesc un formular VBA.In acest formular printre altele am doua ComboBox-uri si anume unul in care gasesc judetel din romania sin celalalt as vrea sa gasesc localitaile din romania.Aceste combobox-uri asi iau datele din acest registru din tabela judeta si respectiv localitati.

Ce vreau eu este ca, in momentul in care selectez un judet din ComboBox1, in ComboBox2 sa se incarce datele din tabelul cu localitatile respectve ale judetului selectat.Ma puteti ajuta cu un exemplu de cod?Va rog frumos.

Codul de mai jos l-am folosit pentru popularea ComboBox1 cu judetele tarii noastre.

Private Sub UserForm_Initialize()

With ComboBox1
 For Row = 1 To 42
	  .AddItem Sheets("Judete").Cells(Row,1)
 Next Row
End With

End Sub

Va multumesc anticipat de ajutor.

miruna8655 mesaje#2

Buna ziua,

Imi pare rau ca raspund asa de tarziu, sper sa mai fie util. O solutie a problemei ar fi urmatoarea:

Dim JDT As String
Private Sub CBJudete_Change()

JDT = CBJudete.Value
CBLocalitati.Clear
With CBLocalitati

    For Row = 1 To 20
    If Sheets("Localitate").Cells(Row, 2) = JDT Then
    CBLocalitati.AddItem Sheets("Localitate").Cells(Row, 1)
   End If
    Next Row
End With

End Sub

Daca ai nelamuriri posteaza aici.

Toate cele bune.

Editat Dum 23 aug 2009 13:29

Constantin Marin43 mesaje#3

Multumesc foarte frumos de ajutorul dat,cu toate ca intre timp am gasit totusi rezolvare.Cand am sa am timp am sa postez aici rezolvarea mea,care este asemanatoare cu a ta.Inca o data ati multumesc de ajutor si sa stii ca niciodata nu este tarziu;mai bine mai tarziu decat niciodata.

Constantin Marin43 mesaje#4

Am promis ca vin si eu cu rezolvarea pe care am gasito.Aveti mai jos un fisier xls cu un exemplu functional,sper sa va fie de folos cu toate ca e in spaniola.Daca aveti nelamuri va rog sa ma contactati pe email , sau chiar aici.

Exemplul meu

← Înapoi la Office si baze de date