Avatar billede hasbak Nybegynder
23. juni 2008 - 10:02 Der er 4 kommentarer

Overførelse

Jeg har et regneark som jeg gerne vil overfører nogle værdier fra.

Regnearket er en daglig indtastning, men jeg vil gerne overføre nogle af de indtastede værdier til et uge skema som gemmer dataen. Altså hvis f.eks indtaster data på en mandag, skal den overføre data til mandag i uge skemaet. Når jeg så indtaster tirsdag skal den selvfølgelig overfører det til tirsdag i ugeskemaet, men der skal stadig stå mandagens indtastning i ugeskemaet, så man kan sammenligne.
Avatar billede jkrons Professor
23. juni 2008 - 21:15 #1
Taster du altid i samem celle?
Avatar billede hasbak Nybegynder
23. juni 2008 - 21:20 #2
Ja det er altid samme celler som hentes fra
Avatar billede jkrons Professor
23. juni 2008 - 22:53 #3
Så er du nødt til at skulle omkring en makro, der - når du taster - finder dato og ugedag og så overfører til den korrekte placering.

Nendenstående makrp forudsætter, at du taster i A1 i ark 1. I Ark 2 har du så ugedagenes navne i A1:G1 og dagens registrering i cellen under, altså A2, B2 osv. Koden skal lægges i kodemodulet i Ark1.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1")) Is Nothing Then
        Select Case Weekday(Date, vbMonday)
            Case Is = 1
                Sheets(2).Range("a2").Value = Sheets(1).Range("a1").Value
            Case Is = 2
                Sheets(2).Range("b2").Value = Sheets(1).Range("a1").Value
            Case Is = 3
                Sheets(2).Range("c2").Value = Sheets(1).Range("a1").Value
            Case Is = 4
                Sheets(2).Range("d2").Value = Sheets(1).Range("a1").Value
            Case Is = 5
                Sheets(2).Range("e2").Value = Sheets(1).Range("a1").Value
            Case Is = 6
                Sheets(2).Range("f2").Value = Sheets(1).Range("a1").Value
            Case Is = 7
                Sheets(2).Range("g2").Value = Sheets(1).Range("a1").Value
        End Select
    End If
End Sub
Avatar billede jkrons Professor
23. juni 2008 - 22:54 #4
Ovenstående forudsætter selvfølgelig at pcens kalender er indstillet korrekt.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester