• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

userform, ik kom er niet meer uit.

Status
Niet open voor verdere reacties.
Sorry zie de fouten al,

het moet zijn controls ipv controles en de naam van het gegevensveld moet tussen "" staan

Niels
 
Getest en deze werkt,
Ik weet alleen niet of hij alles op de juiste plaats zet.

Code: 
For n = 1 To 12
If Sheets("VariaData").Cells(2, 3 + n * 3) <> "" Then
Me.Controls("ScoreThuisGame" & n).Visible = False
Me.Controls("StreepjeGame" & n).Visible = False
Me.Controls("ScoreUitGame" & n).Visible = False
Me.Controls("GameUitslag" & n).Visible = False
Me.Controls("GameSetsLegs" & n).Visible = True
Me.Controls("StartGame" & n).Visible = True
Me.Controls("Gametype" & n).Visible = True
Me.Controls("GameAantalSets" & n).Visible = True
Me.Controls("GameAantalLegs" & n).Visible = True
Me.Controls("Gametype" & n) = Sheets("VariaData").Cells(2, 3 + n * 3)
Me.Controls("GameAantalSets" & n) = Sheets("VariaData").Cells(4, 3 + n * 3)
Me.Controls("GameAantalLegs" & n) = Sheets("VariaData").Cells(5, 3 + n * 3)
End If

If Sheets("VariaData").Cells(8, 2 + n * 3) = 1 Or Sheets("VariaData").Cells(8, 3 + n * 3) = 1 Then
Me.Controls("ScoreThuisGame" & n).Visible = True
If Sheets("VariaData").Cells(4, 3 + n * 3) = 1 Then Me.Controls("ScoreThuisGame" & n).Visible = Sheets("VariaData").Cells(12, 2 + n * 3) Else Me.Controls("ScoreThuisGame" & n).Visible = Sheets("VariaData").Cells(12, 2 + n * 3)
Me.Controls("StreepjeGame" & n).Visible = True
Me.Controls("ScoreUitGame" & n).Visible = True
If Sheets("VariaData").Cells(4, 3 + n * 3) = 1 Then Me.Controls("ScoreUitGame" & n) = Sheets("VariaData").Cells(12, 3 + n * 3) Else Me.Controls("ScoreUitGame" & n) = Sheets("VariaData").Cells(10, 3 + n * 3)
Me.Controls("GameUitslag" & n).Visible = True
Me.Controls("GameAantalLegs" & n).Visible = False
Me.Controls("StartGame" & n).Visible = False
Me.Controls("Gametype" & n).Visible = False
Me.Controls("GameAantalSets" & n) = False
Me.Controls("GameAantalLegs" & n) = False
End If

If Sheets("VariaData").Cells(2, 3 + n * 3) = "" Then
Me.Controls("ScoreThuisGame" & n) = False
Me.Controls("StreepjeGame" & n).Visible = False
Me.Controls("ScoreUitGame" & n) = False
Me.Controls("GameUitslag" & n) = False
Me.Controls("GameSetsLegs" & n) = False
Me.Controls("StartGame" & n).Visible = False
Me.Controls("Gametype" & n).Visible = False
Me.Controls("GameAantalSets" & n).Visible = False
Me.Controls("GameAantalLegs" & n).Visible = False
End If
Next n

Niels
 
@Niels

Kijk ook eens naar reakties van andere posters....
 
Niels,

Het werkt niet want ik krijg heel misvormde uitslagen, maar misschien ook omdat ik zoveel userforms heb.

Ik ga nu eerst me file even ombouwen naar het idee van snb met multitab, dat heb ik hopelijk in een uurtje af.
 
@snb

Sorry gemist:confused:

te druk bezig met de fouten er uit halen
Wat zijn de verschillen tussen "me" - "contols" en "me.controls"


Niels
 
Laatst bewerkt:
@Niels wat jij doet is een beetje dubbelop:

Me("knop1") is voldoende

Controls("knop1") is voldoende als de code in de module staat die ook het object (knop1) bevat. Meestal is dat het geval. Me.controls is dan dubbelop.
 
Ik kom er niet uit met dat multiform,

