Userform

9 replies on “Userform”

• Best heren hele fijne instructie en video en tekst voor uitvoeren van het formulier
  Alleen bij de id box had ik graag in plaats van cijfers , woorden willen kunnen gebruiken
  Ik heb veel op gezocht maar vind de logica niet om de regel

  Sub GetData()
  If IsNumeric(Contacten.TextBox1.Value) Then
  flag = False
  i = 0

  om te zetting dat deze een boolean opzet van strings in plaats van nummer
  Graag enig in zicht hoe ik dit kan te bewerk stellen
  Ik zou graag een tabel hebben zie zoekbaar is op strings en niet op nummer
  Dus was mijn idee om id vba aan te passen naar string in plaats van tekst
  Groeten Mario

  

  Borremans mario

  27 februari 2022

  Beantwoorden

  • Je wilt de functionaliteit aanpassen om te zoeken op strings in plaats van nummers.

    Om een specifiek veld als een string te behandelen in plaats van een getal, kun je de variabele voor dat veld expliciet als een string declareren.

    Hier is een voorbeeld van hoe je het kunt doen:

    Sub GetData()
    Dim flag As Boolean
    Dim i As Long ‘ Gebruik Long in plaats van Integer voor grotere waarden
    Dim searchString As String ‘ Voeg een variabele toe voor de zoektekst

    ‘ Vervang “TextBox1” door de juiste naam van het tekstvak dat de zoekterm bevat
    searchString = Trim(Contacten.TextBox1.Value)

    flag = False
    i = 1 ‘ Ik neem aan dat je met rij 1 begint, omdat rij 0 niet bestaat in Excel

    ‘ Voer hier je zoeklogica uit
    ‘ Voorbeeld:
    Do While Not IsEmpty(Sheets(“Sheet1”).Cells(i, 1)) ‘ Stoppen als er geen gegevens meer zijn in kolom A
    ‘ Vergelijk de waarde in kolom A (in dit geval) met de zoektekst
    If StrComp(Sheets(“Sheet1”).Cells(i, 1).Value, searchString, vbTextCompare) = 0 Then
    flag = True
    Exit Do ‘ Als overeenkomst is gevonden, stop de lus
    End If
    i = i + 1
    Loop

    ‘ Voer hier je logica uit op basis van het zoekresultaat (flag)
    If flag Then
    MsgBox “String gevonden in de tabel!”
    Else
    MsgBox “String niet gevonden.”
    End If
    End Sub

    In dit voorbeeld wordt de waarde van het tekstvak “TextBox1” in de variabele “searchString” opgeslagen. Vervolgens wordt er door de gegevens in kolom A van “Sheet1” gelust om te controleren op overeenkomsten.

    De functie `StrComp` wordt gebruikt om de waarden te vergelijken zonder hoofdlettergevoeligheid (vbTextCompare). Als er een overeenkomst is gevonden, wordt de variabele “flag” ingesteld op “True”.

    Opmerking: Zorg ervoor dat je de juiste werkbladnaam (bijv. “Sheet1”) gebruikt en de juiste kolom (bijv. kolom A) voor jouw specifieke gegevens.

    Je kunt deze logica aanpassen aan de specifieke structuur van jouw gegevens en de acties uitvoeren die je nodig hebt wanneer een overeenkomst wordt gevonden.

    

    Joost Administrator

    30 juli 2023

    Beantwoorden

• Leuk gedaan. Bedankt, maar heb een vraagje hoe kan ik de code beste schrijven als ik bijvoorbeeld de userform op blad1 heb, maar de dat moet op blad2 komen te staan, en de tabel begint bij C5.

  Is dat makkelijk om aan te passen?

  Met vriendelijke groet,

  Jelle Ruben

  

  Jelle Ruben

  4 maart 2022

  Beantwoorden

  • Om de gegevens in de UserForm naar Blad2 te schrijven en te beginnen bij C5, moet je de verwijzingen naar het bereik van de cellen aanpassen. Ook moet je de naam van het werkblad aangeven in de functies. Hier is de aangepaste code:

    Dim id As Integer, i As Integer, j As Integer, flag As Boolean

    Sub GetData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(“Blad2”) ‘ Vervang “Blad2” door de naam van je werkblad

    If IsNumeric(Contacten.TextBox1.Value) Then
    flag = False
    i = 0
    id = Contacten.TextBox1.Value
    Do While ws.Cells(i + 5, 1).Value <> “” ‘ Begin bij rij 5 op Blad2 (C5)
    If ws.Cells(i + 5, 1).Value = id Then
    flag = True
    For j = 2 To 3
    Contacten.Controls(“TextBox” & j).Value = ws.Cells(i + 5, j).Value
    Next j
    End If
    i = i + 1
    Loop
    If flag = False Then
    For j = 2 To 3
    Contacten.Controls(“TextBox” & j).Value = “”
    Next j
    End If
    Else
    ClearForm
    End If
    End Sub

    Sub ClearForm()
    For j = 1 To 3
    Contacten.Controls(“TextBox” & j).Value = “”
    Next j
    End Sub

    Sub EditAdd()
    Dim emptyRow As Long
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(“Blad2”) ‘ Vervang “Blad2” door de naam van je werkblad

    If Contacten.TextBox1.Value <> “” Then
    flag = False
    i = 0
    id = Contacten.TextBox1.Value
    emptyRow = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1 ‘ Zoek de eerste lege rij in kolom A van Blad2
    Do While ws.Cells(i + 5, 1).Value <> “” ‘ Begin bij rij 5 op Blad2 (C5)
    If ws.Cells(i + 5, 1).Value = id Then
    flag = True
    For j = 2 To 3
    ws.Cells(i + 5, j).Value = Contacten.Controls(“TextBox” & j).Value
    Next j
    End If
    i = i + 1
    Loop
    If flag = False Then
    For j = 1 To 3
    ws.Cells(emptyRow, j).Value = Contacten.Controls(“TextBox” & j).Value
    Next j
    End If
    End If
    End Sub

    Zorg ervoor dat je de naam “Blad2” vervangt door de daadwerkelijke naam van het werkblad waarop je de gegevens wilt opslaan.

    Ook wordt ervan uitgegaan dat de UserForm de naam “Contacten” heeft, aangezien dit in de code wordt gebruikt.

    Als de naam van de UserForm anders is, wijzig dit dan ook naar de juiste naam.

    

    Joost Administrator

    30 juli 2023

    Beantwoorden

