Gemme data fra dags dato

Hej nunbaggi

Hvor kommer de data fra, som man skal kunne gemme/logge på et andet ark ?

Og hvad mener du med: "og næste gang der blev trukket gemte excel i næste række" ?

mvh Nicolai

Hej Nicolai
De data som skal gemmes er på ark1, og skal gemmes på ark2
og der skulle stå "næste gang der bliver trykket, gemmer excel i næste række på ark2"

EKS.
100    1,3    6,8    0,3    1,8    0,0    39,1
Hvert tal står i hver sin rude i ark1 og skal "logges" i ark2 på samme måde det står i ark1

Prøv denne funktion. Du skal selv udfylde første række i ark2; ellers kommer teksten til at starte i 2. række.

Application.ScreenUpdating = False

    Sheets("Ark1").Range("A1:G1").Copy
    Sheets("Ark2").Activate
    Range("A10000").End(xlUp).Offset(1, 0).Activate
    ActiveCell.PasteSpecial

    Application.CutCopyMode = False
    Sheets("Ark1").Activate
    Range("A1").Select
Application.ScreenUpdating = True

Er du bekendt med at bruge VBA? Eller kan jeg sagtens guide dig igennem.

Mvh Thyge

Det der forstår jeg slet ingenting af desværre :-)

Helt ok :)

VBA (Visual Basic for Applications) er et program i Officepakken som bl.a. bruges til at lave funktioner/programmering - også kaldet "makroer".

Det du gør i Excel er at trykke på fanen -Udvikler- og så vælge -Visual Basic-. Det åbner et nyt vindue - VBA. For at du kan lave en funktion (makro) skal du i VBA trykke på -Insert- og vælge -Module- - det åbner en rude hvor du kan skrive din funktion - altså programmere din makro.

Alle makroer starter med at man skriver ordet "Sub", trykker mellemrum og giver makroen et navn, f.eks. "Makro1". Navnet kan ikke indeholde mellemrum, så hvis du skriver flere ord skal du bruge "underscore"-tegnet, f.eks. "Sub dags_dato". Når du har gjort det trykker du enter og ser at VBA indsætter "End sub".

Imellem "Sub" og "End sub" indsætter du din funktion - altså den jeg har skrevet ovenfor. Den fortæller computeren hvad den skal gøre når du kører makroen.

Det næste du gør at at gå ind i Excel igen og (stadig under fanen -Udvikler-) vælger -Indsæt- og i øverste venstre hjørne vælger knap. Knappen indsætter du hvor du selv synes. I det vindue der åbnes vælger du hvilken makro knappen skal køre - her dobbeltklikker du på det navn som du har givet makroen og voila, så skulle det gerne virke.

Jeg håber det er til at gå til.

Tak for svaret.. det lyder til at være simpel.. Men jeg kan slet ikke finde fanen udvikler. Jeg bruger 2007 version.

Klik på knappen i øverste venstre hjørne (Microsoft Office-knappen), og klik på Excel-indstillinger nederst til højre. Marker derefter -Vis fanen Udvikler-.

Bare glem det. har fundet fanen.. jeg prøver lige dit forslag :-)
Tak

Synes ikk jeg kan få det til at virke.

Jeg skal have logget ruderne C86:I86 fra ark1
De skal gemmes i ark3, det er tomt lige nu så kan ligges hvor som helst. kunne være C1:I1
Hvordan skulle hele koden se ud så??

Sub Dit_makronavn()

Application.ScreenUpdating = False

    Sheets("Ark1").Range("C86:I86").Copy
    Sheets("Ark3").Activate
    Range("A10000").End(xlUp).Offset(1, 0).Activate
    ActiveCell.PasteSpecial

    Application.CutCopyMode = False
    Sheets("Ark1").Activate
    Range("C86").Select

Application.ScreenUpdating = True

End Sub

Nu har jeg næsten fået det til at virke.
Jeg får ikk de tal til at stå som jeg gerne vil.
16-08-2010    #REFERENCE!    #REFERENCE!    #REFERENCE!    #REFERENCE!    #REFERENCE!    #REFERENCE!

Hvor det skulle være
16-08-2010    36,1    574,4    5,0    53,3    0,0    2594,0

Der hvor der står #referance er en sum af nogle tal.

Det ser ud til at excel logger formlerne i stedet for de tal jeg gerne vil have. Kan det lade sig gøre at gøre det på en anden måde?

Hej nunbaggi


Som C_Thyge skriver i #5, så kopier følgende kode ind mellem "Sub" og "End sub" i din allerede oprettetde kommandoknap:



Dim r As Integer


Application.ScreenUpdating = False

    'kopier cellerne "C86:I86" på Ark 1
    Sheets("Ark1").Range("C86:I86 ").Copy

    'gør Ark3 til det aktive ark
    Sheets("Ark3").Activate
   
    'vælg celle "C" i første række
    ActiveSheet.Range("C1").Select
   
   
    'hvis den aktive celle er tom
    If ActiveCell.Value = "" Then
       
        'indsæt det kopierede, startende fra den aktive celle
        ActiveCell.PasteSpecial

        'fjern kopimarkeringen fra Ark1
        Application.CutCopyMode = False

        'gør Ark1 til det aktive ark
        Sheets("Ark1").Activate

        'vælg celle "A1" på det aktive ark
        Range("A1").Select


    Else
   
        'tildel variablen r, rækkenummeret på sidste række med data
        r = ActiveSheet.Range("C65536").End(xlUp).Row

   
          'vælg celle "C" i rækken efter sidste række indeholdende data
        ActiveSheet.Range("C" & r + 1).Select

        'indsæt det kopierede, startende fra den aktive celle
        ActiveCell.PasteSpecial

        'fjern kopimarkeringen fra Ark1
        Application.CutCopyMode = False

        'gør Ark1 til det aktive ark
        Sheets("Ark1").Activate

        'vælg celle "A1" på det aktive ark
        Range("A1").Select
       
    End If


