Ga naar inhoud

Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers sinds 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!


Cor-Assa

Tabbladen lijst tonen in werkblad

Aanbevolen berichten


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

Deel dit bericht


Link naar bericht
Delen op andere sites

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. :)

Deel dit bericht


Link naar bericht
Delen op andere sites

Doe mee aan dit gesprek

Je kunt dit nu plaatsen en later registreren. Indien je reeds een account hebt, log dan nu in om het bericht te plaatsen met je account.

Gast
Reageer op dit topic

×   Geplakt als verrijkte tekst.   Plak in plaats daarvan als platte tekst

  Er zijn maximaal 75 emoji toegestaan.

×   Je link werd automatisch ingevoegd.   Tonen als normale link

×   Je vorige inhoud werd hersteld.   Leeg de tekstverwerker

×   Je kunt afbeeldingen niet direct plakken. Upload of voeg afbeeldingen vanaf een URL in


Logo

OVER ONS

PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.