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

Textbox tekst naar getal omzetten

Status
Niet open voor verdere reacties.
Niels28 zei:
Sorteren moet je tot de laatste kolom invulle dus AC , anders worden deze kolommen niet mee gesorteerd en staat je data door elkaar.
Sorteren blijft volgens mij een probleem met verborgen kolommen.
Klik om te vergroten...

Oké, helder! Wellicht dat iemand daar een oplossing voor weet.

Niels28 zei:
Datum wegschrijven vanuit een textbox

Code: 
cells(lrow,"??").value=Cdate(TextBox7.value)

Je moet echt stoppen met .text achter een textbox te zetten dit werkt beter met .value
met .text maak je overal text van.
Klik om te vergroten...

Waar komt die code te staan? Kan ik dit combineren met de code om de weergave te behouden? (dd-mm-yyyy)

Niels28 zei:
Formules raakt je kwijt als je er een textbox waarde in weg schrijft textbox33 wil je dus niet weg schrijven in de cel en die moet je dus overslaan in je macro.
Als er iets moet veranderen aan de gegevens zou je dit in het bron bestand aan moeten passen.
Klik om te vergroten...

Op welke plaats sla ik die over in de macro?

Hier:

Code: 
If InStr("|14|15|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|", "|" & i & "|") Then

of hier:

Code: 
For i = 2 To 34
 
Datum in textbox weergeven zet je bij userform_initialize

Code: 
Private Sub UserForm_Initialize()
TextBox1.Value = Format(CDate(Range("A1").Value), "dd-mm-yyyy")
End Sub


om textbox33 over te slaan

Code: 
For i = 2 To 34
If i = 33 Then Skip = True
If Skip <> True Then
        If InStr("|14|15|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|", "|" & i & "|") Then
            Me("TextBox" & i).Value = Replace(Me("TextBox" & i).Value, ",", ".")
            If Not IsNumeric(Me("TextBox" & i).Value) And Me("TextBox" & i).Value <> "" Then
                MsgBox "Er wordt een numerieke waarde verwacht bij textbox " & i & "."
                Me("TextBox" & i).SetFocus
                Exit Sub
                Exit For
            End If
        End If
        .Cells(lRow, i) = Me("TextBox" & i).Value
End If
Skip = False
Next

Niels
 
Bij het wijzigen van de gegevens krijg ik bij het overslaan van textbox 33 een foutmelding in de gemarkeerde regel:

Code: 
Private Sub WijzigenEnOpslaan_Click()
Application.ScreenUpdating = False
    With Worksheets("Gegevens")
    waarde = Me.ComboBox1.Value
              .Cells(code, 1) = waarde
        For i = 2 To 34
If i = 33 Then Skip = True
If Skip <> True Then
        If InStr("|14|15|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|", "|" & i & "|") Then
            Me("TextBox" & i).Value = Replace(Me("TextBox" & i).Value, ",", ".")
            If Not IsNumeric(Me("TextBox" & i).Value) And Me("TextBox" & i).Value <> "" Then
                MsgBox "Er wordt een numerieke waarde verwacht bij textbox " & i & "."
                Me("TextBox" & i).SetFocus
                Exit Sub
                Exit For
            End If
        End If
       [COLOR="#FF0000"] .Cells(lRow, i) = Me("TextBox" & i).Value[/COLOR]
End If
Skip = False
Next
    End With
'velden leegmaken
    Me.ComboBox1.Value = ""
    For i = 2 To 34
        Me("TextBox" & i).Value = ""
    Next
    Me.ComboBox1.SetFocus
Application.ScreenUpdating = True
End Sub

Ook moet ik TextBox 34 overslaan. Kan ik dat in de code simpel doen door 33|34?
 
Laatst bewerkt:
Als je 33 en 34 over moet slaan is het toch simpel.
Je houdt je code van voor mijn bericht en past for i =2 to 34 aan naar for i = 2 to 32

de foutmelding was dat lrow niet bestaat, dat moet in dit geval code zijn.


Niels
 
Laatst bewerkt:
Oké, dat werkt zo te zien goed. De formules blijven behouden. :thumb: en eigenlijk is het zo simpel, achteraf :o

Het volgende waar ik tegenaan loop, is dat ik de voorwaardelijke opmaak van kolom A ook kwijtraak. In kolom A staan de achternamen en zijn gekoppeld aan de ComboBox. Kan die VO behouden blijven?

P.S. Het sorteren met de verborgen rijen heb ik ondervangen met
Code: 
Rows.Hidden = False
voor de sorteercode te zetten en erachter de code die voldoet aan de voorwaarden voor verbergen. :)
 