Waar zet ik de macro's neer die uitgevoerd moeten worden zodra een tab wordt geopend ? Page 4 moet steeds bij openen geupdate worden.
 
En ik had nog wel zo'n hoge pet van je op...

Code: 
Private sub Multipage1_change()

  Select Case Multipage1.value
  Case 0
     de initialize-code van het eerdere, aparte userform
  Case 1
     de initialize-code van het eerdere, aparte userform 
  Case 2
   
  End Select
End Sub
 
Ik denk dat dit voor nu allemaal boven me pet gaat.

Misschien weer vanaf nul beginnen en dan met multipage, want wat ik er nu van gebrouwen heb loopt helemaal vast.
 

Bijlagen

  • __revdutchie 004.rar
    42 KB · Weergaven: 18
Revdutchie zei:
Misschien weer vanaf nul beginnen en dan met multipage
Klik om te vergroten...

Dat had ik dus beter meteen kunnen doen, want binnen 20 minuten had ik de controls door, ga nu dan toch de 2 userforms maar mergen :D

PS, snb in de nieuwe multitab die ik starte had ik opeens wel de change event mogelijkheid, die had ik in jouw voorbeeld niet (of niet kunnen vinden)
Vandaar dat ik vast liep.
 
snb zei:
En ik had nog wel zo'n hoge pet van je op...

Code: 
Private sub Multipage1_change()

  Select Case Multipage1.value
  Case 0
     de initialize-code van het eerdere, aparte userform
  Case 1
     de initialize-code van het eerdere, aparte userform 
  Case 2
   
  End Select
End Sub
Klik om te vergroten...

Kijk, zo snel geef ik niet op, dus wellicht ben ik weer een beetje in achting gestegen :)

volgens mij heb ik het nu redelijk voor elkaar, echter nog een prangende vraag. Kan ik nu ook bij het selecteren de tab waar je de score invoert het userform Resizen en positie op werkblad veranderen ?

Overigens heb ik naar aanleiding van jullie opmerkingen van het niet kunnen openen in 2007 vandaag 2007 aangeschaft en daar krijg ik inderdaad error "kan bibliotheek niet vinden" daar sta ik voor een raadsel, want dat is gewoon een code naar een cel van de worksheet variadata ???

in 2003 loopt het als een zonnetje, op alle PC's hier

Goed, hierbij mijn resultaat tot nog toe
 

Bijlagen

  • __revdutchie 007.rar
    67,7 KB · Weergaven: 20
Laatst bewerkt:
Chapeau, petje af ....

We moeten er nog wel even VBA van maken (codewieden) bijv.

Code: 
Private Sub start(c1)
    WAVFile = "gameon.wav"
    WAVFile = ThisWorkbook.Path & "\sounds\" & WAVFile
    Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
    
    [gamenummer] = c1
    MultiPage1.Value = 1
    Me("TextBox" & 2 - (c1 Mod 2)).SetFocus
End Sub
Private Sub StartGame1_Click()
    start 1
End Sub
Private Sub StartGame2_Click()
    start 2
End Sub
Private Sub StartGame3_Click()
    start 3
End Sub
Private Sub StartGame4_Click()
    start 4
End Sub
Private Sub StartGame5_Click()
    start 5
End Sub
Private Sub StartGame6_Click()
    start 6
End Sub
Private Sub StartGame7_Click()
    start7
End Sub
Private Sub StartGame8_Click()
    start8
End Sub
Private Sub StartGame9_Click()
    start 9
End Sub
Private Sub StartGame10_Click()
    start 10
End Sub
Private Sub StartGame11_Click()
    start 11
End Sub
Private Sub StartGame12_Click()
    start 12
End Sub

ander voorbeeld:
Code: 
Private Sub StartComp_Click()
  With Sheets("VariaData")
    .[B7] = NaamThuis.Value
    .[C7] = NaamUit.Value
    For j = 1 To 12
      .Cells(3 + j * 3, 2).Resize(, 4) = Split(Me("Gtype" & j) & "|" & Me("GameX" & j) & "|" & Me("Setsgame" & j) & "|" & Me("LetsGame" & j), "|")
    Next
  End With

  MultiPage1.Value = 3
    
  NaamThuis1 = [VariaData!B7]
  NaamUit1 = [VariaData!C7]
  Standthuis = [variadata!B8]
  Standuit = [Variadata!C8]
