» »

Pomoč za excell

Pomoč za excell

Silikon ::

Zdravo!

V excellu bi rad naredi "avtomatski vnos" datuma v celico pod sledečim pogojem

če recimo v celico A1 vnesem neko besedilo , bi rad da se v celico B1 zapiše aktualen datum, oz če je celica a1 "polna" naj se v celico B1 zapiše datum

Lp
P5B, INTEL E8400 3Ghz, 2GB RAM, VGA GTX260 CORE 216 - 896 RAM, 550W

-žiga- ::

V B1 vpišeš formulo:
=IF(A1="";"";TODAY())

Zgodovina sprememb…

  • spremenil: -žiga- ()

BlackHole ::

Ampak naslednji dan se bo vrednost te celice spremenila v tekoči datum, tako da verjetno bo treba kak VBA uporabit.
LP Marko

-žiga- ::

Ampak naslednji dan se bo vrednost te celice spremenila v tekoči datum, tako da verjetno bo treba kak VBA uporabit.

Uf, na to pa še pomislil nisem. Sem potem malo googlal za kako preprosto rešitev, pa zgleda da bo res potreben VBA.

Sem pa naletel na neko drugo zanimivo reč, ki je prej nisem poznal. Če mogoče pride komu prav.
To insert a fixed date into a cell--a date that you don't want to change--hold down Ctrl while you press the semicolon ( ;) key. To insert the current time (without a date), press Ctrl-Shift-Semicolon.

smetko ::

Z spodnjim makrojem (VBA) dosežeš, da če v kolono "A" vpišeš karkoli, se ti v kolono 2 vpiše datum in čas ter v kolono 3 samo datum (uporabi kar rabiš), oziroma če ustrezno izbrišeš, se ti izbriše tudi ustrezne celice za datum.
To proceduro moraš v makrojih dati pod ustrezen list.

Private Sub Worksheet_Change(ByVal Target As Range)
For Each celica In Target ' to je potrebno če se spremeniš več celic hkrati
If celica.Column = 1 Then ' izvede če se spremeni kolona A
If IsEmpty(celica) Then ' izbriši datume, če izbrišeš celico
Cells(celica.Row, 2) = Empty 'izprazni celico 2 v ustrezni vrstici
Cells(celica.Row, 3) = Empty 'izprazni celico 3 v ustrezni vrstici
Else
Cells(celica.Row, 2) = Now ' v celico2 ustrezne vrstice vpiše datum in uro
Cells(celica.Row, 3) = Date ' v celico3 ustrezne vrstice vpiše datum in uro
End If
End If
Next
End Sub

Silikon ::

@smetko
Hvala, deluje!
P5B, INTEL E8400 3Ghz, 2GB RAM, VGA GTX260 CORE 216 - 896 RAM, 550W



Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

Excel in dinamično risanje grafa

Oddelek: Programiranje
81397 (1234) Good Guy
»

Excel: stolpce v vrstice ?

Oddelek: Programska oprema
85183 (4811) _jackson_
»

[Excel]Kako izvleči vrednost?

Oddelek: Programiranje
223797 (3520) Mobidick
»

[Excel]Vrednost celice = ime dokumenta

Oddelek: Programska oprema
314788 (4210) veteran
»

Prosim za pomoč pri VBA

Oddelek: Programiranje
352110 (1913) apachee

Več podobnih tem