Hjælp til makrokode.

Ret navne og tal på de der CONST linier.

Public Sub CopySkabelonTilSamleark()
    Const bHasHeadings As Boolean = True 'True hvis fra-arket har overskrifter ellers false
    Const sFromSheet As String = "Skabelon"
    Const sToSheet As String = "Samleark"
    Const lFirstCol As Long = 1 'kolonne A
    Const lLastCol As Long = 5 'kolonne E
    Dim wsFrom As Worksheet
    Dim wsTo As Worksheet
    Dim lRow As Long
    Dim lCol As Long
    Dim lFirstFromRow As Long
    Dim lNextInsertRow As Long
   
    Set wsFrom = ThisWorkbook.Worksheets(sFromSheet)
    Set wsTo = ThisWorkbook.Worksheets(sToSheet)
    lFirstFromRow = 1
    If bHasHeadings Then lFirstFromRow = 2
    lNextInsertRow = wsTo.Cells(wsTo.Rows.Count, 1).End(xlUp).Row + 1
   
    For lRow = lFirstFromRow To wsFrom.Cells(wsFrom.Rows.Count, 1).End(xlUp).Row
        For lCol = lFirstCol To lLastCol
            wsTo.Cells(lNextInsertRow, lCol).Value = wsFrom.Cells(lRow, lCol).Value
        Next lCol
        lNextInsertRow = lNextInsertRow + 1
    Next lRow
   
    Set wsFrom = Nothing
    Set wsTo = Nothing
End Sub

Hej flemmingdahl
Jeg er ikke helt med hvad du mener med " Ret navne og tal på de der CONST linier "
Filen jeg indlæser fra banken fylder altid Kolonne A til og med E men med forskellig antal rækker (Det afhænger af hvormange poster der er i den pågældende periode.)
Spørgsmål.
Kan man lave koden så den altid tager kolonne A til og med E fra række 1 til sidste række med data i.
MVH
Petert

Disse linier kode...

    Const bHasHeadings As Boolean = True
    Const sFromSheet As String = "Skabelon"
    Const sToSheet As String = "Samleark"
    Const lFirstCol As Long = 1 'kolonne A
    Const lLastCol As Long = 5 'kolonne E

...bestemmer hvordan makroen virker.

Som den står nu, så vil den tage fra række 2 til der ikke er flere data i, hvis du også vil have række 1 med, så skal du ændre den ene linie til
    Const bHasHeadings As Boolean = False

Dine ændringsmuligheder kan forklares således

    Const bHasHeadings As Boolean = True
-Er der kolonne titler i række 1 så TRUE, hvis ikke så FALSE

    Const sFromSheet As String = "Skabelon"
-Navnet på arket hvor data skal kopieres fra

    Const sToSheet As String = "Samleark"
-Navnet på arket hvor data skal kopieres til

    Const lFirstCol As Long = 1 'kolonne A
-Start kopieringskolonne 1 = A

    Const lLastCol As Long = 5 'kolonne E
-Slut kopieringskolonne 5 = E

Det var meget fint det virker super. Men jeg har opdaget et problem jeg ikke tænkte på da jeg stillede spørgsmålet.
Når jeg kopier eks Januar måned over til samleark er der ikke problemer. men når jeg kopier Febuar over, vil det så lægge sig efter januar eller hvad.?
Et andet spørgsmål er om man kan følgende.
1.Hvis man overfører en periode eks. 1.1.2008 til 6.2.2008 og næste gang eks overfører periode 1.2.2008 til 28.2.2008 så vil der værer fra 1.2 til 6.2 tale om dubletter.
Kan man i koden slette disse?
Oplys om jeg skal oprette et nyt spørgsmål?
Tusind tak for hjælpen
Petert

Hver linje i filen består følgende.
A=Dato B=tekst C=Valør dato D=Beløb E=Saldo
MVH
Petert

Når jeg kopier eks Januar måned over til samleark er der ikke problemer. men når jeg kopier Febuar over, vil det så lægge sig efter januar eller hvad.?
Ja, det var planen - lave en test, så du ved besked.

Kan man i koden slette disse?
NEJ, men det kan du jo hurtigt selv...!

Oplys om jeg skal oprette et nyt spørgsmål?
Jeg er ikke sikker på, at jeg laver det i denne uge, så det må du nok hellere.

Mange tak for hjælpen til en novise som mig. Jeg føler jeg her fået en meget god forklaring af dig.
MVH og god weekend
Petert

:-)