Kopiere data fra en celle til en anden

Har du set på funktionerne VOPSLAG eller LOPSLAG?

Når arket er blevet for stort (uoverskueligt), kan det så være fordi dine kolonne- og rækkeoverskrifter ikke er synlige i hele arket. I så fald kan du fryse dem.

Iøvrigt må jeg trække mit forslag vedr. VOP og LOP tilbage. Jeg tror alligevel ikke det er det rigtige til det du søger.

Ja men de kan ikke kopiere data. De kan hente fra en position, men da jeg skal indlægge data for flere medarbejdere hver dag, er jeg nød til at kunne "tømme" formen hver gang jeg har kopieret data så jeg kan tilføje ny data.

Håber det giver menning... Opslags funktionerne viser kun data, de flytter/kopierer det ikke, desværre

Mht størrelsen: Det er primært uoverskueligt fordi der efterhånden er mange medarbejdere og mange måneder i... jeg kører allerede med frosne vinduer. Desuden tror jeg at det vil være bedst på sigt at opfinde en funktion da også andre skal kunne tilføje i arket, og det stoler jeg ikke på som det er nu.:-(

Det kan formodentlig godt lade sig gøre at lave en makro der gør arbejdet, men umiddelbart ville jeg mene at det nærmere var en opgave for Access end Excel.

jkrons > Tænkte lidt over spørgsmålet, da jeg havde afsluttet iaftes. Og jeg er da overbevist om, at Excel kan klare opgaven, men jeg er enig med dig i dit synspunkt, at det er en opgave for Access.

Jeg er helt enig med jer begge, og har lavet et system der kan klare det uden problemer i access. Men vores kære it afd på jobbet vil ikke have access og jeg kan altså ikke bruge det.

Fyr IT-afd!!

prøv engang at beskriv lidt mere præcist i hvilke felter du skriver hvilke oplysninger (bare for en eller to medarbejdere), så kan en eller anden jo sætte sig og lave et "pænt" udkast til dig...

Jamen lad os tage den fra bunden:-)
Jeg har nogle medarbejdere som jeg skal have registreret nogle data for hver måned.
Hver måned er der to datatyper der skal gemmes: dato og score.

Som det er nu har jeg et data skema der ser sådan ud:
  1      2        3        4          5        6        7     
A Navn  okt_dato  okt_score nov_dato  nov_score dec_dato dec_score OSV OSV
B Jens
C Niels
OSV
OSV

Jeg vil så gerne have et ark, hvor jeg kan vælge medarbejder og måned, og så intaste dato og score værdi. Jeg forestiller mig jeg har en "overfør-knap" er kopierer det indtastede til de rigtige celler alt efter navn, måned og type.
Hvis skemaet for oven er helt hen i vejret må i gerne komme med bud på hvordan det kan gøres anderledes.

Mange tak for hjælpen so far!

Der blev stille hva? :0)

Jeg tænkte vi kunne lave det lidt nemmere: Hvis vi dropper månedsseperationen? Der er jo lige meget at regristrere hvilken måned det er registreret i når vi logger datoen. Altså: Når der tilskrives til datafilen skal der altså bare tilføjes i næste ledige celle ud for medarbejderen.

Hjælper det på det?

Dvs mit dataskema kunne se sådan ud:

          1    2    3    4    5    6    7
A Navn  dato  score dato  score osv osv
B Jens
C Niels
OSV
OSV

Udfyldt kunne det se sådan ud:
          1        2    3        4   
A Navn  dato    score dato      score
B Jens  10-10-04    85  10-11-04  80
C Niels 02-10-04    97  20-11-04  90

...f.eks.
Når så jeg skal tilføje data på Jens, skal der A5 indsættes en dato og i A6 en score

Håber det skaber klarhed

Sorry .... det var selvf B5 og B6

Skal din indtastning være i et andet ark, eller kan du bruge en formular til indtastningen?

Det må meget gerne være i et andet ark.

Jeg har et eksempel, hvor indtastningen sker i en formular, hvis du er interesseret.

Tja det er jeg vel. Kan sådan en formular egentlig ikke integreres i et ark vha kontrolelementer?

Kan du sende eksemplet til min mail? morten AT barnumit.dk

Her er en løsning, som virker uden formular. Den er baseret på, at du i cellerne A2, B2, og C2 indtaster henholdsvis Navn, Dato og Score.

Selve registreringen sker så længere nede i arket, så du kan se forskel på indtastningsceller (giv dem fx en anden farve) og registreringsceller.

Lav så en kommandoknap i regnearket (kontrolelementkanp, ikke fomularknap). Indsæt denne kode på knappen:

