Beste leden,

Ik wil graag via een userform unieke waarden wegboeken (4 cijfers en twee hoofdletters)
Nu lukte me dit zonder userform wel aardig maar met niet.
Ik wilde ook nog een bericht wanneer er dubbele waarden zijn ingevuld.
Kan iemand mij helpen??
Bvd,
Piet.

Dag, Piet,

veronderstellingen:
1. datainvoer op het eerste werkblad in column 1
2. userform met TextBox1 en CommandButton1

deze elementen kan je in de code zo nodig aanpassen

Private Sub CommandButton1_Click()
Dim DataRange As Range
Dim Duplicate As Range

If TextBox1 = vbNullString Then Exit Sub

Set DataRange = Sheets(1).Columns(1)

    With DataRange
    Set Duplicate = .Find(TextBox1, after:=.Cells(1), LookIn:=xlValues, lookat:=xlWhole)
    End With

    If Duplicate Is Nothing Then
    Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = TextBox1
    TextBox1 = vbNullString
    Else
    MsgBox "Duplicate found in " & Duplicate.Address, 48, "NO DUPLICATES PLEASE"
    End If
End SubWanneer je op de knop drukt en er iets is ingevuld in textbox1 wordt deze waarde getest:
1. reeds aanwezig in de lijst: popup met waarschuwing
2. niet aanwezig: item worst naar werkblad gecopieerd en textbox1 wordt gewist voor volgende invoer

4 cijfers en 2 hoofletters: nog in de code bij te voegen
komen deze uit een lijst of mag de gebruiker zomaar kiezen ?

beste groeten,
Erik

aanpassing: het is meestal angewezen in dit soort applicaties om de eigenschap van de button "TakeFocusOnClick" op FALSE te zetten
zo blijft je textbox actief voor verdere invoer

Piet, je kan je code (die er voor zorgt dat je formulier getoond wordt) in je algemene module een beetje 'opfrissen'. De macro-recorder stopt er nogal wat 'meuk' bij die niet nodig is....

Vervang die hele sub maar hier voor...Sub knop1()
     UserForm1.Show
End Sub

Dan nog ff over je unieke codes...

komen deze uit een lijst of mag de gebruiker zomaar kiezen ?

Wat is daarop het antwoord?

Groet, Leo

De code wordt aangeleverd door een klant en is willekeurig, maar bestaat wel altijd uit 4 cijfers en twee letters.

Hoi,

Dan heb je hier een uibreiding van mijn code om de invoer te controleren.
Option Explicit

Private Sub CommandButton1_Click()
Dim DataRange As Range
Dim Duplicate As Range
Dim txt As String
Dim msg As String
Dim i As Integer
Dim ch As Integer

If TextBox1 = vbNullString Then Exit Sub

Set DataRange = Sheets(1).Columns(1)

    txt = TextBox1
    If Len(txt) <> 6 Then msg = msg & vbLf & "The input should contain 6 characters."
    If Not IsNumeric(Mid(txt, 1, 4)) Then msg = msg & vbLf & "First 4 characters should be numeric."
   
    On Error Resume Next
    For i = 5 To 6
    ch = Asc(LCase(Mid(txt, i, 1)))
        If ch < 97 Or ch > 122 Then
        msg = msg & vbLf & "Last two characters should be letters."
        Exit For
        End If
    Next i
    On Error GoTo 0

    If Len(msg) > 0 Then
    msg = "Please correct your input!" & vbLf & msg & vbLf & vbLf _
    & "EXAMPLE" & vbLf & "1234AB"
    MsgBox msg, 48, "ERROR"
    Exit Sub
    End If


    With DataRange
    Set Duplicate = .Find(TextBox1, after:=.Cells(1), LookIn:=xlValues, lookat:=xlWhole)
    End With

    If Duplicate Is Nothing Then
    Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = TextBox1
    TextBox1 = vbNullString
    Else
    MsgBox "Duplicate found in " & Duplicate.Address, 48, "NO DUPLICATES PLEASE"
    End If
End Sub
groeten,
Erik

PS: o, ja en probeerde je dit al uit

het is meestal angewezen in dit soort applicaties om de eigenschap van de button "TakeFocusOnClick" op FALSE te zetten

Je bent van harte welkom !
Fijn om zo'n bericht te mogen lezen.

Het ga je goed!
Erik