Goedemiddag,
Ik ben nieuw hier en ook net begonnen om VBA onder de knie te krijgen.
Nu heb ik de volgende vraag. Ik wil graag dat de tekstvelden gevuld worden als ik een naam selecteer in de keuzelijst. De nieuwe data wordt wel goed aangevuld in het Excel blad. Ook wordt de keuzelijst verder aangevuld als er nieuwe data wordt ingevoerd. Echter als ik al een bestaande (in dit geval een naam) aanklik in de keuzelijst blijven de tekstvelden met bijbehorende data leeg.
Ik heb hieronder de VBA code geplaatst.
--------------------------------------------------------------------------------
Private Sub cmdSluiten_Click()
Unload Me
End Sub
Private Sub cmdToevoegen_Click()
Dim VolgendeRij As Long
If txtNaam = "" Then
MsgBox "U moet een naam invoeren.", vbExclamation
txtNaam.SetFocus
Exit Sub
End If
VolgendeRij = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Cells(VolgendeRij, 1) = txtNaam.Text
Cells(VolgendeRij, 2) = txtAdres.Text
Cells(VolgendeRij, 3) = txtPostcode.Text
Cells(VolgendeRij, 4) = txtWoonplaats.Text
End Sub
Private Sub txtNaam_Change()
End Sub
Private Sub UserForm_Initialize()
cboKlantnaam.RowSource = Sheets("Blad1").Range("A1", Range("A100").End(xlUp)).Address
End Sub
----------------------------------------------------------------------------------------------
Alvast bedankt.
Jacques
Ik ben nieuw hier en ook net begonnen om VBA onder de knie te krijgen.
Nu heb ik de volgende vraag. Ik wil graag dat de tekstvelden gevuld worden als ik een naam selecteer in de keuzelijst. De nieuwe data wordt wel goed aangevuld in het Excel blad. Ook wordt de keuzelijst verder aangevuld als er nieuwe data wordt ingevoerd. Echter als ik al een bestaande (in dit geval een naam) aanklik in de keuzelijst blijven de tekstvelden met bijbehorende data leeg.
Ik heb hieronder de VBA code geplaatst.
--------------------------------------------------------------------------------
Private Sub cmdSluiten_Click()
Unload Me
End Sub
Private Sub cmdToevoegen_Click()
Dim VolgendeRij As Long
If txtNaam = "" Then
MsgBox "U moet een naam invoeren.", vbExclamation
txtNaam.SetFocus
Exit Sub
End If
VolgendeRij = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Cells(VolgendeRij, 1) = txtNaam.Text
Cells(VolgendeRij, 2) = txtAdres.Text
Cells(VolgendeRij, 3) = txtPostcode.Text
Cells(VolgendeRij, 4) = txtWoonplaats.Text
End Sub
Private Sub txtNaam_Change()
End Sub
Private Sub UserForm_Initialize()
cboKlantnaam.RowSource = Sheets("Blad1").Range("A1", Range("A100").End(xlUp)).Address
End Sub
----------------------------------------------------------------------------------------------
Alvast bedankt.
Jacques