• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA om data van andere tabbladen samen te voegen

Status
Niet open voor verdere reacties.
Je moet de 10 verwijderen en de resize brengen naar 8.
 
ik heb het al gevonden:
Code:
Sub Artikelnummers()
Dim sv, ws As Worksheet, dict As Object, i As Long
Set dict = CreateObject("Scripting.Dictionary")
For Each ws In Sheets
  If Left(ws.Name, 9) <> "ranglijst" Then
    sv = ws.Cells(1).CurrentRegion.Resize(, 9)
     If LCase(sv(1, 1)) = "uniek" Then
        For i = 2 To UBound(sv)
          dict(sv(i, 1)) = Application.Index(sv, i, Array(1, 3, 4, 5, 6, 7, 8, 9, 10))
        Next i
    End If
  End If
 Next ws
Worksheets("ranglijst 2020").Range("A2").Resize(dict.Count, 8) = Application.Index(dict.items, 0, 0)
End Sub

alsnog bedankt voor alle moeite!!!
 
Nu nog de ,10 weghalen, die heeft met resize(,8) geen dienst meer. ;)
 
ik heb nog een ander vraagje, dan ga ik plat:
=RANG(B2;B$2:B$1400)
=AANTALARG(A2:A2000)

eigenlijk wil ik dat de 1400 bij rang gekoppeld word aan het aantal regels zoals in aantalarg
is dit mogelijk?
 
Bv.
Code:
=RANG(B2;INDIRECT("B2:B"&AANTALARG($B$2:$B$2000)+1))
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan