Kør makro med HVIS sætning

prøv at se på denne fil:
http://web.gratisupload.dk/f/8v1whhawgi

den sætte tiden når man taster en måling ind.

må kunne ændres til dit behov....

Hej Bjarne

det ser ikke ud til at linket helt virker, det er som om der ikke er uploadet noget?

Bedste hilsner
Søren

ok så prøv denne
http://play48.com/gratisupload/userprofiles/HX3673RtZo/diabetes%20version%201%2E0%2E3%2Exlsm

Ellers send din mail adresse til mig du finder min under min profil..

Hej Bjarne

Det er jo guld værd :-) ... Bare lige et spørgsmål.
Jeg vil nemlig også gerne have det til at fungere med en dato.
Så derfor troede jeg lige jeg var klog og lavede den her (Den første er til tiden, som virker, den anden er hvor jeg bare prøver at lave det om til dato, dog melder den fejl "Ambiguous name detected: Worksheet change"):


Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" And Cells(1, Target.Column) = "Aktivitet" Then Target.Offset(0, 2) = Format(Time, "hh:mm:ss")
If Target = "" And Cells(1, Target.Column) = "Aktivitet" Then Target.Offset(0, 2) = ""
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" And Cells(1, Target.Column) = "PO" Then Target.Offset(0, 8) = Format(Date, "dd/mm/yyyy")
If Target = "" And Cells(1, Target.Column) = "PO" Then Target.Offset(0, 8) = ""
End Sub

Bedste hilsner
En meget glad Søren :-)

Ikke noget jeg skulle bare samle det under et, så jeg har fundet ud af det.....Du fortjener nogle point Bjarne.

Så lige et hurtigt spørgsmål alligevel (bare rent nysgerrighed).
Typisk når jeg laver lidt i arket, trækker celler eller deleter celler osv. så kommer der en "Run-time error: 13: Type mismatch" op, men den ser ikke ud til at have betydning nogen steder, men hvad skyldes dette?

den fejl ved jeg hvad skyldes, men godt du fik det til at virke

ups der mangler et ikke, jeg ved ikke hvad den fejl skyldes...