End Sub
 
Laatst bewerkt:
snb,

Code: 
 .Cells(3 + j * 3, 2).Resize(, 4) = Split(Me("Gtype" & j) & "|" & Me("GameX" & j) & "|" & Me("Setsgame" & j) & "|" & Me("Le[COLOR="Red"]t[/COLOR]sGame" & j), "|")

gaat fout, hij zet het 3 regels naar beneden ipv 3 kolommen naar rechts.
ik heb al geprobeerd ,3 of 0, 3 te gebruiken maar dat is het dus niet.
Wel een klein typ foutje er uit gehaalt.
 
als dat alles is..

Code: 
  .Cells([COLOR="Red"]2,3 + j * 3[/COLOR]).Resize(, 4) = Split(Me("Gtype" & j) & "|" & Me("GameX" & j) & "|" & Me("Setsgame" & j) & "|" & Me("LetsGame" & j), "|")
 
snb zei:
als dat alles is..

Code: 
  .Cells([COLOR="Red"]2,3 + j * 3[/COLOR]).Resize(, 4) = Split(Me("Gtype" & j) & "|" & Me("GameX" & j) & "|" & Me("Setsgame" & j) & "|" & Me("LetsGame" & j), "|")
Klik om te vergroten...

Dat had ik ook geprobeerd, ook omdat het zo in de macro van Niels staat, maar dan komt alles in rij 2, dus ook GameX sets en legs
 
Code: 
[COLOR="red"]  For jj=2 to 5[/COLOR]
    For j = 1 To 12
      .Cells([COLOR="Red"]jj[/COLOR],3 + j * 3).Resize(, 4) = Split(Me("Gtype" & j) & "|" & Me("GameX" & j) & "|" & Me("Setsgame" & j) & "|" & Me("LetsGame" & j), "|")
    Next
 [COLOR="red"] Next[/COLOR]
 
snb zei:
Code: 
[COLOR="red"]  For jj=2 to 5[/COLOR]
    For j = 1 To 12
      .Cells([COLOR="Red"]jj[/COLOR],3 + j * 3).Resize(, 4) = Split(Me("Gtype" & j) & "|" & Me("GameX" & j) & "|" & Me("Setsgame" & j) & "|" & Me("LetsGame" & j), "|")
    Next
 [COLOR="red"] Next[/COLOR]
Klik om te vergroten...

Daarmee gaat het helemaal mis, hij vind dan de code op worksheet variadata ook niet meer goed, en hij zet nu echt alles door elkaar. zie voorbeeld.

PS, ik heb de euvele moed gehad om je tegen te spreken hier
http://www.helpmij.nl/forum/showthread.php?t=500365
.
 

Bijlagen

  • __revdutchie 011.rar
    51,6 KB · Weergaven: 22
Laatst bewerkt:
Dan doen we het toch zo:
Code: 
  For j = 1 To 12
      with .Cells(2,3 + j * 3)
         .offset(0)= Me("Gtype" & j)
         .offset(1)= Me("GameX" & j) 
         .offset(2)= Me("Setsgame" & j)
         .offset(3)= Me("LetsGame" & j)
      end with
  Next
of
Code: 
For j = 1 To 12
   .Cells(2,3 + j * 3).resize(4)=worksheetfunction.transpose(Split(Me("Gtype" & j) & "|" & Me("GameX" & j) & "|" & Me("Setsgame" & j) & "|" & Me("LetsGame" & j), "|"))
Next

Maar dit soort puzzelwerk lijkt me meer iets voor vragenstellers.
 
Laatst bewerkt:
snb zei:
Maar dit soort puzzelwerk lijkt me meer iets voor vragenstellers.
Klik om te vergroten...

Daar heb je gelijk in. Ik ga dus nu ook eerst even verder met het functioneel maken van alle onderdelen, want we moeten er eind deze week mee werken.

Daarna heb ik meer tijd om te lezen en te code wieden, maar uiteraard mega bedankt voor al je hulp tot nu toe.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan