Nettoliste (VBA)

Såfremt ingen kommer med en vba kode, vil jeg blot minde dig om 'fjern dubletter' funktionen, hvis ikke du kender den.

Prøv med denne makro:

Sub Netto()
Dim x, y, z, LastRow As Long
z = 2
LastRow = Worksheets("Sheet1").Cells(1048576, 2).End(xlUp).Row
Worksheets("Sheet1").Range("B2:B" & LastRow).ClearContents
For x = 2 To 4
LastRow = Worksheets("Sheet" & x).Cells(1048576, 2).End(xlUp).Row
For y = 2 To LastRow
If WorksheetFunction.CountIf(Worksheets("Sheet1").Range("B:B"), Worksheets("Sheet" & x).Cells(y, 2)) = 0 Then
Worksheets("Sheet" & x).Cells(y, 2).Copy Destination:=Worksheets("Sheet1").Cells(z, 2)
z = z + 1
End If
Next
Next
End Sub

Jeg får fejl på denne linje:

LastRow = Worksheets("Sheet" & x).Cells(1048576, 2).End(xlUp).Row
For y = 2 To LastRow

Jeg har i makroen antaget at arkene hedder "Sheet1", "Sheet2", etc. Hvis du har navngivet dem anderledes skal makroen skrives lidt om, men så skal jeg vide hvad arkene hedder.

Hvilken version af Excel har du?