---

Hej!

Jeg har lavet en import af diverse data fra forskellige filer til Excel. Resultatet er at dataene havner på fortløbende ark i Celle A1.

I den ene import er der 113 ark. I den anden 224 ark.

Er der nogen der har en opskrift på hvordan man let og elegant får de 113 informationer til at stå i Ark1 i cellerne A1:A113?

Mvh.

---

Ja lav en Macro til at flytte værdierne...
Evt via macro optager - hvis du ikke er stiv i VBA

---

Du kan starte optager og kopier og indsætte special, her kan du så vælge kun at indsætte værder..
mvh Ben

---

Hej Ben!

Makrooptageren kan jeg godt få til at virke så langt at makroen gør det jeg lige har gjort og kun det. Så er der altså 111 ark som stadig indeholder data i celle A1. Data som ikke er synlige i Ark1.

Der er vist basis for yderligere eksperimenteren...

---

Fandt selv svaret andetsteds.

Sådan her:

Public Sub CopyFørsteRække()
'Ret "Ark1" til navnet på det ark du vil have dataerne på
X = 1
Antal = Worksheets.Count
For Each Ws In Worksheets
If Ws.Name <> "Ark1" Then
Worksheets(Ws.Name).Rows("1:1").Copy
Sheets("Ark1").Paste Destination:=Worksheets("Ark1").Cells(X, 1)
X = X + 1
End If
Next
Worksheets("Ark1").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Perfekt

---

Jeg fandt SELV et gyldigt svar, og spørgsmålet skal vel derfor annuleres?!? På den anden side må det da gerne blive stående til evig beskuelse, så andre kan få svar på samme spørgsmål...

Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.