Sheet naar userform

[pd1lg]

Goedemiddag allemaal,

Zouden jullie mij kunnen helpen met een userform?
De userform moet gevuld worden met gegevens uit de database, nadat ik een speeldag invoer zouden de gegevens van die speeldag in de userform moeten komen te staan.
Zodat de score(Gcar) ingevuld kunnen worden. Ben aan het stoeien met de formule; Me.Reg1.Value = Blad1.Range("E5").Value verder ben ik nog niet gekomen.

Als jullie mij op weg kunnen helpen?

 

[gast0660]

Hoi,
ik heb uw vbtje even bekeken.
Een paar vraagjes
Je gebruikt het woord database?
Ik zie ook geen enkele berekening in uw excel vbtje, wil je een database?
Uw formulier heeft 14 invulvelden, zijn er max 14 spelercombinaties?
Wil je in 2016 nog zoiets gebruiken? (form header staat op 2015)
Opmerking: Je formuliertje is niet je enige probleem.
Ik wil zoiets wel in vorm gieten voor u, in een database.
Formuliertje met ingave spelers, leden ? wat moet erin? naam, voornaam ???
Formuliertje met ingave speeldagen 2015,2016 enz.
Formuliertje met de scores (uw vbtje)
Kan allemaal en graag gedaan, mits een beetje tijd.
Indien ja wat extra info zoals de naam bc "de lustige ballen" , of moet daar een login scherm in, (beperkte toegang) of iets anders dat nog wenselijk is.
Ik wil je wel helpen. Je kan mij altijd mailen. klik op mijn naam)
Verder ken ik niets van biljard dus Tcar en Gcar zegt mij niets.
Greetz

 

[pd1lg]

Hoi,
ik heb uw vbtje even bekeken.
Een paar vraagjes
Je gebruikt het woord database?
Ik zie ook geen enkele berekening in uw excel vbtje, wil je een database?
Uw formulier heeft 14 invulvelden, zijn er max 14 spelercombinaties?
Wil je in 2016 nog zoiets gebruiken? (form header staat op 2015)
Opmerking: Je formuliertje is niet je enige probleem.
Ik wil zoiets wel in vorm gieten voor u, in een database.
Formuliertje met ingave spelers, leden ? wat moet erin? naam, voornaam ???
Formuliertje met ingave speeldagen 2015,2016 enz.
Formuliertje met de scores (uw vbtje)
Kan allemaal en graag gedaan, mits een beetje tijd.
Indien ja wat extra info zoals de naam bc "de lustige ballen" , of moet daar een login scherm in, (beperkte toegang) of iets anders dat nog wenselijk is.
Ik wil je wel helpen. Je kan mij altijd mailen. klik op mijn naam)
Verder ken ik niets van biljard dus Tcar en Gcar zegt mij niets.
Greetz

-Ik gebruik alleen een wachtwoord om de sheets te beveiligen.
-De berekening zit er nog niet in.
-Dit jaar zijn het 28 spelers, dat varieert per toernooi/jaar.
-Word voor meerdere jaren gebruikt, in 2016 kan het formulier gereset worden.
-We hebben een lijst met leden, maar niet alle leden doen mee. Spelers worden met naam en achternaam ingevuld.
-Er moet nog een lijst met speeldatums gemaakt worden. Die in een sheet komen te staan.(Agenda)
-Een formulier met scores, en totaalstand.
-BC "Noorderbreedte" is de naam.
-Tcar is het gemiddelde van een speler, en staat voor Te maken Caramboles.
-Gcar staat voor gemaakte caramboles in 25 beurten. De +/- staat voor Gcar-Tcar, deze kan zowel negatief als positief zijn. Na 25 beurten wie de beste score heeft van Gcar-Tcar.
Heeft iemand een gemiddelde van 25 caramboles en hij maakt er 20, dan is het 20-25= -5. Maakt de tegenstander met een gemiddelde van 25 caramboles, 26 caramboles, dan heeft hij een score van 26-25=1 en heeft hij gewonnen.

Ik hoop dat het zo een beetje duidelijk is.

 

[sylvester-ponte]

vreemd, in je database staan de zelfde namen bij uit en thuis zijn dat mensen die ook bij een andere club spelen?

 

[gast0660]

Hoi,
Ga eens kijken op volgende link http://www.bommeltje.nl/website/biljarten/competitiebeheer/
Daar staat hoogstwaarschijnlijk iets tussen die voldoet aan uw verwachtingen.

Greetz

 

[pd1lg]

Het zijn allemaal speler van onze club.

Ik ben niet opzoek naar een programma, ik mag graag zelf stoeien met excel. Ik ben alleen nog niet zo ervaren.

Dus wie wil mij helpen!

 

[mvw64]

De knoppen: Toevoegen - Bekijken en Reset zijn aangepast (ik hoop dat dit is wat jij wil. En jou verder helpt ?)
Zelf alle macro's aanpassen - Wat er aangepast moet worden staat in de macro

 

[pd1lg]

Dank je MVW64, hier kan ik wel wat mee.
Hier ga ik weer lekker mee aan het stoeien.

 

[HSV]

Hallo

Als jij de textboxen allemaal hernoemt met één cijfer lager vanaf textbox 'Reg20', is dit veel eenvoudiger dan 168 regelcodes voor alleen al de 'do loop'.

Private Sub cmdBekijken_Click() 'Bekijken
With Worksheets("Database").Columns(4)
strZoek = txtSpeeldag
    If strZoek = "" Then MsgBox "Speeldag invullen": Exit Sub
      Set c = .Find(strZoek, , , xlWhole)
       If Not c Is Nothing Then
         firstaddress = c.Address
         Do
             For j = 1 To 12
               Me("Reg" & j + x) = c.Offset(, j)
             Next j
           x = x + 12
          Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
        Else
       MsgBox "( " & strZoek & " ) is niet gevonden", , "Zoeken"
     End If
End With
End Sub

 

[pd1lg]

Dank je Harry,

Ik was al aan het stoeien met een For/Next loop, maar ik zat weer veel te moeilijk te denken.
Dit is een prima oplossing.

Wat doet de functie xlWhole?

Lambert