automatisk dato i kollonne

Nu er jeg ikke sikker på at jeg forstår dig korrekt, men denne makro skriver dato og tid i kolonne J, når der rettes i kolonne B.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then
  Exit Sub
Else
  Application.ScreenUpdating = False
  ActiveCell.Offset(0, 8) = Format(Now(), "dd-mmm-yyyy hh:mm")
End If
Application.ScreenUpdating = True
End Sub

Hvis markøren flyttes ned efter indtastning skal offset ændres til offset(-1, 8)

Jeg er ikke sikker på jeg helt har forstået hvad du vil, men måske dette kan bringe dig videre:

Nedenstående stump kode i det pågældende worksheet gør det at den hvis der vælges en tom celle (med mus eller tab) i kolonne J, så udfylder den med aktuel dato/tid. Hvis der vælges mere end 1 celle, gør den ikke noget, og hvis der allerede står noget overskrives det ikke.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 10 And Target.Cells.Count = 1 And Target.Value = "" Then
        Target.Value = Now
    End If
End Sub

Hej lycan

Følgende kode indsætter dato og klokkeslet i den aktive celle kolonne J, så snart en celle i kolonne tilgåes.

Koden skal ligge i Thisworkbook modulet i VBA editoren:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
  If Target.Column = 10 Then

      Target.Value = Now()
  End If

End Sub


Med venlig hilsen, Nicolai

Nej, jeg tror det er sådan her han mener:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("J:J")) Is Nothing Then
  Exit Sub
Else
  Application.ScreenUpdating = False
  ActiveCell.Offset(0, 0) = Format(Now(), "dd-mmm-yyyy hh:mm")
End If
End Sub

Ups ... der mangle et J

Følgende kode indsætter dato og klokkeslet i den aktive celle kolonne J, så snart en celle i kolonne j tilgåes.

He, he - forvirringen er total. Men håber at nogen af os har ramt det der er brug for :)

altsaa det jeg gjorde var bar at tage NOW formlen men saa aendrede tiden sig hver gang jeg satte en ny ind..

Hvor saetter jeg koden ind>

Hvis den ikke skal skifte tiden, så sæt dette ind under dit ark i vba hvor du vil have koden skal virke.

alt+F11 = VBA

----------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("J:J")) Is Nothing Then
  Exit Sub
Else
  Application.ScreenUpdating = False
  If ActiveCell.Offset(0, 0) = "" Then
  ActiveCell.Offset(0, 0) = Format(Now(), "dd-mmm-yyyy hh:mm")
  Else
  End If
End If
End Sub

jeg har nu sat koden ind, men jeg kan ikke faa den til at virke? den er ikke i View macros...

men naar jeg trykker ALT+F11 saa staar den der.

jokerper, skal jeg saette den ned under den foerste kode? ogsaa aendre den sig ikk i f.eks J11 naar jeg trykker paa J12?

Under ark 1
eller
sheet 1 (engelsk version)

Alt efter hvor du skal bruge koden.

Det virker fint hos mig den indsætter aktuel dato/tid hver gang jeg hopper ind over kolonne J hvis cellen er tom.

error note:

The following features can not be saved in macro-free-workbooks.

VB project.

to save a file with these features, click No, and then choose a macro-enable file type in the file type list.


??????? blank kan du evt give mig en step by step torturial?

Hvis du forestiller dig et skema som udfyldes hen ad rækkerne, så når du når til kolonne J så indsætter den dato/tid.

Hvis du så udfylder en ny række, så vil den i den nye række indsætte dato/tid igen der.

Retter du i en række som der er udfyldt så overskriver den ikke tiden, som koden er nu ellers skal bruge den fra min kommentar:

If Intersect(Target, Range("J:J")) Is Nothing Then
  Exit Sub
Else
  Application.ScreenUpdating = False
  ActiveCell.Offset(0, 0) = Format(Now(), "dd-mmm-yyyy hh:mm")
End If
End Sub

Så opdaterer den tiden i cellen.

kan du adde mig paa MSN : jimmy_moll@hotmail.com

2007 version

.xlsm

Er macro baseret.

GREAT DET VIRKER!!! fedest tusinde tak Jokerper! hvordan giver jeg dig pointsne?

og er det muligt at LAASE alle felter undtagen nogle enkelte kolloner?

Svar, det må du lige uddybe...

Bare accepter nederst på siden.

Igen mange tak, men er det saadan du ku taenke dig resten af mine point? har lige to spoergsmaal mere nemlig, hvis du lige adder mig paa msn ka jeg lige uddybe?

Jeg  har desværre ikke msn.

Men bare skriv

1)
vil gerne goere saa jeg ikke kan skrive i J kollonnen men kun marker den saa datoen kommer ind saa den ikke kan aendres..

og laase alle andre kollonner og aendre J kolloens Macro kode til kolonne G

så brug denne kode i stedet for:  Ark1.Unprotect/  Ark1.protect

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("J:J")) Is Nothing Then
  Exit Sub
Else
  Application.ScreenUpdating = False
  If ActiveCell.Offset(0, 0) = "" Then
  Ark1.Unprotect
  ActiveCell.Offset(0, 0) = Format(Now(), "dd-mmm-yyyy hh:mm")
  Ark1.Protect
  Else
  End If
End If
End Sub