• Heel handig dit. Wel een vraagje. De button “maak leeg” maakt idd het veld leeg echter niet de betreffende rij vanaf a1. Kan het zelf uitzoeken maar dit lijkt mij niet de bedoeling?

  Eigenlijk wil je een overzichtje van de records hebben en dan daar aan toevoegen en of wijzigen cq verwijderen….hoe doe je dat in dit voorbeeld?

  

  anton

  27 september 2023

  Beantwoorden

• Je kunt een opdrachtknop “Regel Verwijderen” toevoegen door een nieuwe subroutine toe te voegen aan de code en deze aan een nieuwe knop op het gebruikersformulier te koppelen.
  Hieronder de code hoe je dat kunt doen:

  1. Voeg een nieuwe subroutine toe voor het verwijderen van een regel:

  Sub VerwijderRegel()
  If IsNumeric(Contacten.TextBox1.Value) Then
  Dim idToDelete As Integer
  idToDelete = Contacten.TextBox1.Value
  Dim lastRow As Long
  lastRow = Cells(Rows.Count, 1).End(xlUp).Row
  Dim rowToDelete As Long
  rowToDelete = 0

  ‘ Zoek de rij om te verwijderen
  For i = 1 To lastRow
  If Cells(i, 1).Value = idToDelete Then
  rowToDelete = i
  Exit For
  End If
  Next i

  ‘ Verwijder de rij als deze is gevonden
  If rowToDelete > 0 Then
  Rows(rowToDelete).Delete
  ClearForm
  End If
  End If
  End Sub

  2. Koppel deze nieuwe subroutine aan de nieuwe knop op het gebruikersformulier.
  Stel dat de knop de naam “BtnVerwijder” heeft, dan kun je onderstaande code toevoegen om de subroutine uit te voeren.

  Private Sub BtnVerwijder_Click()
  VerwijderRegel
  End Sub

  Wanneer je op de “Regel Verwijderen” knop klikt, wordt de geselecteerde regel met het opgegeven ID verwijderd, en wordt het formulier leeggemaakt met behulp van de `ClearForm` subroutine.
  Zorg ervoor dat je de knop “BtnVerwijder” aanmaakt op de gebruikersformulier en deze code aan de knop koppelt zoals hierboven beschreven.

  

  Joost Administrator

  28 september 2023

  Beantwoorden

• thx, het werkt. En voor een overzichtje maak ik gewoon een werkblad die verborgen is zichtbaar, daar zie je dan de userform dus kan je naar hartenlust toevoegen, wijzigen en verwijderen en zodra je sluit maak ik het werkblad weer verborgen. Als je een mooiere oplossing hebt houd ik mij aanbevolen!

  

  anton

  29 september 2023

  Beantwoorden

• Goedenmorgen,

  Kunt u aangeven wat fout gaat.
  Ik heb alles stappen gevolgd maar bij het het onderstaande gaat de userform niet open.

  Nu wil je vanuit Excel dit userform kunnen openen. Daar gaan we nu een knop voor maken. Sluit de VB Editor voor even (hier komen we zo weer terug voor de codes) en maak in Excel een ActiveX Opdrachtknop. Klik dubbel op deze knop en zorg dat deze code daar komt te staan:
  Private Sub CommandButton1_Click()
  Contacten.Show
  End Sub

  Er wordt een foutmelding getoond bij CONTACTEN.SHOW.

  Private Sub CommandButton1_Click()
  Contacten.Show
  End Sub

  Hopelijk kunt u mij helpen.

  Alvast dank!

  mvg,
  Roy

  

  Roy

  9 oktober 2023

  Beantwoorden

  • Als de userform niet wordt geopend en je een foutmelding krijgt bij `Contacten.Show`, zijn er een paar dingen die je kunt controleren:

    1. Naamgeving van de UserForm:
    Zorg ervoor dat de daadwerkelijke naam van de UserForm “Contacten” is. In de Visual Basic for Applications (VBA)-editor moet de naam van de UserForm exact overeenkomen met de naam die je in je code gebruikt. Controleer of je de UserForm correct hebt genoemd.

    2. Zichtbaarheid van de UserForm:
    Zorg ervoor dat de eigenschap “Visible” van de UserForm is ingesteld op “0 – fmVisible”. Dit zorgt ervoor dat de UserForm zichtbaar is wanneer je `Contacten.Show` gebruikt. Je kunt deze eigenschap instellen in de eigenschappenvenster van de UserForm in de VBA-editor.

    3. Foutmeldingen:
    Als je een foutmelding krijgt, kijk dan naar de details van de foutmelding. Dit kan je helpen begrijpen wat er misgaat. Fouten kunnen variëren van typfouten in de naam van de UserForm tot andere runtime-fouten die kunnen optreden tijdens de uitvoering van de code.

    Succes!

    

    Joost Administrator

    10 oktober 2023

    Beantwoorden