Avatar billede Lotte Juniormester
10. marts 2021 - 13:35 Der er 5 kommentarer

Nettoliste (VBA)

I én workbook har jeg 4 sheets:

1) Sheet1: Oversigt
2) Sheet 2: Liste med numre i B (eksempel; 12,13 og 14)
3) Sheet 3: Også liste med numre i B, der kan være nye numre og sammenfald med numre i 2) (Eksempel: 12, 16, 48)
4) Sheet 4: Også liste med numre i B, der kan være nye numre og sammenfald med numre i 2) og 3) (Eksempel: 13,17)

I 1) Oversigt vil jeg gerne i B have listet "Nettolisten" af numre fra 2) ..4)
Resultat: 12, 13, 14, 16,17, 48)

Kan nogen hjælpe?
Avatar billede thomas_bk Ekspert
10. marts 2021 - 15:04 #1
Såfremt ingen kommer med en vba kode, vil jeg blot minde dig om 'fjern dubletter' funktionen, hvis ikke du kender den.
Avatar billede jens48 Ekspert
10. marts 2021 - 20:55 #2
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
Avatar billede Lotte Juniormester
16. marts 2021 - 11:06 #3
Jeg får fejl på denne linje:

LastRow = Worksheets("Sheet" & x).Cells(1048576, 2).End(xlUp).Row
For y = 2 To LastRow
Avatar billede jens48 Ekspert
16. marts 2021 - 12:19 #4
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.
Avatar billede jens48 Ekspert
16. marts 2021 - 12:20 #5
Hvilken version af Excel har du?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester