Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 16 van 16

Onderwerp: vullen van textboxen en wegschrijven

  1. #1
    Senior Member
    Geregistreerd
    17 oktober 2007
    Locatie
    Borsbeek (België)
    Vraag is opgelost

    vullen van textboxen en wegschrijven

    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
    Attached Files Attached Files

  2. #2
    Mega Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    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.
    Attached Files Attached Files

  3. #3
    Senior Member
    Geregistreerd
    17 oktober 2007
    Locatie
    Borsbeek (België)
    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
    Attached Files Attached Files

  4. #4
    Mega Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    Armand,

    Kijk eens of dit doet wat je voor ogen hebt:
    Attached Files Attached Files

  5. #5
    Senior Member
    Geregistreerd
    17 oktober 2007
    Locatie
    Borsbeek (België)
    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

  6. #6
    Mega Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    Dat is mooi . De tabvolgorde moet inderdaad nog even worden aangepast.

    Succes!

  7. #7
    Senior Member
    Geregistreerd
    17 oktober 2007
    Locatie
    Borsbeek (België)
    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
    Attached Files Attached Files

  8. #8
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    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(1), "dd mmmm yyyy")
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  9. #9
    Mega Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    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

  10. #10
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    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.
    Attached Files Attached Files
    Laatst aangepast door HSV : 15 februari 2018 om 16:32
    ____________
    mvg,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  11. #11
    Senior Member
    Geregistreerd
    17 oktober 2007
    Locatie
    Borsbeek (België)
    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 aangepast door bowlingman : 15 februari 2018 om 15:51

  12. #12
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Ik heb het bestand opnieuw geplaatst Armand.
    Het binnenhalen van het bestand gaf bij mij geen foutmelding trouwens.
    ____________
    mvg,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  13. #13
    Senior Member
    Geregistreerd
    17 oktober 2007
    Locatie
    Borsbeek (België)
    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
    Attached Files Attached Files

  14. #14
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Gebruik geen lege regels maar pas de rijhoogte aan. En anders moet je even gaan rekenen zodat je steeds in het gewenste bereik uitkomt.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  15. #15
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    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.
    ____________
    mvg,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  16. #16
    Senior Member
    Geregistreerd
    17 oktober 2007
    Locatie
    Borsbeek (België)
    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
    
    X = cboSpeeldag * 13 - 7
    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 aangepast door bowlingman : 16 februari 2018 om 10:10

  17. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Aanbiedingen