Hej hej

Om du gör om din data till en tabell (ctrl + t), så blir det lättare att markera data. Bara att hovra över översta delen av en rubrik så får du en muspekare som ser ut som nedåtpil, klicka så markleras alla data under rubriken. Nedan kod tar emot en eller flera kolumner av användaren och slår ihop dessa till en sammansatt range. Denna kan du antingen skriva ut direkt med funktionen printtopdf (googla), eller går något annat med.

MVh

Christian

Option Explicit

Sub exempel()

    'Finns bättre sätt att tilldela sheets och listobject, detta görs genom namngivning.

    Dim ws As Worksheet: Set ws = Sheets("Blad1")

    Dim ls As ListObject: Set ls = ws.ListObjects(1)

    Dim rng As Range, joinedrng As Range

    Dim btnresult As VbMsgBoxResult

    Dim i As Long

    For i = 1 To 30

        On Error GoTo Finished:

        Set rng = Application.InputBox("Välj kolumn, tryck ok för att fortsätta välja flera, nej när du är klar", Type:=8)

        On Error GoTo 0

        If joinedrng Is Nothing Then

            Set joinedrng = rng

        ElseIf rng Is Nothing Then

            Exit For

        Else

            Set joinedrng = Union(joinedrng, rng)

        End If

    Next i

Finished:

    If Not joinedrng Is Nothing Then

        MsgBox "this is the marked columns: " & joinedrng.Address

    Else

        MsgBox "inga kolumner valda"

    End If

    'nu har du en range av massa sammanslagna kolumner att göra något med.

End Sub