skal jeg bare saette den ind neden under den foerste???

Så skal du nok bare lige markere hele arket og så vælge ingen celler som låste.

Maker hele arket og højre klik og vælg formater celler og vælg beskyttelse fjern fluebenet i lås celler.

Overskriv koden

nu den helt gal, overskrev koden fra det med dato i J, og nu hopper den ind i MVA med en error boks.. :S

Vælg end stop eller stop debug og prøv igen.

Du skal bare indsætte dette:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("J:J")) Is Nothing Then
  Exit Sub
Else
  Application.ScreenUpdating = False
  If ActiveCell.Offset(0, 0) = "" Then
  Ark1.Unprotect
  ActiveCell.Offset(0, 0) = Format(Now(), "dd-mmm-yyyy hh:mm")
  Ark1.Protect
  Else
  End If
End If
End Sub

Debugged den, og saa gaar den ind i koden og marker ARK1 unprotected, aendre den os J kolonnen (dato og tid) til G?

Marker kolonne a til i og højre klik og vælg formater celler og vælg beskyttelse fjern fluebenet i lås celler.

I menu linien "Gennemse" kan du vælge beskyt ark.

saa langt saa godt nu mangler jeg datoerne og tiden som vi havde i kollonne J til at blive kollonne G

Check din mail : jimmy_moll@hotmail.com

Tjek mail.

Ændre ark1 til sheet1.unprotect

Så virker det..

Så har du den igen - tjek mail.

er jeg lidt besvaerlig? :b
hehe..

well.. tid og dato er stadig i J kolonnen. (sku gerne vaere i G)
og jeg vil have at naar jeg har ramt G kollonen at den hopper tilbage til B i stedet for I.

Tjek din mail...

det er den samme du sendte foer..

:S

kan du ik bar skrive mig koden til hvordan jeg faar Dato og tid ind i G kolonnen saa leger jeg mig frem til resten med den info og traening du har laert mig.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("G:G")) Is Nothing Then
  Exit Sub
Else
  Application.ScreenUpdating = False
  If ActiveCell.Offset(0, 0) = "" Then
  Sheet1.Unprotect
  ActiveCell.Offset(0, 0) = Format(Now(), "dd-mmm-yyyy hh:mm")
  Sheet1.Protect
  ActiveCell.Offset(1, -5).Select
    Else
  End If
End If
End Sub

sidste spoergsmaal  jeg vil gerne have at naar jeg trykker enter skubber den bar det jeg har skrevet i boksen OPad i samme boks saa jeg ka skrive mere i samme.

med andre ord at enter ik skifter linje men bar laver et hak som i word.

Prøv lige denne kode:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("G:G")) Is Nothing Then
  Exit Sub
Else

If ActiveCell.Offset(0, 0) <> "" Then
ActiveCell.Offset(1, -5).Select
ElseIf ActiveCell.Offset(0, 0) = "" Then
  ActiveCell.Offset(0, 0) = Format(Now(), "dd-mmm-yyyy hh:mm")
  ActiveCell.Offset(1, -5).Select
    Else
  End If
End If
End Sub


Ser lige om jeg har tid til det andet du spørger om...

Sådan her:

Range("a:f").WrapText = True

hvor ska jeg saette den ind henne?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a:f").WrapText = True
If Intersect(Target, Range("G:G")) Is Nothing Then
  Exit Sub
Else

If ActiveCell.Offset(0, 0) <> "" Then
ActiveCell.Offset(1, -5).Select
ElseIf ActiveCell.Offset(0, 0) = "" Then
  ActiveCell.Offset(0, 0) = Format(Now(), "dd-mmm-yyyy hh:mm")
  ActiveCell.Offset(1, -5).Select
    Else
  End If
End If
End Sub

mente den med enterknapper saa jeg ik gaar en linje ned men bliver i samme boks og gaar en linje ned i den. som om den faktisk er en tekst boks???

Du skal bare blive ved med at skrive i cellen så flytter det sig. Det vil nok ikke være godt at lave om på enter funktionen. men så brug alt+enter hvis du ønsker større linie anstand.

den nye kode virker ikke, faar error fejl END DEBUG igen, og den bliver ved. selvom jeg end den.

og hver gang jeg lukker den ned saa forsvinder koden?? saa jeg skal saette den ind paa ny. altsaa den der virkede. venligst svar tilbage paa email, det ville vaere fedt hvis du gider sende mig en guide til hvordan jeg gemmer den FAST paa excel filen saa jeg ikke behoever at skrive den hver gang jeg skal bruge arket.

Koden fejler ikke noget:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a:f").WrapText = True

If Intersect(Target, Range("G:G")) Is Nothing Then
  Exit Sub
Else

If ActiveCell.Offset(0, 0) <> "" Then
ActiveCell.Offset(1, -5).Select
ElseIf ActiveCell.Offset(0, 0) = "" Then
  ActiveCell.Offset(0, 0) = Format(Now(), "dd-mmm-yyyy hh:mm")
  ActiveCell.Offset(1, -5).Select
    Else
  End If
End If

End Sub

men den gemmer ikke Koden naar jeg gemmer excel og aabner den igen saa koden er koden bar helt vaek fra VMA eller hva det sted med koderne hedder..

du faar et screen af mit problem og selve filen

Så har du den.