Application.ScreenUpdating = True



------------------ o -------------------------

Koden kopierer værdierne fra "C86:I86" på Ark 1 .... og sætter dem ind på Ark 3 i "C1:I1".

Og du behøver IKKE selv, at taste noget i første række på Ark 3.


Mvh Nicolai

Hej Nicolai

Jeg kan ikke få din kode til at virke.

Hej nunbaggi

Hmm ?

Hvis du er interesseret ? ... må du gerne maile mig dit regneark, så skal jeg kigge på det.

Ellers så kan jeg maile dig en test Excel fil med knap og kode ??

Mvh Nicolai

Jeg kunne rigtig godt tænke mig at lære det selv..
Men vil gerne have din hjælp. Der er en del der skal laves før mit projekt er færdig endnu, og den her kode er kun lidt af det :-)
Du må meget gerne sende den testfil til at starte med ;-)

Hej nunbaggi

Har du en mailadresse, som jeg kan poste Excel filen til ?

mvh Nicolai

Hej nunbaggi,

Jeg smuttede en tur på ferie i sidste uge, men beklager at jeg ikke har svaret.

Jeg håber Nicolai har kunnet løse dit problem.

Hej Nunbaggi

Hermed koderne bag click_hændelserne på dine 2 knapper: "cmdGemSomNyRet" og "cmdLogKostForIdag" ...



Private Sub cmdGemSomNyRet_Click()
Dim r As Integer

'sæt Excel´s opdatering ud af kraft
Application.ScreenUpdating = False


    'kopier cellerne "C13:I13" på Kostplan
    Sheets("Kostplan").Range("C13:I13").Copy

    'gør Fødevarer til det aktive ark
    Sheets("Fødevarer").Activate
   
    'vælg celle "C" i tiende række
    ActiveSheet.Range("C10").Select
   
   
    'hvis den aktive celle er tom
    If ActiveCell.Value = "" Then
       
            'indsæt det kopierede, startende fra den aktive celle
            ActiveCell.PasteSpecial (xlPasteValues)
   
            'fjern kopimarkeringen fra Kostplan
            Application.CutCopyMode = False
   
            'gør Kostplan til det aktive ark
            Sheets("Kostplan").Activate
   
            'vælg celle "C13" på det aktive ark
            Range("C13").Select


    Else
   
            'tildel variablen r, rækkenummeret på sidste række indeholdende data
            r = ActiveSheet.Range("C65536").End(xlUp).Row
   
       
              'vælg celle "C" i rækken efter sidste række indeholdende data
            ActiveSheet.Range("C" & r + 1).Select
   
            'indsæt det kopierede, startende fra den aktive celle
            ActiveCell.PasteSpecial (xlPasteValues)
   
            'fjern kopimarkeringen fra Kostplan
            Application.CutCopyMode = False
   
            'gør Kostplan til det aktive ark
            Sheets("Kostplan").Activate
   
            'vælg celle "C13" på det aktive ark
            Range("C13").Select
       
    End If


'slå Excel´s opdatering til igen
Application.ScreenUpdating = True
End Sub



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



Private Sub cmdLogKostForIdag_Click()
Dim r As Integer

'sæt Excel´s opdatering ud af kraft
Application.ScreenUpdating = False


    'kopier cellerne "C92:I92" på Kostplan
    Sheets("Kostplan").Range("C92:I92").Copy

    'gør Kostlog til det aktive ark
    Sheets("Kostlog").Activate
   
    'vælg celle "B" i fjerde række
    ActiveSheet.Range("B4").Select
   
   
    'hvis den aktive celle er tom
    If ActiveCell.Value = "" Then
       
            'indsæt det kopierede, startende fra den aktive celle
            ActiveCell.PasteSpecial
   
            'fjern kopimarkeringen fra Kostplan
            Application.CutCopyMode = False
   
            'gør Kostplan til det aktive ark
            Sheets("Kostplan").Activate
   
            'vælg celle "C92" på det aktive ark
            Range("C92").Select


    Else
   
            'tildel variablen r, rækkenummeret på sidste række indeholdende data
            r = ActiveSheet.Range("C65536").End(xlUp).Row
   
       
              'vælg celle "B" i rækken efter sidste række indeholdende data
            ActiveSheet.Range("B" & r + 1).Select
   
            'indsæt det kopierede, startende fra den aktive celle
            ActiveCell.PasteSpecial
   
            'fjern kopimarkeringen fra Kostplan
            Application.CutCopyMode = False
   
            'gør Kostplan til det aktive ark
            Sheets("Kostplan").Activate
   
            'vælg celle "C92" på det aktive ark
            Range("C92").Select
       
    End If


'slå Excel´s opdatering til igen
Application.ScreenUpdating = True
End Sub


Med venlig hilsen, Nicolai