VBA kode til flytning af indhold fra ark 2 --------------------> sidste ark

Prøv denne på en kopi :

Sub samleArk()

Dim rk As Long, rk1 As Long, t As Long
Set sh = Sheets(1): rk1 = 1

For t = 2 To Sheets.Count
  Sheets(t).Select
    Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select
    rk = Selection.Rows.Count
    sh.Cells(rk1, 1) = Sheets(t).Name
  Selection.Copy sh.Cells(rk1 + 1, 1)
rk1 = rk1 + rk + 3
Cells(1, 1).Select
Next

sh.Select

End Sub

Hvis du får store mellemrum imellem data fra dine ark, skyldes det
sikkert at din "usedrange" i arkene ikke svarer til faktisk brugt område.
Dvs. at du måske har haft værdier i nogle celler, som siden er blevet
slettet. Prøv at taste CTRL+HOME efterfulgt af CTRL+SHIFT+END
Så får du markeret det område som Excel tror er i brug men rent faktisk
er blevet delvist slettet.
Du kan resette dette manuelt eller via kode
Sig til hvis du skal bruge en makro til dette

Prøv denne kode:

Excelent - din makro virkede fint. Der kom nogle tomme linier, men dem fjernede jeg manuelt.

Ja din makro gav en debug fejl i denne linie:

    Holder = Sheets(iCount).UsedRange.Value

Men 1000 tak til jer begge to.

Jan din makro gav en debug fejl i denne linie:

Holder = Sheets(iCount).UsedRange.Value

Men 1000 tak til jer begge to.

problemet er nok UsedRange
test evt med :
Sheets(iCount).UsedRange.select
msgbox "Hej"

indsættes før " Holder = Sheets(iCount).UsedRange.Value"
og se hvad der bliver markeret

det fungerede her dag jeg lavede en test fil!!

Jan