zoeken in verschillende tabbladen

[hoogmae]

Ik probeer een controleblad te ontwerpen voor een familiebingo.
Het eerste tabblad bevat al de mogelijke (25) nummers
Op al de andere tabbladen staan de speelformulieren (2 per deelnemer) voor 45 personen. Dus in totaal 1+45=46 tabbladen.
Nu wil ik telkens een nummer getrokken wordt een kruisje zetten in de cel naast de overeenkomstige nummer op het eerste tabblad. Hierna zouden al de cellen met overeenkomstige nummers in al de andere tabbladen groen moeten kleuren.
Vermits elk tabblad dezelfde cijfercode heeft als de verschillende formulieren wordt een controle makkelijk...
Hopelijk was ik iets duidelijk

Met dank

 

[edmoor]

Dat gaat 'm niet worden zonder je document of een relevant voorbeeld ervan.

 

[hoogmae]

Bedankt voor snelle reactie!
Voorbeeld in bijlageBekijk bijlage controle Bingo.xlsx

 

[VenA]

In je VO

=SUMPRODUCT((cijfers!$B$3:$B$27=B3)*(cijfers!$C$3:$C$27="x"))

 

[Roncancio]

Als je een kruisje achter een getal zet, dan worden cellen met dat getal in de andere werkbladen groen gemaakt.

Met vriendelijke groet,


Roncancio

 

[hoogmae]

Roncancio
Bedankt, super !!
Kan ik dit van 2 naar 45 tabbladen uitbreiden?

Groet

 

[Cobbe]

Je kan ook deze eens testen.

 

[hoogmae]

Cobbe

Bedankt man !
Kan ik dit van 2 naar 45 tabbladen uitbreiden?

Groet

 

[Cobbe]

Deze werkt ook voor 45 tabbladen.

 

[Roncancio]

Roncancio
Bedankt, super !!
Kan ik dit van 2 naar 45 tabbladen uitbreiden?

Groet

Het werkt ongeacht het aantal werkbladen.

Met vriendelijke groet


Roncancio

 

[VenA]

Als alternatief voor als je per ongeluk een 'x' verkeerd gezet hebt en niet alles wilt wissen.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Columns(2).SpecialCells(2, 1).Offset(, 1)) Is Nothing Or Target.Count > 1 Then Exit Sub
  For Each sh In Sheets
    If sh.Name <> "cijfers" And Left(sh.Name, 4) = "form" Then
      For Each cl In sh.UsedRange.Cells.SpecialCells(2, 1)
        If cl.Value = Target.Offset(, -1).Value Then cl.Interior.Color = IIf(LCase(Target) = "x", vbGreen, xlNone)
      Next cl
    End If
  Next sh
End Sub