CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

joergensenmartin Juniormester

28. august 2012 - 09:16 Der er 11 kommentarer og
1 løsning

Knap til tid-stempel

Kan man lave en knap i excel der indsætter klokkeslet i et bestemt felt??
Hvis jeg nu laver en knap i kolonne A, har en dato i B og ønsker et tid-stempel NU() i kolonne c.
Det skal så være sådan at, hvis der i forvejen står noget i kolonne c så skal den ikke overskrive det, men indsætte tid i kolonne d i stedet for.
Det skal bruges til at stemple ind og ud fra arbejde, så jeg ikke skal skrive tiden men bare trykke på knappen.
Det er vel moget med at afspille en makro, men der er jeg total grøn, og aner ikke hvordan det virker :-/

Formlen kunne vel se nogenlunde sådan ud:

=HVIS(C1<>"";NU();(HVIS(D1<>"";NU();"")))

Den virker naturligvis ikke, da den indsætter tiden i det felt den er skrevet i og ikke i det felt jeg ønsker

Håber det gav mening :-)

PS: en anden tanke; kan man få knappen til at flytte sig så den placerer sig ud for den række i kolonne b der indeholder dags dato eller er jeg nød til at lave en knap på hver række??

Synes godt om

natkatten Mester

28. august 2012 - 09:39 #1

Kan hurtigt laves, men du kan også blot trykke på genvejstasten
<CTRL> + <;> (altså trykke på Ctrl-Shift-semikolon)

Synes godt om

joergensenmartin Juniormester

28. august 2012 - 12:38 #2

Det kunne selvfølgelig bruges, men jeg ville hellere have knappen. Det virker mere intuitivt, og derfor nemmere at gå til hvis der var andre af mine kolleger der kunne tænke sig at bruge systemet :-)

Synes godt om

store-morten Ekspert

28. august 2012 - 20:06 #3

Måske denne:

Sub tid_stempel()
Dim Svar As Integer

For Each c In Range("B:B").Cells
If c.Value = Date Then
If c.Offset(0, 1) = "" Then
Svar = MsgBox("Vil du stemple ind den: " & Date, vbYesNo, "Tids stempling")
If Svar = vbYes Then c.Offset(0, 1) = Format(Time, "hh:mm")
Exit Sub
End If
If c.Offset(0, 2) = "" Then
Svar = MsgBox("Vil du stemple ud den: " & Date, vbYesNo, "Tids stempling")
If Svar = vbYes Then c.Offset(0, 2) = Format(Time, "hh:mm")
Exit Sub
End If
Exit Sub
End If
Next c
End Sub

Synes godt om

joergensenmartin Juniormester

28. august 2012 - 20:53 #4

kan ike få det til at virke, men som jeg siger så er jeg også helt grøn med vba....

det jeg gjorde var at gå ind i vba dobbeltklikke på denne projektmappe kopiere din tekst ind; går til bage til arket; sætter en knap ind og når kassen til at vælge en makro dukker op vælger jeg den jeg lige har lavet...

den arbjder godt nok når jeg trykker på knappen, men der sker ikke noget????

Synes godt om

store-morten Ekspert

28. august 2012 - 21:02 #5

Der skal stå datoen i dag i kolonne B.
Den finder denne dato, og hvis cellen til højre er tom kommer der en boks op, som spørger om du vil stemple ind eller ud. Kort fortalt.

Synes godt om

store-morten Ekspert

28. august 2012 - 22:29 #6

Eksempel:
http://gupl.dk/684215/

Synes godt om

joergensenmartin Juniormester

29. august 2012 - 08:20 #7

Kanon :-) Det ser ud til at virke som jeg gerne vil have det. Det havde taget mig lang tid at finde ud af at lave det, når jeg ikke aner noget om makroer i forvejen :-)

Skriv et svar så jeg kan give point

Synes godt om

joergensenmartin Juniormester

29. august 2012 - 08:25 #8

Hov, lige et spørgsmål. Hvis jeg kopiere ark 1 til to så virker det ikke??? Jeg havede tænkt mig at lave et ark til hver måned og så omdøbe dem til "månedenavn"
Der må være et sted man kan sætte det til at virke på alle ark - uanset hvad de hedder???

Og tak for hjælpen :-)

Synes godt om

store-morten Ekspert

30. august 2012 - 09:42 #9

Jeg har flyttet makroen til et Modul
Oprettet 12 Ark/Faner
http://gupl.dk/684260/

Synes godt om

joergensenmartin Juniormester

30. august 2012 - 12:14 #10

mange tak for hjælpen :-)

Jeg har lige et ekstra spørgsmål som du måske også kan svarer på.

Hvordan får jeg den til at afrunde tiden. F.eks hvis jeg stempler ind mellem 6.45 og 7.15 så skriver den 7:00 og hvis jeg stempler ind mellem 7.15 og 7.45 så skriver den 7:30 - altså runder af til nærmeste halve time :-)

Ellers tak for hjælpen :-)

Synes godt om

joergensenmartin Juniormester

30. august 2012 - 12:19 #11

og så glemte jeg alligevel noget - den knap du har lavet - kan man ikke skifte farve på den???

Synes godt om

store-morten Ekspert

30. august 2012 - 14:59 #12

Ændret så der kan vælges at stemple 07:00/15:00 eller aktuelle tid.
Lavet knapper om til AktiveX
Vedlagt instruktion om farve skift at knapper.
http://gupl.dk/684269/

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
En formel som kan regne minutter om til timer... Af Oswald1 i Excel	3	21/01/202512:02	21/01/202512:52
Fejl meddelelse i excel 365 Af boro23 i Excel	4	21/01/202508:57	I går 20:34
Meddelelse ved dubblering af indhold Af h_s i Excel	3	20/01/202511:53	20/01/202514:37
Kæder til områder Af jetpet88 i Excel	1	20/01/202509:11	20/01/202509:38
Find og indsæt et tal i en "database" Af 1Dorte i Excel	4	18/01/202512:14	18/01/202521:35

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS