Tabbladen lijst tonen in werkblad

[emielDS]

misschien kan je dan beter zo doen.

tablijsten.xlsm

[emielDS]

Ik weet niet of dit  is zoals u het gewild zou hebben?

 

Ik vraag me alleen af of iets met 200 bladen nog wel werkbaar is  zeker als daar dan nog een hoop randen en de (on)nodige kleurtjes bijkomen zal het wel erg traag worden.

 

 

tablijsten (3).xlsm

[bakerman]

Zoals gevraagd zonder voorblad en met opeenvolgende kolommen.

 

Ook heb ik myarr gebruikt met de te kopieêren bereiken, dit om aan te tonen dat je daar willekeurige bereiken kunt plaatsen en niet alleen aansluitende cellen.

 

Sub GenerateLists()
    myarr = Array("$C$1", "$C$2", "$C$3")
    For i = 1 To Sheets.Count
        If Sheets(i).Name Like "Tablijst*" Then
            With Sheets(i)
                lRow = .Range("C" & .Rows.Count).End(xlUp).Row: If lRow < 3 Then lRow = 3
                lCol = .Cells(3, .Columns.Count).End(xlToLeft).Column
                .Range("C3", .Range("C" & lRow)).Resize(, lCol).Clear
            End With
        End If
    Next
    For i = 1 To Sheets.Count
        If Sheets(i).Name Like "Tablijst*" Then
            myRow = 3: myCol = 3: mysheet = Sheets(i).Name
        Else
            With Sheets(mysheet).Cells(myRow, myCol)
                .Value = Sheets(i).Name
                .Hyperlinks.Add Sheets(mysheet).Range(.Address), "", "'" & Sheets(i).Name & "'!A1"
                For j = 0 To UBound(myarr)
                    .Offset(, j + 1) = Sheets(i).Range(myarr(j)).Value
                Next
            End With
            myRow = myRow + 1
            If myRow Mod 33 = 0 Then myRow = 3: myCol = myCol + 4
        End If
    Next
End Sub

Heb je nog verdere vragen laat maar weten.

[emielDS]

En als je het wil met enkel slechts 1 lijst doe je het zo.

tabbladen in 1 lijst.xlsm