lemonstreet25
Gebruiker
- Lid geworden
- 27 sep 2016
- Berichten
- 52
Excellisten,
In bijgaand vb bestand heb ik een userform gemaakt om waarden mee weg te schrijven naar een tabel. Ik heb niet een verplichting ingebouwd (bewust) om ALLE gegevens ineens te moeten opgeven. Dus moet het mogelijk zijn om later het record (row) weer te laden in de userform, aan te vullen en weer (in dezelfde rij van tabel) weg te schrijven. Vraag: welke code koppel ik aan de "aanvullen" Commandbutton in het userform? De bedoeling is om op basis van de waarde in Kolom A van de tabel (S-nummer in de vorm S123456789) de gegevens uit die rij weer te geven, aan te vullen waar nodig (of zelfs wijzigen) en weer in diezelfde rij weg te schrijven. Mijn poging tot nu toe:
Bekijk bijlage Invoerformulier BC sheet.xlsm
In bijgaand vb bestand heb ik een userform gemaakt om waarden mee weg te schrijven naar een tabel. Ik heb niet een verplichting ingebouwd (bewust) om ALLE gegevens ineens te moeten opgeven. Dus moet het mogelijk zijn om later het record (row) weer te laden in de userform, aan te vullen en weer (in dezelfde rij van tabel) weg te schrijven. Vraag: welke code koppel ik aan de "aanvullen" Commandbutton in het userform? De bedoeling is om op basis van de waarde in Kolom A van de tabel (S-nummer in de vorm S123456789) de gegevens uit die rij weer te geven, aan te vullen waar nodig (of zelfs wijzigen) en weer in diezelfde rij weg te schrijven. Mijn poging tot nu toe:
Code:
Private Sub CommandButton2_Click()
Dim Changerow As ListRow
If Len(Trim(TextBox1.Value)) = 0 Then
MsgBox ("Vul s-nummer in"), vbInformation
Else: For Each cell In Range("tabel1").Column("S-nummer")
If cell.Value = TextBox1.Text Then
Changerow = cell.Row
MsgBox Changerow
End If
End If
End Sub
Bekijk bijlage Invoerformulier BC sheet.xlsm