Låse et =idag() felt når der står 100 i et andet felt

En lille tilføjelse...

Der er ca. 50 felter som skal have denne funktion hver for sig.

Det tror jeg ikke de kan med en formel, du kan kopiere feltet og så indsæt speciel værdier, i samme felt, husk celle formatet som datotid.
Men hvis det skal ske automatisk, kan det gøres med en Makro.

Hej Kabbak,

Det må gerne ske med en makro :)

Hvilke celler har du hvor tallet 100 forekommer og hvilke celler dtår formlen i. ?

Koden sættes i Arkets modul.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then ' Ret "A1:A10" til det område der kan tastes 100 i
If Target.Value = 100 Then ' Hvis det ikke skal være værdien 100, rettes det her
Range("b" & Target.Row) = Range("B" & Target.Row).Value ' Ret"B" til den kolonne der har Formlen Now()
End If
End If
End Sub

der skal stå 100 i kolone G, og det er så i hveranden celle nedefter hvor der kan komme til at stå 100. Det er så ud for hvert af de felter datoen for hvornår man har skrevet 100 skal stå.

Den kode du har skrevet, der retter så ikke datoen næste gang man åbner arket vel?? hvis der står 100 i et felt

Hvor står datoen ?

Koden virker ved at den sletter din formel og skriver det der stod i ren datoformat

ok, jeg tester det lige imorgen

Hej Kabbak,

Jeg tror ikke jeg kan få det til at virke, hvordan kan jeg se om det virker??

Hvis du I B1, skriver = Idag()
Nu skriver du forskellige værdier i A1, tjek hver gang om formlen er i B1.
husk at gå ud af cellen A1 efter ændring.

Skriv så 100 i A1 og gå ud af cellen, så skal formlen i B1 være væk og det er kun datoen der står der.

formel bliver ved med at være der

Har du koden til at ligge i arkModulet

Højreklik på arkfanen, vælg vis programkode, der skal den være.

Nej jeg havde oprettet et modul og lagt den der ind. Men nu ligger den det rigtige sted og det virker bare helt perfekt!!!

Mange tak :)

Smid lige et svar

et svar ;-))

Tak for hjælpen

tak for point.

lige en lille ting mere, kan man få den til at lvae det til bage igen, hvis nu man taster 100 et forkert sted??

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then ' Ret "A1:A10" til det område der kan tastes 100 i
If Target.Value = 100 Then ' Hvis det ikke skal være værdien 100, rettes det her
Range("b" & Target.Row) = Range("B" & Target.Row).Value ' Ret"B" til den kolonne der har Formlen Now()
Else
Range("b" & Target.Row).Formula = "=today()"' sætter formlen igen
End If
End If
End Sub

Du behøver ikke at taste formlen ind nu, den kommer automatisk ved alle værdier forskellig fra 100

Ja men det er jo bare utroligt, der kører bare :)

Du er en guttermand!!