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

Datum invoeren middels een Userform

Status
Niet open voor verdere reacties.

Lutkeher

Gebruiker
Lid geworden
4 jan 2020
Berichten
34
Goedenavond,

Ik heb een bestand in Excel waarin elke speeldatum de uitslag wordt verwerkt. Deze voor ik in via de keuze op menu Dag uitslag invoeren. Echter wat ik in dit Userform1 niet voor elkaar krijg is dat als ik de speeldatum invoer deze vervolgens in blad Dag uitslag in cel C1 komt te staan. Wel worden de naam en uitslagen van de speler naar sheet Dag uitslag gekopieerd.
Kan iemand mij helpen?

Alvast bedankt

Met vriendelijke groet,

Herman
 

Bijlagen

  • Voorbeeldbestand.xlsm
    275,3 KB · Weergaven: 26
Zo:
Code:
Sheets("Dag uitslag").Cells(1, "C") = CDate(TextBox1)
 
Halle EdMoor,

Bedankt voor je sneller reactie, ga het proberen. Maar waar moet ik deze code toeveoegen?

Dit is mijn huidige code:

Private Sub UserForm_Initialize() 'UserForm laden
TextBox1.Text = " "
End Sub



Private Sub CommandButton1_Click() 'Invoeren
Dim rij As Integer
rij = Sheets("Dag uitslag").Range("B65536").End(xlUp).Row + 1 'Zoek de Onderste lege regel
Sheets("Dag uitslag").Cells(rij, "B") = TextBox2
Sheets("Dag uitslag").Cells(rij, "C") = TextBox3
Sheets("Dag uitslag").Cells(rij, "D") = TextBox4
Sheets("Dag uitslag").Cells(rij, "H") = TextBox5
Sheets("Dag uitslag").Cells(rij, "I") = TextBox6
Sheets("Dag uitslag").Cells(rij, "J") = TextBox7
Sheets("Dag uitslag").Cells(rij, "K") = TextBox8
Sheets("Dag uitslag").Cells(rij, "L") = TextBox9



TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty


End Sub


Private Sub CommandButton2_Click() 'Sluiten
Unload UserForm1

End Sub
 
Direct onder Dim rij As Integer
 
Hoi Edmoor,

Ik was een beetje te snel, intussen gevonden en het werkt perfect.

Nogmaals bedankt.

Met vriendelijke groet,

Herman
 
Hallo Edmoor,

Als ik b.v een deelnemer toevoeg staat in Textbox achter Naam altijd de cursor te ver naar rechts, hierdoor heb ik dus standaard een spatie die ook gekopieerd wordt naar de Sheet. Is hier een oplossing voor?

Alvast bedankt
 
Die spatie zet je er zelf in met:
Code:
Private Sub UserForm_Initialize() 'UserForm laden
TextBox1.Text = " "
End Sub

Wijzig dus " " in ""
Of laat die regel gewoon helemaal weg.
 
Laatst bewerkt:
Geen spatie invoeren achter de naam? En anders gebruik je Trim. Zet je de code in #3, die veel eenvoudiger kan, nog even tussen codetags?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan