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.

mozes li bar na mail da posaljes, pa da vidim u cemu je problem jer ne mogu ti nista reci dok ne vidim kako radi.

Potpis

[email protected]=

Evo, malo sam improvizovao, ali sustina odgovara originalu. Hvala na trudu. Pozdrav

Nije mi jasna ulogal svega toga - zar nije lakše da se zaključaju ćelije koje se ne unose i da se editovanje vrši direktno u Excelu?. Ali da se držimo pitanja. Linija iz tvog koda
r = Me.lst1.Column(0)
prijavljuje grešku. Zar ne bi trebalo
r = Me.TXTRB.Value
?

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?