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....
Problem sa Formom
Zaključano
Zakačeno
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:
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
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
Potpis
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!
Uradjeno prema uputsvima.....idemo dalje
Pozdrav
Pozdrav