ALS vraag aangevinkte namen kopieren

[hessell]

Dag,

Ik wil nu de namen die aangevinkt worden transporteren naar een ander tabblad. Het nummer wil ik er ook graag voor hebben.
Is dit mogelijk?

Het zou helemaal mooi zijn dat als niet iedereen mee doet aan een bepaalde module de getransporteerde namen netjes onder elkaar komen te staan.

Ik hoop dat het jullie duidelijk is wat ik graag wil.

 

[Wigi]

Hoi

hier is kant-en-klare code:

Sub namenkopieren()

    Dim i As Integer
    Dim j As Integer
    Dim rVinkjes As Range
    Dim iTeller As Integer
    
    Const iRijVerschuiving As Integer = 18
    Const iKolomVerschuiving As Integer = 0
    
    Set rVinkjes = Sheets("Tweede etage oost").Range("D3:G14")
    
    Sheets("Deelnemers").Range("A3").Resize(1000, 3).ClearContents

    For i = 1 To rVinkjes.Rows.Count
    
        For j = 1 To rVinkjes.Columns.Count
    
            If rVinkjes(i, j).Offset(iRijVerschuiving, iKolomVerschuiving) Then
            
                iTeller = iTeller + 1
                
                With Sheets("Deelnemers").Range("A" & 2 + iTeller)

                    'nr overhalen
                    .Offset(, 0).Value = rVinkjes(i, 0).Value
                    
                    'naam overhalen
                    .Offset(, 1).Value = rVinkjes(i, -1).Value
                    
                    'afdeling overhalen
                    .Offset(, 2).Value = rVinkjes(0, j).Value
                    
                End With
                
            End If
    
        Next j
    
    Next i
    
End Sub

Wigi

 

[hessell]

Dit is me te moeilijk.

Bedankt.

 

[Wigi]

Dit is me te moeilijk.

Bedankt.

Voor mij is het ook Kerstavond, ik heb zelfs een klein half uur code geschreven voor jou en had daardoor niet meer de tijd om het deftig te voorzien van uitleg over hoe je dit uitvoert.

Voor mensen die nog niet de moeite nemen om neer te schrijven wat er dan moeilijk is - ik zou het graag meer uitleggen - doe ik geen moeite.

Wigi

 

[hessell]

Ik wilde juist niemand er mee lastig vallen.
Het is dan ook zeker niet verkeerd bedoeld.

Excuus als je dat zo opgevat hebt.

Ik waardeer alle hulp zeer, maar ik vind dat het nu teveel van het goede word.

 

[Wigi]

Geen probleem

Misschien is de boodschap van mijn code wel: doe dit niet met Excel formules maar met code...

Succes ermee.

Wigi

 

[Wigi]

Hier is het bestandje met de code erin verwerkt voor mocht je toch verder willen gaan met deze code.

Wigi