Postoji li mogucnost da se u odredjenim celijama f-ja NOW sama aktivira pri promeni sadrzaja neke druge celije? U pitanju je tablica u koju blagajnica u toku svoje smene unosi svaki ulaz i svaki izlaz novca. Znaci, ako je u celiji D5 unet podatak, kako da namestim da se recimo u celiji D4 pojavi vreme kada je izvrsena promena u D5?
automatizacija NOW f-je u EXCELL-u
Zaključano
Zakačeno
Otvori Visual Basic Editor (Tools > Macro > Visual Basic Editor ili ALT + F11), a onda u Sheet-u u kome radiš ukucaj ovo
Time dobijaš da ukoliko se u bilo koju kolonu u redu 5 upišeš nešto, u istoj koloni samo u redu 4 će se upisati rezultat dobijen Now funkcijom.Jel to to ili...?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 Then Cells(4, Target.Column) = Now
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 Then Cells(4, Target.Column) = Now
End Sub
Time dobijaš da ukoliko se u bilo koju kolonu u redu 5 upišeš nešto, u istoj koloni samo u redu 4 će se upisati rezultat dobijen Now funkcijom.Jel to to ili...?
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
Hmm, probao sam, izbacuje mi
"Compile Error:
Invalid outside procedure"
U svakom slucaju hvala za pokusaj.
"Compile Error:
Invalid outside procedure"
U svakom slucaju hvala za pokusaj.
Jesi li sigurno otvorio Sheet (dvostruki klik na Sheet1 u Project exploreru) i u njemu ukucao kod u editoru ?
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
U stvari, evo ti primer, snaći ćeš se.
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
Uuupsss! Sad sam ukapirao gde sam pogresio! Radi!!! Hvala puno, ja cu sada da navalim sa "konstrukcijom" cele tabele, pa ako negde zapne, moram se opet javiti za pomoc. Ogromno HVALA!
Zdravo tolstoy,
Formula bi izgledala, npr. ovako: u D4 unesi "=IF(D5="";"";NOW())"
naravno bez navodnika. Celiju u koju je formula uneta formatiraj da
izgleda npr. ovako "15.06.2005 20:45" (dd.mm.yyyy hh:mm)
Problem je sto ce se formula u kojoj je funkcija NOW() automatski
preracunavati uvek kada uneses podatak u bilo koju celiju ili kada
otvoris workbook, pa ce uvek biti prikazano trenutno, a ne vreme kada je
unos izvrsen (sto je verovatno bio cilj).
Sve najbolje.
Ratko.
Formula bi izgledala, npr. ovako: u D4 unesi "=IF(D5="";"";NOW())"
naravno bez navodnika. Celiju u koju je formula uneta formatiraj da
izgleda npr. ovako "15.06.2005 20:45" (dd.mm.yyyy hh:mm)
Problem je sto ce se formula u kojoj je funkcija NOW() automatski
preracunavati uvek kada uneses podatak u bilo koju celiju ili kada
otvoris workbook, pa ce uvek biti prikazano trenutno, a ne vreme kada je
unos izvrsen (sto je verovatno bio cilj).
Sve najbolje.
Ratko.
@ Todra:
Prvo sto sam i sam probao, bilo je da uz pomoc IF f-je napravim sto mi treba, ali nije islo. I, kao sto si rekao, vrednosti za vreme se posle svake promene, menjaju u SVIM celijama, a to naravno nema smisla. Ono sto je Marko_L predlozio radi odlicno. Ja upravo sada trazim nacin da to prosirim na ceo radni list, tj. na ostale redove u okviru radnog lista; malo me zeza to sto broj takvih redova nije definisan, tj. ogranicen, ne zna se koliko ce u toku radnog dana biti izmena. Ja nemam bas nikakve veze sa programiranjem, ali, secam se nekih principa iz Fortrana, jos sa faxa od pre 15-tak godina, tada sam se sluzio "DO" petljama. Otprilike mi sada treba nesto slicno. Ne znam da li sam bas bio jasan....?
Prvo sto sam i sam probao, bilo je da uz pomoc IF f-je napravim sto mi treba, ali nije islo. I, kao sto si rekao, vrednosti za vreme se posle svake promene, menjaju u SVIM celijama, a to naravno nema smisla. Ono sto je Marko_L predlozio radi odlicno. Ja upravo sada trazim nacin da to prosirim na ceo radni list, tj. na ostale redove u okviru radnog lista; malo me zeza to sto broj takvih redova nije definisan, tj. ogranicen, ne zna se koliko ce u toku radnog dana biti izmena. Ja nemam bas nikakve veze sa programiranjem, ali, secam se nekih principa iz Fortrana, jos sa faxa od pre 15-tak godina, tada sam se sluzio "DO" petljama. Otprilike mi sada treba nesto slicno. Ne znam da li sam bas bio jasan....?
Nemam resenje, ali mozda pomogne upisivanje u kolone,
npr. blagajnica iznos upisuje u kolonu C a datum i vreme se upisuju u
kolonu B. Tako na raspolaganju imas i do 65536 celija za upis.
U tom slucaju bi kod koji je Marko_L predlozio trebalo modifikovati u:
"Private Sub Worksheet_Change(ByVal Target As Range)"
"If Target.Column = 3 Then Cells(Target.Row, 2) = Now"
"End Sub"
Sve najbolje.
Ratko.
npr. blagajnica iznos upisuje u kolonu C a datum i vreme se upisuju u
kolonu B. Tako na raspolaganju imas i do 65536 celija za upis.
U tom slucaju bi kod koji je Marko_L predlozio trebalo modifikovati u:
"Private Sub Worksheet_Change(ByVal Target As Range)"
"If Target.Column = 3 Then Cells(Target.Row, 2) = Now"
"End Sub"
Sve najbolje.
Ratko.
Da li neko moze da izmeni ovaj kod pa da ide po vertikali tj kada u celiji A1 upisem broj u celiji B1 da se pojavi vreme.
Evo koda od gore:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 Then Cells(4, Target.Column) = Now
End Sub
U primeru kada se u petom redu upise broj iznad njega se pojavi vreme a meni treba da idem ka dole.
Hvala
Evo koda od gore:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 Then Cells(4, Target.Column) = Now
End Sub
U primeru kada se u petom redu upise broj iznad njega se pojavi vreme a meni treba da idem ka dole.
Hvala
Potpis
saka
izmenjeno 1 put, poslednji put 3okc 01.08.2012. u 19:17
Izmene poruke
- 3okc01.08.2012. u 19:17zapis iz teksta poruke
Nasao sam na netu to sto mi treba evo kako izgleda:
Kod mene radi ok
pozz
[Edit: TAGOVI]
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Col B time will change if data in Col A is edited
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1:A10")) Is Nothing Then
With Target
If .Value <> "" Then
.Offset(0, 1).Value = Format(Now, "hh:mm:ss")
End If
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'Col B time will change if data in Col A is edited
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1:A10")) Is Nothing Then
With Target
If .Value <> "" Then
.Offset(0, 1).Value = Format(Now, "hh:mm:ss")
End If
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub
Kod mene radi ok
pozz
[Edit: TAGOVI]
Potpis
saka