Niels28 zei:
Datum in textbox weergeven zet je bij userform_initialize

Code: 
Private Sub UserForm_Initialize()
TextBox1.Value = Format(CDate(Range("A1").Value), "dd-mm-yyyy")
End Sub
Klik om te vergroten...

Ik vraag me nog af waar deze code precies komt in mijn Sub. Heb al wat geprobeerd, maar dat ging fout. En wat bedoel je met de Range A1? De code is bedoeld voor de TextBoxes 7, 10, 11 en 12.
Hieronder mijn Sub zoals die er nu uitziet:

Code: 
Private Sub UserForm_Initialize()
With Sheets("Gegevens")
    sq = .Range("A3:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With
For lLoop = 1 To UBound(sq)
    For lLoop2 = lLoop To UBound(sq)
        If UCase(sq(lLoop2, 1)) < UCase(sq(lLoop, 1)) Then
            str1 = sq(lLoop, 1)
            str2 = sq(lLoop2, 1)
            sq(lLoop, 1) = str2
            sq(lLoop2, 1) = str1
        End If
    Next lLoop2
Next lLoop
ComboBox1.List = sq
End Sub
 
Laatst bewerkt:
Ik weet niet waar je die neer wilt zetten, ik ken je bestand niet,
met welke macro lees je de gegevens in de textbox in?

Voor die voorwaardelijke opmaak kijk eens in je macro waar je gegevens naar een cel wegschrijft dat er altijd
cells(irow,i).value = staat ipv cells(irow,i)= , dan gaat het mij alleen om de .value


Niels
 
Eh... :o misschien kun je hier iets mee. Dit is mijn gehele UserForm code

Code: 
Dim code As Integer

Private Sub ComboBox1_Change()
On Error Resume Next
  code = Worksheets("Gegevens").Range("A:AH").Find(ComboBox1.Value, LookIn:=xlFormulas, Lookat:=xlWhole).Row
End Sub

Private Sub UserForm_Initialize()
With Sheets("Gegevens")
    sq = .Range("A3:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With
For lLoop = 1 To UBound(sq)
    For lLoop2 = lLoop To UBound(sq)
        If UCase(sq(lLoop2, 1)) < UCase(sq(lLoop, 1)) Then
            str1 = sq(lLoop, 1)
            str2 = sq(lLoop2, 1)
            sq(lLoop, 1) = str2
            sq(lLoop2, 1) = str1
        End If
    Next lLoop2
Next lLoop
ComboBox1.List = sq
End Sub

Private Sub NieuweInvoerOpslaan_Click()
Application.ScreenUpdating = False
Dim lRow As Long
'vind de eerste lege rij in de database
lRow = LastUsedRow() + 1
'kopieer de data naar de database
With Sheets("Gegevens")
    .Cells(lRow, 1) = Me.ComboBox1.Value
    For i = 2 To 32
        If InStr("|14|15|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|", "|" & i & "|") Then
            Me("TextBox" & i).Value = Replace(Me("TextBox" & i).Value, ",", ".")
            If Not IsNumeric(Me("TextBox" & i).Value) And Me("TextBox" & i).Value <> "" Then
                MsgBox "Er wordt een numerieke waarde verwacht bij textbox " & i & "."
                Me("TextBox" & i).SetFocus
                Exit Sub
                Exit For
            End If
        End If
        .Cells(lRow, i) = Me("TextBox" & i).Value
Next
End With
Rows.Hidden = False
    With ActiveWorkbook.Worksheets("Gegevens").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("O3:O" & lRow - 1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=Range("A3:A" & lRow - 1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A3:XFD500" & lRow - 1)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Dim rij As Integer
For rij = 1 To Range("a65500").End(xlUp).Row
If Cells(rij, 1).Font.Color = vbRed Then
Rows(rij).Hidden = True
End If
Next
'velden leegmaken
    Me.ComboBox1.Value = ""
    For i = 2 To 34
        Me("TextBox" & i).Text = ""
    Next
    Me.ComboBox1.SetFocus
Application.ScreenUpdating = True
End Sub

Private Sub WijzigenEnOpslaan_Click()
Application.ScreenUpdating = False
    With Worksheets("Gegevens")
    waarde = Me.ComboBox1.Value
              .Cells(code, 1) = waarde
        For i = 2 To 32
        If InStr("|14|15|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|", "|" & i & "|") Then
            Me("TextBox" & i).Value = Replace(Me("TextBox" & i).Value, ",", ".")
            If Not IsNumeric(Me("TextBox" & i).Value) And Me("TextBox" & i).Value <> "" Then
                MsgBox "Er wordt een numerieke waarde verwacht bij textbox " & i & "."
                Me("TextBox" & i).SetFocus
                Exit Sub
                Exit For
            End If
        End If
        .Cells(code, i) = Me("TextBox" & i).Value
Next
    End With
'velden leegmaken
    Me.ComboBox1.Value = ""
    For i = 2 To 34
        Me("TextBox" & i).Value = ""
    Next
    Me.ComboBox1.SetFocus
Application.ScreenUpdating = True
End Sub

Private Sub Opzoeken_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
    With Worksheets("Gegevens")
        For i = 2 To 34
            Me("TextBox" & i) = .Cells(code, i)
        Next
    End With
End Sub

Private Sub MedewerkersZichtbaar_Click()
Application.ScreenUpdating = False
Rows.Hidden = False
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Private Sub MedewerkersVerbergen_Click()
Application.ScreenUpdating = False
Dim rij As Integer
For rij = 1 To Range("a65500").End(xlUp).Row
If Cells(rij, 1).Font.Color = vbRed Then
Rows(rij).Hidden = True
End If
Next
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Private Sub GaNaarDezeWeek_Click()
    Application.ScreenUpdating = False
    Columns("A:XFD").Hidden = False
    With Sheets("Gegevens")
        i = WorksheetFunction.Match(CLng(Date), .Rows(2), 0)
        Application.Goto .Cells(1, i), True
    End With
    Range("A1").Select
    Application.ScreenUpdating = True
    Unload Me
End Sub

Private Sub Sorteren_Click()
    Application.ScreenUpdating = False
    ActiveWorkbook.Worksheets("Gegevens").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Gegevens").Sort.SortFields.Add Key:=Range("O3:O500" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Gegevens").Sort.SortFields.Add Key:=Range("A3:A500" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Gegevens").Sort
        .SetRange Range("A3:ACS500")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

Private Sub AllesZichtbaar_Click()
    Application.ScreenUpdating = False
    Columns("A:XFD").Hidden = False
    Range("C3").Select
    ActiveWindow.FreezePanes = True
    SendKeys ("^{HOME}")
    Application.ScreenUpdating = True
    Unload Me
End Sub

Private Sub AlleVeldenLeegmaken_Click()
'velden leegmaken
    Me.ComboBox1.Value = ""
    For i = 2 To 34
        Me("TextBox" & i).Text = ""
    Next
    Me.ComboBox1.SetFocus
End Sub
 
Probeer het zo eens.

Code: 
Dim code As Integer

Private Sub ComboBox1_Change()
On Error Resume Next
  code = Worksheets("Gegevens").Range("A:AH").Find(ComboBox1.Value, LookIn:=xlFormulas, Lookat:=xlWhole).Row
End Sub

Private Sub UserForm_Initialize()
With Sheets("Gegevens")
    sq = .Range("A3:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With
For lLoop = 1 To UBound(sq)
    For lLoop2 = lLoop To UBound(sq)
        If UCase(sq(lLoop2, 1)) < UCase(sq(lLoop, 1)) Then
            str1 = sq(lLoop, 1)
            str2 = sq(lLoop2, 1)
            sq(lLoop, 1) = str2
            sq(lLoop2, 1) = str1
        End If
    Next lLoop2
Next lLoop
ComboBox1.List = sq
End Sub

Private Sub NieuweInvoerOpslaan_Click()
Application.ScreenUpdating = False
Dim lRow As Long
'vind de eerste lege rij in de database
lRow = LastUsedRow() + 1
'kopieer de data naar de database
With Sheets("Gegevens")
    .Cells(lRow, 1).Value = Me.ComboBox1.Value
    For i = 2 To 32
        If InStr("|14|15|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|", "|" & i & "|") Then
            Me("TextBox" & i).Value = Replace(Me("TextBox" & i).Value, ",", ".")
            If Not IsNumeric(Me("TextBox" & i).Value) And Me("TextBox" & i).Value <> "" Then
                MsgBox "Er wordt een numerieke waarde verwacht bij textbox " & i & "."
                Me("TextBox" & i).SetFocus
                Exit Sub
                Exit For
            End If
        End If
        .Cells(lRow, i).Value = Me("TextBox" & i).Value
Next
End With
Rows.Hidden = False
    With ActiveWorkbook.Worksheets("Gegevens").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("O3:O" & lRow - 1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=Range("A3:A" & lRow - 1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A3:XFD500" & lRow - 1)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Dim rij As Integer
For rij = 1 To Range("a65500").End(xlUp).Row
If Cells(rij, 1).Font.Color = vbRed Then
Rows(rij).Hidden = True
End If
Next
'velden leegmaken
    Me.ComboBox1.Value = ""
    For i = 2 To 34
        Me("TextBox" & i).Value = ""
    Next
    Me.ComboBox1.SetFocus
Application.ScreenUpdating = True
End Sub

Private Sub WijzigenEnOpslaan_Click()
Application.ScreenUpdating = False
    With Worksheets("Gegevens")
    waarde = Me.ComboBox1.Value
              .Cells(code, 1).Value = waarde
        For i = 2 To 32
        If InStr("|14|15|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|", "|" & i & "|") Then
            Me("TextBox" & i).Value = Replace(Me("TextBox" & i).Value, ",", ".")
            If Not IsNumeric(Me("TextBox" & i).Value) And Me("TextBox" & i).Value <> "" Then
                MsgBox "Er wordt een numerieke waarde verwacht bij textbox " & i & "."
                Me("TextBox" & i).SetFocus
                Exit Sub
                Exit For
            End If
        End If
        .Cells(code, i).Value = Me("TextBox" & i).Value
Next
    End With
'velden leegmaken
    Me.ComboBox1.Value = ""
    For i = 2 To 34
        Me("TextBox" & i).Value = ""
    Next
    Me.ComboBox1.SetFocus
Application.ScreenUpdating = True
End Sub

Private Sub Opzoeken_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
    With Worksheets("Gegevens")
        For i = 2 To 34
              If InStr("|7|10|11|12|", "|" & i & "|") Then
              Me("TextBox" & i).Value = Format(CDate(.Cells(code, i).Value), "dd-mm-yyyy")
              Else
            Me("TextBox" & i).Value = .Cells(code, i)
            End If
        Next
    End With
End Sub

Private Sub MedewerkersZichtbaar_Click()
Application.ScreenUpdating = False
Rows.Hidden = False
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Private Sub MedewerkersVerbergen_Click()
Application.ScreenUpdating = False
Dim rij As Integer
For rij = 1 To Range("a65500").End(xlUp).Row
If Cells(rij, 1).Font.Color = vbRed Then
Rows(rij).Hidden = True
End If
Next
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Private Sub GaNaarDezeWeek_Click()
    Application.ScreenUpdating = False
    Columns("A:XFD").Hidden = False
    With Sheets("Gegevens")
        i = WorksheetFunction.Match(CLng(Date), .Rows(2), 0)
        Application.Goto .Cells(1, i), True
    End With
    Range("A1").Select
    Application.ScreenUpdating = True
    Unload Me
End Sub

Private Sub Sorteren_Click()
    Application.ScreenUpdating = False
    ActiveWorkbook.Worksheets("Gegevens").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Gegevens").Sort.SortFields.Add Key:=Range("O3:O500" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Gegevens").Sort.SortFields.Add Key:=Range("A3:A500" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Gegevens").Sort
        .SetRange Range("A3:ACS500")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

Private Sub AllesZichtbaar_Click()
    Application.ScreenUpdating = False
    Columns("A:XFD").Hidden = False
    Range("C3").Select
    ActiveWindow.FreezePanes = True
    SendKeys ("^{HOME}")
    Application.ScreenUpdating = True
    Unload Me
End Sub

Private Sub AlleVeldenLeegmaken_Click()
'velden leegmaken
    Me.ComboBox1.Value = ""
    For i = 2 To 34
        Me("TextBox" & i).Value = ""
    Next
    Me.ComboBox1.SetFocus
End Sub

Niels
 
Voor zover ik heb kunnen ontdekken, werkt alles. :thumb: Alleen de voorwaardelijke opmaak in kolom A is nog verdwenen. :confused:
 
Laatst bewerkt door een moderator:
Plaats die VW-opmaak eens opnieuw en probeer het dan nog eens,
er staat zover mijn kennis reikt niks in de macro die je VW-opmaak verwijderd.

Niels
 
Ik heb de VO verwijderd en opnieuw ingesteld.
Als ik bij een medewerker iets wijzig, verdwijnt de VO.
Die blijft dan ook weg bij die medewerker als ik daarna de VO opnieuw instel. :confused:
 
Staat er nog een code achter het blad gegevens?

Kun je een voorbeeld bestand maken waarin dit ook gebeurt, ik heb op verschillende manieren de macro geprobeerd maar bij mij blijft de VW-opmaak bestaan.

Niels
 
Hierbij het bestand. Naam 3 en 4 vallen binnen de voorwaarden van de VO.

Er staat geen code achter het werkblad.
 

Bijlagen

Je voorwaardelijke opmaak is niet weg. Er is iets met de celeigenschappen. ga maar in de cel staan selecteer de datum en geef enter.
Probleem van verkeerde datum is zo op te lossen.
De cel is leeg en dat is hetzelfde als 0 in dit geval.


met onderstaande code zijn beide problemen opgelost.
Code: 
Private Sub WijzigenEnOpslaan_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
Application.ScreenUpdating = False
    With Worksheets("Gegevens")
    waarde = Me.ComboBox1.Value
              .Cells(code, 1).Value = waarde
        For i = 2 To 32
        If InStr("|14|15|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|", "|" & i & "|") Then
            Me("TextBox" & i).Value = Replace(Me("TextBox" & i).Value, ",", ".")
            If Not IsNumeric(Me("TextBox" & i).Value) And Me("TextBox" & i).Value <> "" Then
                MsgBox "Er wordt een numerieke waarde verwacht bij textbox " & i & "."
                Me("TextBox" & i).SetFocus
                Exit Sub
                Exit For
            End If
        End If
        If InStr("|7|10|11|12|", "|" & i & "|") Then
        If Me("TextBox" & i).Value <> "" Then
        .Cells(code, i).Value = CDate(Me("TextBox" & i).Value)
        End If
        Else
        .Cells(code, i).Value = Me("TextBox" & i).Value
        End If
Next
    End With
'velden leegmaken
    Me.ComboBox1.Value = ""
    For i = 2 To 34
        Me("TextBox" & i).Value = ""
    Next
    Me.ComboBox1.SetFocus
Application.ScreenUpdating = True
End Sub

Private Sub Opzoeken_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
    With Worksheets("Gegevens")
        For i = 2 To 34
              If InStr("|7|10|11|12|", "|" & i & "|") Then
            If .Cells(code, i).Value <> "" Then
              Me("TextBox" & i).Value = CDate(.Cells(code, i).Value)
              End If
              Else
            Me("TextBox" & i).Value = .Cells(code, i)
            End If
        Next
    End With
End Sub

Niels
 
Waarom zou je trouwens op de knop opzoeken willen klikken.
terwijl dit ook automatisch kan als je de combobox aanpast.

Code: 
Private Sub ComboBox1_Change()
On Error Resume Next
  code = Worksheets("Gegevens").Range("A:AH").Find(ComboBox1.Value, LookIn:=xlFormulas, Lookat:=xlWhole).Row
If ComboBox1.ListIndex = -1 Then Exit Sub
    With Worksheets("Gegevens")
        For i = 2 To 34
              If InStr("|7|10|11|12|", "|" & i & "|") Then
            If .Cells(code, i).Value <> "" Then
              Me("TextBox" & i).Value = CDate(.Cells(code, i).Value)
              End If
              Else
            Me("TextBox" & i).Value = .Cells(code, i)
            End If
        Next
    End With
End Sub

Nieuwe invoer werkt ook niet pas dit aan:

Code: 
Private Sub NieuweInvoerOpslaan_Click()
If ComboBox1.Value = "" Then Exit Sub
Application.ScreenUpdating = False
enz.....

Niels
 
Niels28 zei:
met onderstaande code zijn beide problemen opgelost.
Klik om te vergroten...

Cool! Heb nu nog geen 'bugjes' kunnen ontdekken. :thumb: Je hebt het bestand ook. Wellicht ontdek jij nog iets wat verholpen kan worden.

Laat ik vooral de vingertjes gekruist houden en je heel erg hartelijk danken voor je energie. :thumb:
Ik heb weer anders tegen codes aan leren kijken zo :o

Grote klasse, Niels :thumb:
 
Laatst bewerkt:
Niels28 zei:
Waarom zou je trouwens op de knop opzoeken willen klikken.
terwijl dit ook automatisch kan als je de combobox aanpast
Klik om te vergroten...

Mijn collega's willen die opzoeken knop gebruiken en het werkt ook gemakkelijker met nieuwe invoer met lege velden.
 
Laatst bewerkt:
Misschien toch nog één vraagje, Niels.

Is het ook mogelijk om de ComboBox.List direct te refreshen?

Bij een nieuwe invoer moet ik nu eerst het Userform sluiten en weer openen alvorens de nieuwe naam te zien.
 
Zet onderaan in de macro van de wegschrijfknop voor end sub het volgende:

Code: 
Unload Me
UserForm1.Show

Userform1 = naam van jouw userform.

Niels
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan