Iz listbox-a u txt, pa u sheet -problem
1) Pri startovanju forme u dogadjaju Activate definise se ListBox:
lst1.RowSource = "KALK!A10:N309" - ColumnCount 14 (prikazuje svih 14 kolona)
2)Posto u ListBoxu nema korigovanja, podaci iz 5 Column-a se exportuju u 5 TextBox-ova, na "preradu", dogadjajem Lst1_Click:
Private Sub lst1_Click()
txtRB.Value = lst1.Column(0)
txtNaziv.Value = lst1.Column(1)
txtJM.Value = lst1.Column(4)
txtKol.Value = lst1.Column(5)
txtNCena.Value = lst1.Column(6)
txtMPCena.Value = lst1.Column(13)
End sub
3) U txt-ima podaci se koriguju i na kraju se vracaju u tabelu - sheet Clickom CommandButton-a, uz Find metod:
Dim r As Integer
Dim c As Range
r = Me.lst1.Column(0)
Set c = Sheets("KALK").Range("A10:A309").Find(r, LookIn:=xlValues) ' es
If Not c Is Nothing Then
c.Offset(0, 1).Value = Me.txtNaziv.Value ' ************
c.Offset(0, 4).Value = Me.txtJM.Value
c.Offset(0, 5).Value = Me.txtKol.Value
c.Offset(0, 6).Value = Me.txtNCena.Value
c.Offset(0, 13).Value = Me.txtMPCena.Value
End If
- Problem je sto na kraju svega, u sheet se upise korigovani iznos SAMO PRVE NAREDBE (sa zvezdicama) - txtNaziv
Ostale 4 naredbe se NE IZVRSE, tj upisu se prvobitni - NEkorigovani podaci. Probao sam svasta, ali uvek se izvrsi SAMO PRVA naredba po redu, a ostale 4 ne.
I nebitno je koja je prva - bitno samo da je prva ispod "If Not c Is Nothing Then"
Izvinjavam se na opsirnosti, ali nemam drugo resenje, jer ne mogu da okacim fajl, a sve svoje znanje sam iscrpeo. Hvala unapred.
 |  |
 |
