Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Problem sa Formom

[es] :: Office :: Excel :: Problem sa Formom

[ Pregleda: 1739 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

zage
Zoran Nastevski
Makedonija Demir Hisar

Član broj: 56597
Poruke: 148
62.220.204.*

Sajt: idividi.com.mk


+1 Profil

icon Problem sa Formom28.09.2012. u 14:20 - pre 139 meseci
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....
Prikačeni fajlovi
 
Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1318

Jabber: 3okc@elitesecurity.org


+116 Profil

icon Re: Problem sa Formom01.10.2012. u 07:54 - pre 139 meseci
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

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!
 
Odgovor na temu

zage
Zoran Nastevski
Makedonija Demir Hisar

Član broj: 56597
Poruke: 148
62.220.204.*

Sajt: idividi.com.mk


+1 Profil

icon Re: Problem sa Formom01.10.2012. u 09:02 - pre 139 meseci
Uradjeno prema uputsvima.....idemo dalje

Pozdrav
 
Odgovor na temu

[es] :: Office :: Excel :: Problem sa Formom

[ Pregleda: 1739 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.