til brug i et status ark har jeg brug for følgende funktion i nogle kolonner. Hvis jeg trykker på en celle at den så skriver dags dato. eks i celle J2 hvis jeg trykker på den tomme celle skrives i cellen 06-05-2017
Selve arket bruget til at markere status på en række del opgaver ( max 5 pr Linje) Det kunne også være hvis man i cellen kunne lave en "tom" firkant og når man så trykkede kom et grøndt tjek V i firkanten. Er der nogle der har erfaring i ovenstående. MVH petert
Skal det ikke være et ret begræsnset område? Ellers er du da lidt "låst" med hensyn til at lave noget andet med de celler, hvis der kommer en dato ved hver tryk på en celle!
Hej det kan godt være jeg har udtrykt mig forkert. Det skal være således at når en delopgave er udført ( dem er der 5 stk af) skal man kunne markerer dette. Helst uden at skulle skrive via et tastatur men med et tryk. Når alle 5 del opgaver er krydset af i en række, dette "job" klar til test. Hvordan laver man dette smartest ?
Udfordringen er at formler ikke vil kunne fastholde datoen flad, sådan at forstå at du kan bruge en løsning hvor du har en check box med en forbindelse til en celle, således cellen skriver true/false ved markering. Så kunne du have en celle ved siden af der har en formel a la =if(cellen med true/false;today();"")
Udfordringen er som sagt at datoen vil skifte hvis man åbner arket dagen efter.
Alternativt skal du ud i en vba løsning som kan indsætte datoen som en "flad" værdi.
Kan jeg så bruge en tjek box, hvor jeg skriver eks X når del operationen er udført. Når alle 5 del operationer er udført(og der er X i felterne) er denne række klar til test. Hvordan indsætter jeg en tjek box i en celle ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("d1:d10")) Is Nothing Then Target.Value = Date End If End Sub
Ret området D1:D10 til det område, du faktisk vil indsætte datoer i når du klikker.
Hej jkrons tak for indlæg. jeg er ikke særlig velbevandret i at indsætte makro i kodemodul. Området der skal kunne dette er kolonnerne j,k,l fra række 2 til 150. jeg kan ikke finde vejledning i Hjælp til at sætte makro ind i arkets kodemodul. Jeg kører excel 2010 Mvh Petert
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("j2:l150")) Is Nothing Then Target.Value = Date End If End Sub
Højreklik på arkfanen, for det ark, du skal bruge funktionen i. Vælg Vis programkode og kopier ovenstående til det vindue, der nu vises. Men prøv i en kopi af dit regneark først, da handlinger udført med makroer ikke kan fortrydes.
Hej JKrons Jeg har indsat koden i et kopi ark, men koden fejler når jeg skal afprøve den. hvis jeg prøver af gemme kopi arket kommer også en meddelelse
Følgende kan ikke gemmes i projektmapper uden makroer
My mistake. Jeg skulle selvfølgelig have skrevet, at når makroen er sat ind skal arket gemmes som Excel projektmappe med aktive makroer. Findes uden Gem som og så Filtype.
Synes godt om
Ny brugerNybegynder
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.
