Mi objetivo es, en última instancia, crear una lista de tornillos.en la primera hoja que se actualiza a sí misma al rellenar otras hojas en el mismo documento. Las otras hojas son para diferentes montajes de una máquina. Hay un montón de diferentes pernos que tengo que medir en cad, por lo que sería bueno tener una lista de auto-poblamiento mientras reviso cada ensamblaje uno por uno.
Respuestas
0 para la respuesta № 1Suponiendo que la lista de componentes está en elmisma columna en cada una de las otras hojas (digamos "X" para esa columna) Luego copie la columna X en cada hoja (excepto la primera) en una columna en la primera hoja y luego elimine los duplicados; el resultado es una lista única.
Sub Assembly()
Dim ws As Worksheet
Dim y As Integer
Dim t As Range
For y = 2 To Worksheets.Count
Set t = Worksheets(1).Range(Rows.Count, 1).End(xlUp).Offset(1, 0) "first blankcell in column A
Application.Intersect(Worksheets(y).Range("X:X"), Worksheets(y).UsedRange).Copy t
Next y
Worksheets(1).Range("A:A").RemoveDuplicates Columns:=1
End Sub