[ zage @ 28.09.2012. 14:20 ] @
Postoje dva Sheta 1-EVIDENCIJA 2- RABOTA...Prvi sluzi kao bazu podataka svega unetok moguce i nemoguce .u drugi Shet-RABOTA automatski kopira podatke sa Prvog Forma za unos je OK dok nesto fali u Formi za promenu /pregled.Kako pokrenuti Formu sa dugmetom koji je na Shet Rabota a ujedno u polja za unos u kojima je dozvoljena promena da se kopiraju u BAZI (EVIDENCIJA)...nesto fali u codu ali ne znam sta....Ako pogrenem sa Dugme koje se nalazi u EVIDENCIJA je ok ali sa onog drugog cita podatke sa tog Sheta....
[ 3okc @ 01.10.2012. 07:54 ] @
Koliko mogu da vidim, program ti se svodi na deklaraciju različitih opsega po radnom listu, vidim uglavnom spiskove nalik TextBox1.Text = Cells(GoreDole, 1)
Koristiš implicitnu deklaraciju promenljivih i to je najverovatnije i uzrok problema jer GoreDole nigde nisi bio definisao. S obzirom da nemaš naveden Option Explicit, ovakve pojave u kodu kompajler ne registruje kao grešku a promenljivama dodeljuje inicijalnu vrednost (tj u ovom slučaju to je 0).

Potrebno je da prvo svugde ubaciš Option Explicit.
Na svim mestima gde je definicija sa Cells(nešto) moraš navesti za koji se list odnosi, tipa Sheet4.Cells(nešto)

Skratio sam ti one provere u Sheet8 (EVIDENCIJA) i izgleda ovako:
Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("$N$5:$N$504", "$P$5:$P$504", "$R$5:$R$504", _
        "$T$5:$T$504", "$V$5:$V$504", "$X$5:$X$504")) Is Nothing Then _
        Target.Offset(0, -1).FormulaR1C1 = Now()
End Sub
[ zage @ 01.10.2012. 09:02 ] @
Uradjeno prema uputsvima.....idemo dalje

Pozdrav