Bus en stoel indeling

[Cor-Assa]

Beste mensen, ik heb weer een nieuwe uitdaging.

Ik heb een voorbeeld bestand bijgevoegd.

Ik wil dat in het 2e tabblad automatisch als ik hier naartoe schakel bij bus 1 de passagiers ingevuld worden (uit tabblad 1) die naast de cel zit wat hun stoel indeling is.

Dus bij Bus 1 zou achter 5 (stoelnummer) de naam Jansen moeten komen, enz.

Bij bus 2 achter achter 6 (stoelnummer) de naam Pietersen, enz.

Behalve de oplosing eventueel ook een uitleg, dat leert het beste.

 

B.v.d.

Cor Assa

Bus en stoel.xlsx

29 januari 2020 aangepast door Cor-Assa

[Cor-Assa]

Ik heb na lang zoeken iets gevonden dat werkt.

=INDEX(Deelnemers!G5:G227;1;1)

Dit zijn de gevens uit mijn originele bestand daarom kloppen ze niet met het voorbeeld.

 

[Cor-Assa]

8 minuten geleden, Cor-Assa zei:

Ik heb na lang zoeken iets gevonden dat werkt.

=INDEX(Deelnemers!G5:G227;1;1)

Dit zijn de gevens uit mijn originele bestand daarom kloppen ze niet met het voorbeeld.

 

Toch gaat het nog niet goed, als er geen stoelnummer ingevuld is krijg ik #VERW#

[Cor-Assa]

Ik was wat voorbarig, het lukt toch niet zoals ik dacht.

Moet als resultaat trouwens 2 cellen samengevoegd worden.

Zie mijn aangepaste voorbeeld, voor de namen moet dan Dhr. of Mevr. bijgevoegd worden.

Bus en stoel.xlsx

[emielDS]

met deze zou het wel moeten lukken.

ps. nogmaals, vermijd samengevoegde cellen.

Bus en stoel (3).xlsm

[Cor-Assa]

15 minuten geleden, emielDS zei:

met deze zou het wel moeten lukken.

ps. nogmaals, vermijd samengevoegde cellen.

Bus en stoel (3).xlsm 21 kB · 0 downloads

Bedankt emielDS, dit werkt inderdaad.

Maar hetgene ik wil is dat dit automatisch gebeurd als het tabblad geopend wordt/☺️

[emielDS]

welk tabblad?

[bakerman]

Zet deze in de bladmodule van Blad2.

 

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With Blad2
        For i = 3 To .Cells(3, .Columns.Count).End(xlToLeft).Column Step 3
            .Cells(3, i).CurrentRegion.Offset(, 1).ClearContents
        Next
    End With
    For Each Cell In Blad1.Range("E4", Blad1.Range("E" & Rows.Count).End(xlUp))
        x = Cell.Value: nr = Cell.Offset(, 1).Value
        With Blad2
            Set y = .Rows(3).Find("bus " & x)
            If Not y Is Nothing Then
                Set Z = y.Resize(16).Find(nr)
                If Not Z Is Nothing Then
                    Z.Offset(, 1) = Cell.Offset(, -3).Value & " " & Cell.Offset(, -2).Value
                End If
            End If
        End With
    Next
    Application.ScreenUpdating = True
End Sub

 

[bakerman]

Nog een beetje verder aangepast zodat je

 

1) De lijst op Blad1 onbeperkt kan uitbreiden.

2) Op Blad2 een onbeperkt aantal bussen kan toevoegen. (mits respecteren van de huidige opzet.

3) Op Blad2 het aantal stoelen per bus onbeperkt kan vermeerderen.

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With Blad2
        For i = 3 To .Cells(3, .Columns.Count).End(xlToLeft).Column Step 3
            .Cells(3, i).CurrentRegion.Offset(, 1).ClearContents
        Next
    End With
    For Each Cell In Blad1.Range("E4", Blad1.Range("E" & Rows.Count).End(xlUp))
        x = Cell.Value: nr = Cell.Offset(, 1).Value
        With Blad2
            Set y = .Rows(3).Find("bus " & x)
            If Not y Is Nothing Then
                Set Z = y.Resize(y.CurrentRegion.Rows.Count).Find(nr)
                If Not Z Is Nothing Then
                    Z.Offset(, 1) = Cell.Offset(, -3).Value & " " & Cell.Offset(, -2).Value
                End If
            End If
        End With
    Next
    Application.ScreenUpdating = True
End Sub

 

[Cor-Assa]

Bedankt bakerman, helaas lukt het niet.

Ook kan ik het originele bestand niet toesturen i.v.m. privacy.

Ik heb nu een kolom aangemaakt waar ik het bus nummer en zitplaats heb gecombineerd zoals "1 12", bus 1 stoel 12.

Alleen in het overzicht van de zitplaats indeling krijg ik nu #N/B als een zitplaats niet ingevuld is.

De code die ik gebruik is =VERT.ZOEKEN("1 12";Deelnemers!$BO$5:$BQ$227;2;ONWAAR)

Zit hier iets fout in of moet er iets bij?

 

B.v.d.

Cor Assa