Søg
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
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 05/09/202622:04
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:43 Nomad Tracking Car Af fleknes i Apps til Android
25/0916:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
White papers
Flere white papers »