keuze via combobox

[snb]

@Finch

juist.
En wanneer dit bestand geopend wordt, gebeurt dat automatisch.
Dus, Willem, sla het bestand eerst op en open het dan (zoals jouw gebruikers het ook zouden doen).

 

[popipipo]

OK Snb ik krijg hem werkend op mijn eerste voorbeeldje en ook in mijn wk bestandje.
In het wk bestandje moet ik echter de gekozen naam in de cel eronder weer geven
Dit omdat ik die cellen H2:J120 moet kopieren naar een ander bestand voor de berekeningen

 

[popipipo]

Ik heb het zelf inmiddels gevonden: via properties en linked cells

 

[popipipo]

Yes, ik heb het voor elkaar zie bijlage.
Maar..... zoals zo vaak nog een klein dingetje.

Na elke ronde is de keuze mogelijkheid van de volgende ronde weer leeg en moet ik zoals Finch al zei

Momenteel moet je eerst een andere sheet selecteren en dan terug sheet1 selecteren.

Is dit nog bij te spijkeren zodat het niet hoeft?

 

[snb]

Vinden die rondes dan op dezelfde dag plaats ?

Maar je kunt natuurlijk een macro maken die dezelfde code aanroept als wanneer je van werkblad wisselt.
Die macro kun je aan een knop, werkbalkknop of werkbladgebeurtenis koppelen; wat je wil.

 

[popipipo]

Het is WK poule invulformulier voor wk voetballen in Z. Afrika in 2010
Mensen moeten voorspellen wie door gaan naar de volgende ronde.
Alles moet dus tegelijk in gevuld worden.
Ik wil het zoveel mogelijk automatiseren om het ook voor de invullers eenvoudig te houden.
Als iedereen (velen zijn leek op het gebied van excel) allerlei extra handelingen moeten uitvoeren (je spreekt over knoppen) wordt het voor velen te moeilijk om het in te vullen
En dan bereik ik dus juist het tegengestelde.
Als ik het alleen zou gebruiken was ik nu dus tevreden.
Wat ik dus zou willen is dat de gebruiker verder niets hoeft te doen om toch de lijst in te kunnen vullen.

 

[snb]

Dat is nu toch het geval ?

 

[Finch]

Mag ik vragen waarom je eigenlijk liever geen datavalidatie gebruikt?

 

[snb]

Toch nog een verbetering.
De code bij worksheet_activate kan vervallen.

Private Sub ComboBox1_CLick()
  If ComboBox1.Listcount=0 then wijzig
End Sub

Private Sub ComboBox1_Change()
  wijzig
End Sub

Private Sub ComboBox2_CLick()
  if combobox2.listcount=0 then wijzig
End Sub

Private Sub ComboBox2_Change()
  wijzig
End Sub

Private Sub ComboBox3_CLick()
  if combobox3.listcount=0 then wijzig
End Sub

Private Sub ComboBox3_Change()
  wijzig
End Sub

Private Sub ComboBox4_CLick()
  if combobox4.listcount=0 then wijzig
End Sub

Private Sub ComboBox4_Change()
  wijzig
End Sub

Private Sub wijzig()
  c0 = "Anja|Bea|Cees|Daan"
  For j=1 to 4
    c0=Replace(c0,OLEobjects("Combobox" & j).Object.Value,"")
  Next
  For j=1 to 4
    With OLEobjects("Combobox" & j).Object
      .List = Split(IIf(.Value = "", "", .Value & "|") & c0, "|")
    End With
  Next
End Sub

 

[popipipo]

@Finch

Mag ik vragen waarom je eigenlijk liever geen datavalidatie gebruikt?

Ik verzorg al een aantal jaren een voetbalpoule en heb het altijd gedaan met een combobox.
De mensen zijn dat nu gewend en zien meteen aan het pijltje dat het een keuze menu betreft.
Ik wilde het nu wat aanpassen zodat ze niet 2x hetzelfde team kunnen kiezen.
Bij data validatie zie het pijltje pas als je op de cel gaat staan.
Er zijn nogal wat excel leken die dat waarschijnlijk niet meteen begrijpen.

 

[Finch]

@Finch

Ik verzorg al een aantal jaren een voetbalpoule en heb het altijd gedaan met een combobox.
De mensen zijn dat nu gewend en zien meteen aan het pijltje dat het een keuze menu betreft.
Ik wilde het nu wat aanpassen zodat ze niet 2x hetzelfde team kunnen kiezen.
Bij data validatie zie het pijltje pas als je op de cel gaat staan.
Er zijn nogal wat excel leken die dat waarschijnlijk niet meteen begrijpen.

Is er geen mogelijkheid (heb niet de hele opzet ontleed) om de keuze weg te laten, maar een berekening door te voeren?