Sammensætning af worksheets til et

Du kan godt sætte ark sammen til et, men hvorfor ? ofte vil det være mere overskueligt hvis det er på flere ark. Du må lige beskrive lidt mere om din opgave, og dit problem med flere ark.

Der er også ulemper ved et ark.

Så forklar lige lidt mere

Det skyldes, at vi har et regneark vi bruger til tilbud. Man indtaster de data som er nødvendige. Derefter skal det laves om til en pdf fil.
I dag køres det ved at konvertere hvert ark til en selvstændig pdf fil og så sætte dem sammen til sidst.
Jeg er blevet spurgt (af en af sælgerne) om jeg ikke kan finde en løsning på dette.
Den  løsning som de foreslog var at sætte alle arkene samme til et, som så kunne laves til pdf.
Var det forklaring nok?

Hvormange ark er der tale om ?

Her er en makro som burde virke

Stil dig i et tomt ark og kør den.

Public Sub FlytTilEtArk()
Dim Detteark As String, IndsætteRække As Integer, R As Integer, K As Integer _
, A As Integer
A = 1
Detteark = ActiveSheet.Name
For Each Ws In Worksheets
If Detteark <> Ws.Name Then
    Worksheets(Ws.Name).Select
    R = ActiveCell.SpecialCells(xlLastCell).Row
    K = ActiveCell.SpecialCells(xlLastCell).Column
    Worksheets(Ws.Name).Range(Cells(1, 1), Cells(R, K)).Select
    Selection.Copy
    Sheets(Detteark).Select
    Range("A" & A).Select
    ActiveSheet.Paste
    A = A + R + 1
    End If
  Next Ws
End Sub

Jeg tjekker lige imorgen og prøver kabbaks løsning - så vender jeg tilbage

Det drejer sig om 14 ark, og jeg tror kabbaks løsning er rigtig god - jeg skal lige lade "min sælger" teste den, og så deler jeg point ud :)

Det virker som smurt!! Der er helt sikkert point for den.
Jeg har to tillægsspørgsmål (som selvf. giver tillægspoint)
1. Hvis jeg har en speciel celle bredde på cellerne i arkene, bibeholdes disse ikke i kopieringen, men følger blot standard bredde.
Er der nogen måde at få dem til det, eller hvad hedder funktionen til at autojustere cellebredde.
2. Kan man bede den tilpasse så når man udskriver, fylder ark 1 den første side, ark 2 den anden etc.?
Er der nogen der har nogle bud på det (Jeg ved godt jeg er vanskelig - men excel er ikke lige mit område) :)

Public Sub FlytTilEtArk()
Dim Detteark As String, R As Integer, K As Integer _
, A As Integer
A = 1
Detteark = ActiveSheet.Name
For Each Ws In Worksheets
If Detteark <> Ws.Name Then
    Worksheets(Ws.Name).Select
    R = ActiveCell.SpecialCells(xlLastCell).Row
    K = ActiveCell.SpecialCells(xlLastCell).Column
    Worksheets(Ws.Name).Range(Cells(1, 1), Cells(R, K)).Select
    Selection.Copy
    Sheets(Detteark).Select
    Range("A" & A).Select
    ActiveSheet.Paste
    A = A + R + 1
    End If
  Next Ws
    Cells.Select  ' JUSTER BREDDE PÅ KOLONNER
    Cells.EntireColumn.AutoFit
End Sub

Dette var svar på punkt2

Det var vel svar til spm nr. 1 - med autojustering - eller hvad?

det var 1 men 2 kommer snart

Jeg stopper bare her - det virker perfekt - tusind tak for hjælpen

ahhh ok - hvis du ER i gang med 2, vil jeg da meget gerne høre det også :)

Public Sub FlytTilEtArk()
Dim Detteark As String, R As Integer, K As Integer _
, A As Integer
A = 1
Detteark = ActiveSheet.Name
For Each Ws In Worksheets
If Detteark <> Ws.Name Then
    Worksheets(Ws.Name).Select
    R = ActiveCell.SpecialCells(xlLastCell).Row
    K = ActiveCell.SpecialCells(xlLastCell).Column
    Worksheets(Ws.Name).Range(Cells(1, 1), Cells(R, K)).Select
    Selection.Copy
    Sheets(Detteark).Select
    Range("A" & A).Select
    ActiveSheet.Paste
    A = A + R + 1
    Range("A" & A).Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    End If
  Next Ws
    Cells.Select  ' JUSTER BREDDE PÅ KOLONNER
    Cells.EntireColumn.AutoFit
End Sub

huha jeg bliver lige ved, kan man med en anden funktion angive hvor bred en kolonne på et ark skal være
altså noget med (undskyld min klodsede pseudokode:
detteark(cells(1,1)).width =50

Columns("B:B").Select
    Selection.ColumnWidth = 10

Meget smukt!
Tusind tusind tak