Dim nv As String
    Dim dt As String
    Dim sc As String
   
    nv = Range("a2").Value
    dt = Range("b2").Value
    sc = Range("c2").Value

    Cells.Find(What:=nv, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
       
    If IsEmpty(ActiveCell.Offset(0, 1)) Then
        ActiveCell.Offset(0, 1).Value = CDate(dt)
        ActiveCell.Offset(0, 2).Value = CSng(sc)
    Else
        Selection.End(xlToRight).Offset(0, 1).Value = CDate(dt)
        Selection.End(xlToRight).Offset(0, 1).Value = CSng(sc)
    End If
   
    Range("a2").Value = ""
    Range("b2").Value = ""
    Range("c2").Value = ""

Koden forudsætter at navnene allerede er skrevet i A-kolonnen og at der ikke er "huller" i rækkerne.

Jeg sender dig et eksempel på begge løsninger. Når du åbner arket, popper formularen automatisk frem. Så kan du afprøve den. Når du er færdig lukker du den bare. Derefter kan du afprøve den anden løsning, hvor du taster i de tre "gule" celler og klikker på knappen i arket.

Tak!! Kan du også lave det så den gemmer det i andet ark, f.eks. "data"?

Sendt.

Ikke lige pt, men jeg skal arbejde med det :-)

Hmmm...

Når jeg prøver løsningen uden formular får jeg en fejl;

Den skriver Compile error: Named argument not found
... og følgende tekst er markeret i debuggeren:
Cells.Find(What:=nv, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False,[[MARKERET SearchFormat:=]]False).Activate

Kan du løse det?

Ret koden på knappen til:

Private Sub CommandButton1_Click()
    Dim nv As String
    Dim dt As String
    Dim sc As String
   
    Application.ScreenUpdating = False
   
    nv = Range("a2").Value
    dt = Range("b2").Value
    sc = Range("c2").Value
   
    Worksheets("data").Select


    On Error GoTo ErrMsg

    Sheets("data").Cells.Find(What:=nv, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
       
    If IsEmpty(ActiveCell.Offset(0, 1)) Then
        ActiveCell.Offset(0, 1).Value = CDate(dt)
        ActiveCell.Offset(0, 2).Value = CSng(sc)
    Else
        Selection.End(xlToRight).Offset(0, 1).Value = CDate(dt)
        Selection.End(xlToRight).Offset(0, 1).Value = CSng(sc)
    End If
   
    Range("a2").Value = ""
    Range("b2").Value = ""
    Range("c2").Value = ""
   
    Sheets("Indtast").Activate
   
    Application.ScreenUpdating = True
   
    Exit Sub
   
ErrMsg:
    If Err.Number = 91 Then
        MsgBox "Den pågældende findes ikke i arket med data"
    Else
        MsgBox Err.Description
    End If
   
End Sub

Du taster i et ark, der hedder Indtast, og dine data ligger i et ark, der hedder Data. Alle navnene skal stadig eksistere i data inden du kan bruge knappen i Indtast. Hvis du taster et navn, der ikek eksiterer vises en meddelelsesboks, og derefter skiftes til data arket, så du kan oprette den pågældende. Så kan du skifte tilbage til indtastningsarket og klikke på knappen igen.

Jeg håver den seneste version kører uden problemer.

PS! Hvilken version af Excel kører du med?

Kanon! Bort set fra at den stadig giver mig den fejl, nu blot i en fejlbox. Jeg tilføjer så navnet og prøver igen, men det hjælper ikke....

Det er version 2000

Prøv at rette

Sheets("data").Cells.Find(What:=nv, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate


til

  Sheets("data").Cells.Find(What:=nv, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate

Jeg arbejder med 2002, og det er muligt at SearchFormat ikke eksisterede i 2000. Det kan jeg ikke lige huske.

Sådan så kopierer den løs.... bre en lille ting til: Hvis jeg udfylder tekst i stedet for tal i score så får jeg type mismatch. Har du lavet en datavalidering jeg kan fjerne? Jeg vil gerne kunne skrive en kort tekst ind i mellem....

Jeg smider lige nogle point efter dig om 2 minutter.

Fint. så skal du bare rette

ActiveCell.Offset(0, 2).Value = CSng(sc)
og
Selection.End(xlToRight).Offset(0, 1).Value = CSng(sc)

til

ActiveCell.Offset(0, 2).Value = sc
og
Selection.End(xlToRight).Offset(0, 1).Value = sc

Hold kæft hvor er du sej mester!! Det virker perfekt!

Så røg der point til jkros!

Tak for point.