danny147
Terugkerende gebruiker
- Lid geworden
- 29 apr 2007
- Berichten
- 4.744
Beste,
Hoe kan ik ervoor zorgen dat er geen gegevens opgehaald worden van tabbladen die verborgen zijn ?
Volgende code doet het goed maar geeft ook de info weer die op de verborgen tabbladen staat.
Hoe kan ik ervoor zorgen dat er geen gegevens opgehaald worden van tabbladen die verborgen zijn ?
Volgende code doet het goed maar geeft ook de info weer die op de verborgen tabbladen staat.
Code:
Sub Overzicht()
Dim ws As Worksheet
Sheets(Array("Langlopende Orders", "Systeem", "Verlofkalender", "LinkList", "TelList", "Output")).Select
ActiveWindow.SelectedSheets.Visible = False
Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
For Each ws In Worksheets
If ws.Index < Worksheets.Count Then
LR = Worksheets(Worksheets.Count).Range("c65536").End(xlUp).Row
ws.Range("A21:V300").Copy Destination:=Worksheets(Worksheets.Count).Range("A" & LR + 1)
End If
Next
End Sub