flyt celleværdier til højre

Kan du ikke bare markere det hele copy-paste det 1 plads til højre. Det er da det nemmeste

det kan jeg godt, det er det jeg gør nu, men det er ikke det som jeg ville

Jeg kan løse problemet vha. en lille makro, som kan tildeles en tastekombination eller, som jeg har gjort, en knap på værktøjslinien.

Makroen er her:

Sub Nye_tider()
'
' Nye_tider Makro
' Makro indspillet 23-02-2003 af Karl Ole Lundsgaard
'

'
    Columns("E:E").Select
    Selection.ClearContents
    Columns("D:D").Select
    Selection.Cut
    Columns("E:E").Select
    ActiveSheet.Paste
    Columns("C:C").Select
    Selection.Cut
    Columns("D:D").Select
    ActiveSheet.Paste
    Columns("B:B").Select
    Selection.Cut
    Columns("C:C").Select
    ActiveSheet.Paste
    Range("B3").Select
End Sub

Prøv om ikke den opfylder dit ønske.

Hilsen KOL

det er ikke helt det jeg mener, feks er det kun i række 11 og 23 at jeg indtaster noget den ene dag, og hvor alle de andre felter i = 00:00:00, og det duer ikke at kopiere over

Public Sub flyt()
Worksheets("ark1").Activate
For C = 2 To 45
  If Cells(C, 2).Value <> "00:00:00" Then
Cells(C, 5) = Cells(C, 4)
Cells(C, 4) = Cells(C, 3)
Cells(C, 3) = Cells(C, 2)
Cells(C, 2) = "00:00:00"
End If
Next
End Sub


Dette er en makro, sæt den ind i et modul.

Ret ark navnet til dit ark.

Når du er færdig med at taste ind kør så makroen.

hilsen Kabbak

jeg kan ikke få det til at køre rigtigt, jeg kalder flyt i calculate, men så kører den alt for lang tid, uden at det virker

kal den direkte med makro kør, eller lav en knap til at køre den.

kal = kald

jeg kan godt få det til at virke, hvis jeg ikke bruger calculate, men det var det som jeg syntes var det bedste, det skulle køre nå man trykke på enter

hvis du har auto calculate på, vil den køre mange gange, derfor er det ikke godt.

Når du trykker enter, den er svær at fange på cellen.

jeg bygger lidt videre på din løsning, så får jeg nok et fornuftigt resultat