• 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.

vullen van textboxen en wegschrijven

Status
Niet open voor verdere reacties.

bowlingman

Gebruiker
Lid geworden
17 okt 2007
Berichten
433
Hallo,
Mijn vorige projectje is gelukt dankzij de prachtige hulp van jullie.
Intussen aan een nieuw begonnen.
Hetgene wat er al in staat lukt al aardig, maar nog niet helemaal
Het is de bedoeling dat op het frm de txts van de teams worden gevuld na een opt te klikken en een speeldag te kiezen
Opt1 de teams (wedstrijden) rij 2:23, Opt2 rij 39:60, Opt3 rij 76:97
En voor het wegschrijven dat ook met de opt geselecteerd punten en kegels worden weggeschreven naar het respectievelijke team en speeldag op de sheet "scores"

Grtjs.
Armand
 

Bijlagen

  • Map4.xlsm
    59,6 KB · Weergaven: 51
Armand, ik heb even wat aangepast maar ik ben nog niet aan het wegschrijven toegekomen. Is dit tot zover volgens je wens? En is het nou Metroopol of Metropool?

Zo nee dan snap ik het niet, zo ja, dan wil ik er wel verder op borduren.
 

Bijlagen

  • Bowlingman_Armand.xlsm
    60,1 KB · Weergaven: 34
Hallo SjonR
Hartelijk bedankt voor wat je al gedaan hebt.
In de eerste plaats is het wel degelijk Metropool
Ik had intussentijd (na lang van alles te proberen en te zoeken) ook al iets meer gevonden, maar dat van U vind ik beter. (veel minder typen)
In bijlage wat ik al gedaan had, wou dit juist plaatsen (zodat jullie kunnen zien dat ik verder ook probeer en niet alles zomaar overtyp wat jullie doen)

Grtjs.
Armand
 

Bijlagen

  • Map4.xlsm
    63,2 KB · Weergaven: 26
Armand,

Kijk eens of dit doet wat je voor ogen hebt:
 

Bijlagen

  • Bowlingman_Armand_deel2.xlsm
    66,4 KB · Weergaven: 41
Super SjonR

Dit is exact wat ik zocht.
Jullie zijn super helpers
Nu ga ik alles nog verder uitwerken(nog speeldagen toevoegen, txts in de juiste volgorde zetten als je naar de volgende moet, enz......)

Nog eens super bedankt
Grtjs.
Armand
 
Dat is mooi :thumb:. De tabvolgorde moet inderdaad nog even worden aangepast.

Succes!
 
