Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
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.
Private Sub cmdannuleren_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
With Sheets("debiteuren")
selrij = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
.Cells(selrij, 1).Resize(, 7).Value = Array(txtnaam.Value, , txttav.Value, txtadres.Value, txtpcenwp.Value, txtemail.Value, txtmobiel.Value)
End With
For Each Ctrl In Controls
If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = ""
Next Ctrl
Unload Me
End Sub
Private Sub cmdOK_Click()
With Sheets("Debiteuren").ListObjects(1)
.ListRows.Add.Range.Resize(, 7) = Array(txtnaam, Application.Max(.Range.Columns(2)) + 1, txttav, txtadres, txtpcenwp, txtemail, txtmobiel)
End With
For Each ct In Me.Controls
If TypeName(ct) = "TextBox" Then ct.Value = ""
Next ct
End Sub
Ik heb de formule geplaatst hij werkt maar bij het door Tab slaat hij mobiel over pakt eerst ok en anuleren daarna pas mobiel.
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.