Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Cell automatisch met hoofdletter beginnen.  (gelezen 443 keer)

0 leden en 1 gast bekijken dit topic.

Offline Zomeren

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Cell automatisch met hoofdletter beginnen.
« Gepost op: 06 december 2022, 08:55:32 »
deze formules heb ik over genomen van Textboxen in een Userform en werken daar prima. nu wil ik dit in Cellen toepassen (voor iets anders) maar werkt pas als ik hem uitvoert. verder zijn ze exact zoals ik het wil hebben.
hoe kan ik ze aansturen automatisch?
rivate Sub Range_O18_Change()
    Sheets("InvoerSheet").Range("O18") = UCase(Sheets("InvoerSheet").Range("O18"))
End Sub

Private Sub Range_O20_Change()
    Sheets("InvoerSheet").Range("O20") = StrConv(Sheets("InvoerSheet").Range("O20"), vbProperCase)
End Sub

Private Sub Range_O21_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr(1, ",.<>:/\|?*" & Chr(34), Chr(KeyAscii)) > 0 Then
        KeyAscii = 0
    Else
        Sheets("InvoerSheet").Range("O21") = StrConv(Sheets("InvoerSheet").Range("O21"), vbProperCase)
    End If
End Sub

Private Sub Range_22_Change()
    Sheets("InvoerSheet").Range("O22") = UCase(Sheets("InvoerSheet").Range("O22"))
End Sub

Private Sub Range_23_Change()
    Sheets("InvoerSheet").Range("O23") = UCase(Sheets("InvoerSheet").Range("O23"))
End Sub

Private Sub Range_24_Change()
    Sheets("InvoerSheet").Range("O24") = (Sheets("InvoerSheet").Range("O24"))
End Sub

Private Sub Range_25_Change()
    Sheets("InvoerSheet").Range("O25") = (Sheets("InvoerSheet").Range("O25"))
End Sub

Private Sub Range_26_Change()
    Sheets("InvoerSheet").Range("O26") = UCase(Sheets("InvoerSheet").Range("O26"))
End Sub
Private Sub Range_27_Change()
    Sheets("InvoerSheet").Range("O27") = UCase(Left(Sheets("InvoerSheet").Range("O27"), 1)) & LCase(Mid(Sheets("InvoerSheet").Range("O27"), 2))
End Sub

Private Sub Range_28_Click()
    Sheets("InvoerSheet").Range("O28") = UCase(Left(Sheets("InvoerSheet").Range("O28"), 1)) & LCase(Mid(Sheets("InvoerSheet").Range("O28"), 2))
End Sub

 


www.combell.com