Toch nog één probleem.
Op de sheet "Wedstrijden" staan in kolom "A" de speeldagen en in kolom "B" de speeldatums
Als ik nu op het frm speeldag "1" kies krijg ik in de txtDatum de datum van speeldag 10 en ook in de txtTeam de wedstrijden van die dag.
Dit gebeurt enkel bij "1" al de rest is wel juist.
Als ik nu op de sheet "Wedstrijden" de speeldag verander van 101 t/m 122 in plaats van 1 t/m22 is alles wel juist.
Heb het geprobeert op te lossen met een "cboSpeeldag.list" (gekregen van VenH in een vorig projectje) lukt het ook niet.(waarschijnlijk zet ik dit niet volledig correct.

Grtjs.
Armand
 

Bijlagen

  • Map5.xlsm
    69,5 KB · Weergaven: 41
Deze regel kan weg.
Code:
txtDatum.Text = .Find(cboSpeeldag).Offset(, 1)
De tweede kolom in een combobox heeft indexnummer 1. Een combobox begint bij 0.
Code:
If cboSpeeldag.ListIndex > -1 Then txtDatum = Format(cboSpeeldag.Column([COLOR="#FF0000"]1[/COLOR]), "dd mmmm yyyy")
 
Ik heb de tip van VenA er ook meteen in verwerkt.

Code:
Private Sub cboSpeeldag_Change()
If cboSpeeldag.ListIndex > -1 Then txtDatum = Format(cboSpeeldag.Column(1), "dd mmmm yyyy")
If OptMetropool1 = True Then Set Orng = Sheets("Wedstrijden").Range("A2:A23").Find(cboSpeeldag, , , 1)
If OptMetropool2 = True Then Set Orng = Sheets("Wedstrijden").Range("A39:A60").Find(cboSpeeldag, , , 1)
If OptMetropool3 = True Then Set Orng = Sheets("Wedstrijden").Range("A76:A97").Find(cboSpeeldag, , , 1)
            
    For i = 2 To 13
        Me("txtTeam" & i).Value = Orng.Offset(0, i).Value
            With Orng
                 txtDatum = Format(CDate(txtDatum.Text), "dd mmmm yyyy")
            End With
    Next
End Sub
 
Als Armand de codes van z'n vorige vraag had gehanteerd, was deze vraag overbodig geweest.
Maar die plaats eerst een nieuwe vraag met bestand alvorens te wachten op de reacties van de vorige vraag.
Vandaar mijn laatste reactie daarin.

Voor degene die ook hardleers zijn; de methode find is niet nodig als je alle gegevens in de combobox plaatst.

Code:
Private Sub cboSpeeldag_Change()
 If cboSpeeldag.ListIndex > -1 Then 
  txtDatum = Format(cboSpeeldag.Column(1), "dd mmmm yyyy")
    For i = 2 To 13
        Me("txtTeam" & i).Value = cboSpeeldag.Column(i)
    Next
 end if
End Sub




Private Sub OptMetropool1_Click()
 cboSpeeldag.List = Sheets("Wedstrijden").Range("A2:N23").Value
 cboSpeeldag.ListIndex = -1
 txtDatum = ""
 textboxen_legen
End Sub


Private Sub OptMetropool2_Click()
 cboSpeeldag.List = Sheets("Wedstrijden").Range("A39:N60").Value
 cboSpeeldag.ListIndex = -1
 txtDatum = ""
 textboxen_legen
End Sub


Private Sub OptMetropool3_Click()
 cboSpeeldag.List = Sheets("Wedstrijden").Range("A76:N97").Value
 cboSpeeldag.ListIndex = -1
 txtDatum = ""
 textboxen_legen
End Sub


Private Sub UserForm_Initialize()
 cboSpeeldag.List = Sheets("Wedstrijden").Range("a2:n23").Value
End Sub


Private Sub textboxen_legen()
 For i = 2 To 13
        Me("txtTeam" & i) = ""
    Next
End Sub

De code voor het wegschrijven heb ik maar zo gelaten.
 

Bijlagen

  • Armandenderest.xlsb
    54 KB · Weergaven: 29
Laatst bewerkt:
Sorry Harry,
Ik wil blijkbaar leren lopen voor ik kan gaan.
Zal in de toekomst een beetje geduldiger zijn.
Maar toch bedankt aan iedereen, alles werkt nu perfect.

@Harry
De bijlage kan ik niet downloaden.
Krijg een systeembericht "Ongeldige bijlage"

Grtjs.
Armand
 
Laatst bewerkt:
Ik heb het bestand opnieuw geplaatst Armand.
Het binnenhalen van het bestand gaf bij mij geen foutmelding trouwens.
 
Hallo Harry,
Het is nu wel gelukt.
Ik had de codes al zo aangepast.
Begint toch al wat beter te lukken.
Ik heb nog wel een vraagje.
Ik zou graag op de sheet "Scores" tussen de speeldagen een extra rij willen voegen, waar ik uiteraard stomweg niet heb aangedacht toen ik hier aan begon.
Maar uiteraard mogen hier geen scores ingevuld, wat niet zou mogen.
Heb dan op alle mogelijke manieren geprobeert om de codes aan te passen voor het wegschrijven van de scores.
Helaas lukt mij het niet.
In bijlage de file met reeds ingevoegde rijen.

Grtjs.
Armand
 

Bijlagen

  • Map6.xlsm
    81,4 KB · Weergaven: 34
Gebruik geen lege regels maar pas de rijhoogte aan. En anders moet je even gaan rekenen zodat je steeds in het gewenste bereik uitkomt.
 
Code:
X = cboSpeeldag * 6 + cboSpeeldag.ListIndex

En waarom de xx niet verhogen naar resp. 4,11,18 en de Offset(,3) verwijderen bij het wegschrijven.
 
Hallo HSV,
Bedankt voor de tip.
Maar ik had gezien op mijn sheet dat er meer dan één rij moest tussen gevoegd worden (omdat er gegevens zijn die nog in collums achter de vorige staan en die ik nodig heb)
Hierdoor werkte
Code:
X = cboSpeeldag * 6 + cboSpeeldag.ListIndex
De XX heb ik wel verhoogt en de offset verwijderd
Dit is nu mijn aangepaste code
Code:
Private Sub cmbWegschrijven_Click()
If OptMetropool1 Then XX = 4
If OptMetropool2 Then XX = 11
If OptMetropool3 Then XX = 18

[COLOR="#FF0000"]X = cboSpeeldag * 13 - 7[/COLOR]
With Sheets("Scores")
    .Cells(X, XX).Resize(, 4) = Array(PtnThuis1, PtnBezoekers1, PinsThuis1, PinsBezoekers1)
    .Cells(X + 1, XX).Resize(, 4) = Array(PtnThuis2, PtnBezoekers2, PinsThuis2, PinsBezoekers2)
    .Cells(X + 2, XX).Resize(, 4) = Array(PtnThuis3, PtnBezoekers3, PinsThuis3, PinsBezoekers3)
    .Cells(X + 3, XX).Resize(, 4) = Array(PtnThuis4, PtnBezoekers4, PinsThuis4, PinsBezoekers4)
    .Cells(X + 4, XX).Resize(, 4) = Array(PtnThuis5, PtnBezoekers5, PinsThuis5, PinsBezoekers5)
    .Cells(X + 5, XX).Resize(, 4) = Array(PtnThuis6, PtnBezoekers6, PinsThuis6, PinsBezoekers6)
End With
For i = 1 To 6
    Me("PtnThuis" & i).Value = ""
    Me("PtnBezoekers" & i).Value = ""
    Me("PinsThuis" & i).Value = ""
    Me("PinsBezoekers" & i).Value = ""
Next
End Sub
En alles werkt nu
Bedankt iedereen

Grtjs.
Armand
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan