[ anakin14 @ 07.03.2008. 08:19 ] @
Code: Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then Sheets("sheet1").Select Range("a1").End(xlDown).Offset(1, 0).Select ActiveCell.Offset(0, 0) = TextBox1.Value ActiveCell.Offset(0, 1) = TextBox2.Value ActiveCell.Offset(0, 2) = TextBox3.Value ActiveCell.Offset(0, 3) = ComboBox1.Value tabela = Range("a" & ActiveCell.Row & ":d" & activecell.Row) For i = 1 To UBound(tabela) With ListBox1 .AddItem tabela(i, 1) .List(ListBox1.ListCount - 1, 0) = tabela(i, 1) .List(ListBox1.ListCount - 1, 1) = tabela(i, 2) .List(ListBox1.ListCount - 1, 2) = tabela(i, 3) .List(ListBox1.ListCount - 1, 3) = tabela(i, 4) End With Next i TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" ComboBox1.Value = "" TextBox1.SetFocus End If End Sub u prilozenom kodu ja prvo punim sheet - to jest bazu podataka pa popunjeni red prenosim u varijablu tabela da bi sa njom popunio listbox... Da li je moguce puniti odmah neku varijablu (kako da je deklarisem ? Collection? ) preko keydown eventa a baza da se ne dira do samog kraja i na kraju se iz te varijable popuni ta baza, e sad sta meni treba, meni treba da kako punim varijablu puni se i listbox i ja se prebaicm na listbox i izaberem recimo petu vrednost kliknem na nju da je promenim i promenim je ako je bila greska i tek na kraju na recimo neki button se stavi kopiranje u sheet to jest u bazu podataka. Mislim da ste me shvatili. Ne treba mi resenje vec samo savet kako da sto bolje to napravim i koju varijablu da koristim da je punim bazom podataka? Puno hvala! |