*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Check comboboxen op dubbelen  (gelezen 1918 keer)

0 leden en 1 gast bekijken dit topic.

Offline LucB

  • Lid
  • *
  • Berichten: 55
  • Groeten Luc
Check comboboxen op dubbelen
« Gepost op: 08 augustus 2007, 14:31:19 »
Hallo oplossers,

Het is een beetje komkommertijd.
Voor de nog aanwezige oplossers een probleempje om de grijze cellen roestvrij te houden.

Op een UserForm heb ik 5 Comboboxen. (cb1 t/m cb5 en allen dezelfde "RowSource" - NamedRange = "Namen)"en een Commandbutton.

Het is de bedoeling dat voordat de gegevens van de combo's via de commandbutton naar het blad geschreven worden,
deze gecheckt worden op dubbele namen.

Hoe steek ik dit aan de vork?






Gelogd
Windows XP Prof SP2, AMD DualCore 4400, 1024 MB RAM, NTFS, Norton AntiVirus, Internet Explorer 7.0, Outlook Express 6

Offline Erik Van Geit

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 306
  • Geslacht: Man
Re: Check comboboxen op dubbelen
« Reactie #1 Gepost op: 08 augustus 2007, 22:21:32 »
Dag, Luc,

Even checken of je grijze cellen dus loskomen met deze tips.

gebruik de syntax
Me.Controls("naamvanobject")
Als je een "loop" gebruikt, kan dit aldus:
Me.Controls("cb" & i)

Je wil als volgt vergelijken:
1 met 2, 3, 4 & 5
2 met 3, 4 & 5
3 met 4 & 5
4 met 5

Je zal dus 2 "loops nesten":
De buitenste "loop" van 1 tot 4 (For i = 1 to 4)
de binnenste van i + 1 tot 5

Genoeg als start?

beste groeten,
Erik
Gelogd

Offline LucB

  • Lid
  • *
  • Berichten: 55
  • Groeten Luc
Re: Check comboboxen op dubbelen
« Reactie #2 Gepost op: 08 augustus 2007, 22:49:01 »
Dag Erik,

Na je goede tip er het volgende van gebakken.

Code: [Selecteer]
Dim i As Long
    Dim j      As Long
    For i = 1 To 4
        For j = i + 1 To 5
            If Me.Controls("cb" & i) = Me.Controls("cb" & j) Then
                MsgBox "Er is een dubbele Naam!"
                Exit Sub
                End If
            Next j
        Next i
En het werkt uitstekend.

Hartelijk bedankt!!

Luc
Gelogd
Windows XP Prof SP2, AMD DualCore 4400, 1024 MB RAM, NTFS, Norton AntiVirus, Internet Explorer 7.0, Outlook Express 6

Offline Erik Van Geit

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 306
  • Geslacht: Man
Re: Check comboboxen op dubbelen
« Reactie #3 Gepost op: 08 augustus 2007, 23:53:09 »
Fijn!
'k Had de code eigenlijk helemaal klaar, maar het leek me fijner om een aanzet te geven...
Nog steeds spelletjes aan het maken? (of is mijn herinnering niet juist en ben je een andere Luc?)

Oeps, nu ga ik toch echt horizontaal: bedtijd :)
Gelogd
Pagina's: [1]   Omhoog
 


www.combell.com