• 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.

Dataset selecteren excel

Status
Niet open voor verdere reacties.

Benny51

Nieuwe gebruiker
Lid geworden
7 mrt 2018
Berichten
2
Hoi,

Ik ben hier nog maar net nieuw, maar had wel al een vraagje.

Ik moet voor mijn masterthesis 500 bedrijven selecteren om verder onderzoek naar te doen.
Mijn volledige dataset bestaat uit 6.000 bedrijven, hieruit moet ik er 500 selecteren ==> De selectie moet gebeuren op basis van 6000/500= 12
Dus zal ik in excel om de 12 rijen, 1 rij moeten selecteren. Bestaan hier bepaalde formules voor?

Ook moet ik dit doen voor een dataset van 30.000 bedrijven...

Ik hoop dat iemand mij kan helpen.


MVG
Benn
 
Als ik dit goed begrijp hoeft dit dus niet random, maar elke 12e rij?

Dus anders gezegd als rijnummer deelbaar is door 12 dan valt deze binnen jouw selectie?
 
Dit kan ook met een macro. dan maakt het ook niet uit hoeveel bedrijven je hebt in je database.

Code:
Public Sub NGG()
Dim B As Worksheet
Dim G As Worksheet
Dim I As Integer
Dim AantalBedrijven As Integer
Dim SelectieAantal As Integer
Dim GeslecteerdeBedrijven() As String
Dim Counter As Integer

'Defineer de tabbladen
Set B = ActiveWorkbook.Worksheets("Bedrijven")
Set G = ActiveWorkbook.Worksheets("Geslecteerde Bedrijven")

'haal de range waar de uitkomst komt te staan leeg
G.Range("A:A") = ""

'Tel het aantal bedrijven
AantalBedrijven = B.Cells(Rows.Count, 1).End(xlUp).Row

'Defineer het aantal waardoor het aantal bedrijven gedeeld moet worden
SelectieAantal = 500

'telt elke keer dat een bedrijf geselecteerd wordt.
Counter = 0

'voor elk bedrijf
For I = 1 To AantalBedrijven
    'als het regelnummer deelbaar is door het SelectieAantal (500)
    If I Mod SelectieAantal = 0 Then
        
        'Selecteer het brijf
        ReDim Preserve GeslecteerdeBedrijven(Counter)
        GeslecteerdeBedrijven(Counter) = B.Cells(I, 1)
        
        Counter = Counter + 1
    End If
Next I

'Plaats de bedrijven op het "Geselecteerde Bedrijven" tabblad
For I = LBound(GeslecteerdeBedrijven) To UBound(GeslecteerdeBedrijven)
    G.Cells(I + 1, 1) = GeslecteerdeBedrijven(I)
Next I
End Sub

Voor jouw document zal je de namen van de tabbladen en de range waarschijnlijk wel moeten aanpassen.
 

Bijlagen

  • Selectie 12e rij (KL).xlsm
    319,3 KB · Weergaven: 24
Een eigen voorbeeld plaatsen heeft de voorkeur. Je schrijft nergens waar jouw data staat en waar de resultaten moeten komen.

De aangedragen suggesties werken prima kunnen veel eenvoudiger.
 
Thnx het is inmiddels al opgelost! Bedankt voor jullie snelle reactie
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan