Værktøjs katalog

Du kan lave det på flere måder:

Lav et ark med alle data fra de 19 ark, hvor data overføres med formler, der refererer til de 17 ark.

Så kan du hente data med en pivot eller med autofilter.

Som en tredie løsning kan du lave formler, der finder dem med "x" frem, men det er mere besværligt.

Jeg bruger denne kode:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
LastRow = Cells(65356, 3).End(xlUp).Row
Worksheets("Ark2").Range("A2:I101").Delete
For Each Shape In Worksheets("Ark2").Shapes
Shape.Delete
Next
Y = 2
For x = 2 To LastRow
If Cells(x, 1) = "X" Or Cells(x, 1) = "x" Then
  Range(Cells(x, 2), Cells(x, 10)).Copy Destination:=Worksheets("Ark2").Cells(Y, 1)
  Y = Y + 1
End If
Next
End If
End Sub

denne kode er kopieret til alle de relevante ark, MEN den tager kun det sidste stykke værktøj og flytter om til Ark 2