Samle data fra flere ark til en forside

Ja det kan man godt

Hedder alle dine ark det samme og så bare et nummer?

Hej

de vil hedde "Optalt + dato(format åååå-mm-dd)"

Laver lige en til dig....

Prøv nedenstående. Hvis "Totalskema" er helt tomt, vil de første data blive sat ind i række 2, men jeg går ud fra, at du har en overskrift i "Totalskema". Hvis du har overskrift i "Optalt..." arkene, som ikke skal kopieres til "Totalskema", så skriv "A2" i stedet for "A1".

Sub CollectData()
    Dim wks As Worksheet, NextRow As Integer

    Application.ScreenUpdating = False
    For Each wks In Worksheets
        If Not wks.Name = "Totalskema" Then
            wks.Activate
            Range("A1").Select
            Range(Selection, Selection.End(xlDown).End(xlToRight)).Select
            Selection.Copy
            Worksheets("Totalskema").Activate
            NextRow = Range("A65536").End(xlUp).Row + 1
            Cells(NextRow, 1).Activate
            ActiveSheet.Paste
        End If
    Next wks

    Application.ScreenUpdating = True
End Sub

Hej mowi

Der melder fejl på linien "ActiveSheet.paste"

Hej mowi

Efter lidt redigering af din makro, har jeg fået det til at fungere
men jeg har stadig fejl i ovennævnte, hvad skyldes det?

Sub CollectData()
    Dim wks As Worksheet, NextRow As Integer

    Application.ScreenUpdating = False
    For Each wks In Worksheets
        If Not wks.Name = "Totalskema" Then
            wks.Activate
            Range("A2:D2").Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.Copy
            Worksheets("Totalskema").Activate
            NextRow = Range("A65536").End(xlUp).Row + 1
            Cells(NextRow, 1).Activate
---fejl---"ActiveSheet.Paste"---fejl---
        End If
    Next wks
   
    Application.ScreenUpdating = True
End Sub

Kender i nogle gode stedet man kan læse/lære om disse makroer??

Det forstår jeg ikke - hvorledes lyder fejlbeskeden?

Jeg har prøvet at køre den justerede version - det virker fint her. Hvorfor vælger du D2 - har du ikke kun data i kolonnerne A, B og C?

Hej mowi
kontraordre fra chefen, derfor er den udvidet til A+B+C+D
Grunden til at jeg ændrede formlen til "A2:D2" var at der ikke altid er indhold i både B+C

Jeg får en "Runtime error 1004"
Jeg har mulighed for "End" eller "Debug"
Hvis jeg vælger "Debug" er ovennævnte linie gul

Prøv at indsætte følgende lige inden linien, der fejler: "MsgBox ActiveSheet.Name & ", " & Cells(NextRow, 1).Address".

Det skulle gerne vise navnet "Totalskema" og adressen i A-kolonnen på næste ledige række.

Ellers prøv:

Sub CollectData()
    Dim wks As Worksheet, NextRow As Integer

    Application.ScreenUpdating = False
    For Each wks In Worksheets
        If Not wks.Name = "Totalskema" Then
            wks.Activate
            Range("A2:D2").Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.Copy
            Worksheets("Totalskema").Activate
            NextRow = Range("A65536").End(xlUp).Row + 1
            Cells(NextRow, 1).PasteSpecial
        End If
    Next wks
   
    Application.ScreenUpdating = True
End Sub

Hej mowi

Det viste sig, at være fordi at det ene ark stod tomt.
Din løsning fungere perfekt, hvis der er data i alle ark

Det var godt, du fandt fejlen.