Hallo Johan,

hierbij wat code die ik vroeger schreef om klantgegevens van die via een Userform zijn ingegeven, bij druk op de knop naar het werkblad over te zetten.
Als je dit bekijkt dan snap je de werkwijze vanzelf.

Plezier 

Private Sub cmbToevoegen_Click()
'Plaats de gegevens op het werkblad Klanten
Sheets("Klanten").Range("A1").End(xlDown).Offset(1, 0) = txtKlantnummer.Value
Sheets("Klanten").Range("A1").End(xlDown).Offset(0, 1) = txtNaam.Value
Sheets("Klanten").Range("A1").End(xlDown).Offset(0, 2) = txtVoornaam.Value
Sheets("Klanten").Range("A1").End(xlDown).Offset(0, 3) = txtStraat.Value
Sheets("Klanten").Range("A1").End(xlDown).Offset(0, 4) = txtPostcode.Value
Sheets("Klanten").Range("A1").End(xlDown).Offset(0, 5) = txtGemeente.Value
'Plaats voor telefoon een ' anders valt eerste nul weg
txtTelefoon = "'" & txtTelefoon.Value
Sheets("Klanten").Range("A1").End(xlDown).Offset(0, 6) = txtTelefoon.Value
'Plaats voor GSM Nummer een ' anders valt eerste nul weg
txtGSM = "'" & txtGSM.Value
Sheets("Klanten").Range("A1").End(xlDown).Offset(0, 7) = txtGSM.Value
Sheets("Klanten").Range("A1").End(xlDown).Offset(0, 8) = txtGeboren.Value
Sheets("Klanten").Range("A1").End(xlDown).Offset(0, 9) = txtEmail.Value
'Sorteer werkblad Klanten op naam en voornaam, hierdoor verschijnen de klanten alfabetisch
Sheets("Klanten").Visible = True
Sheets("Klanten").Select
Sheets("Klanten").Cells.Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2") _
    , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:= _
    False, Orientation:=xlTopToBottom
Sheets("Klanten").Range("A1").Select
Unload Me
End Sub
SoftAid              

Hoi SoftAid,

Hallo Johan,

hierbij wat code die ik vroeger schreef om klantgegevens van die via een Userform zijn ingegeven, bij druk op de knop naar het werkblad over te zetten.
Als je dit bekijkt dan snap je de werkwijze vanzelf.

Plezier 

Ik zal daar in de loop van de dag eens mijn brein op loslaten, al heb ik wel zo nu direct een vraag: Wat houdt "Range("A1")" nou precies in? Het lijkt mij sterk dat daar cel A1 mee bedoeld word?

Hallo Helpers en oplossers

Ik vorder gestaag in het begrijpen van enige code en begin ook langzaamaan mijn honger naar meer gestalte te geven

Ik zit met het volgende, en dat is mede ingegeven door de code die SoftAid eerder had gepost. Wanneer ik bij het invulvakje "C" een C type, C staat voor Correctie, dan moet ik in het vakje ernaast vermelden over welk factuurnummer dit gaat. zover gaat het lekker

Vervolgens wil ik dat de uitkomst daarvan, zeg bijvoorbeeld 3, in de opmerking van de betreffende regel terecht komt. Ik dacht dat kan ik met de volgende code wel doen:

'koppel C factuur aan  opmerkingen
If Me.TxtCFact.Value = " " Then
Me.TxtOpm = "Correctie op factuurnr:" & Me.TxtCFact.Value & Me.TxtOpm.Value
End If

Maar dat werkt niet

Wat doe ik hier verkeerd?

Zal voor de volledigheid mijn laatste versie ook even aanhangen

Goedemorgen,

Toch nog een vraag(je)

Ik wil graag wanneer ik "C" in "TxtC" zet dat er verplicht in "TxtCFact" een factuurnr wordt ingevuld. Met de code:

'Verplichte factuurnr vermelding
If Me.TxtC.Value = "C" Then
If Me.TxtCFact.Value = "" Then
Me.TxtCFact.SetFocus
MsgBox "vul het fatuurnr in"
End If
End If

Geeft hij wel het bericht dat ik een factuurnr moet invullen, maar als ik dan in die msgbox op OK druk dan vult hij de gegevens al in de tabel in en en word het formulier leeg gemaakt.

Wie kan mij vertellen wat ik hier verkeerd doe?

Alvast dank voor jullie engelen geduld

Hallo SoftAid,

Fijn forum hier, mensen met engelengeduld zijn zeldzaam geworden

zo te zien is er ook niets dat de code ervan weerhoud om verder te gaan, ook als je niets invult.

Een For-Next-lus met een Exit-For conditie (indien er iets ingevuld is in Me.TxtCFact) zou dit kunnen verhelpen:
Iets in deze aard....? (Niet getest!!)

Om met het slechte nieuws te beginnen: de code doet niets, of althans het genereert een compileer fout die luidt "End If zonder blok If" waarbij de eerste "End If" in de code geselecteerd werd.

Mijn eerste gedachte: haal die "End If" gewoon weg, helemaal fout natuurlijk. Tot mijn stomme verbazing selecteert hij nu helemaal aan het eind van de gehele routine de "End Sub" en geeft wederom de compileer fout met als mededeling "Blok If zonder End If" dus precies het tegenovergestelde van de eerste fout.

Toen dacht ik, zet die "End If" vlak boven die "End Sub". effect had het wel, nml geen foutmelding maar ook geen werking van de code, of te wel hij laat toe dat ik geen factuurnr invul...

Misschien is het even handiger dat ik de gehele routine hier breng:

Private Sub CmndBInvoer_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("2017")

'vind de laatste cel en ga naar de volgende
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'verplichte velden controle
If Trim(Me.TxtFacNr.Value) = "" Then
Me.TxtFacNr.SetFocus
MsgBox "Factuurnummer invullen is verplicht"
Exit Sub
End If

If Trim(Me.TxtDatum.Value) = "" Then
Me.TxtDatum.SetFocus
MsgBox "Datum invullen is verplicht"
Exit Sub
End If

If Trim(Me.TxtSurge.Value) = "" Then
Me.TxtSurge.SetFocus
MsgBox "Vul de Surge factor in"
Exit Sub
End If

'koppel C factuur aan  opmerkingen
If Me.TxtC.Value = "C" Then
Me.TxtOpm = "Correctie op factuurnr: " & Me.TxtCFact.Value & Me.TxtOpm.Value
End If

'Verplichte factuurnr vermelding
If Me.TxtC.Value = "C" Then
For Uit = 1 To 100  'of misschien zelfs 100 vervangen door Max ?
If Me.TxtCFact.Value = "" Then
Me.TxtCFact.SetFocus
MsgBox "vul het fatuurnr in"
Else: Exit For  ' Als Me.TxtCFact.Value <> is dan "" verlaat dan de routine For Uit
End If
Next Uit


'koppel Annuleer aan opmerkingen
If Me.TxtA.Value = "A" Then
Me.TxtOpm = "Geannuleerde rit " & Me.TxtOpm.Value
End If
'koppel Ritprijs delen aan Opmerkingen
If Me.TxtFactDeel.Value = " " Then
Me.TxtOpm = "Rit word gedeeld met Factuurnr: " & Me.TxtFactDeel.Value & Me.TxtOpm.Value
End If

'hier vullen we de gegevens op de juiste plek in
ws.Cells(iRow, 1).Value = Me.TxtFacNr.Value
ws.Cells(iRow, 4).Value = Me.TxtDatum.Value
ws.Cells(iRow, 5).Value = Me.TxtSurge.Value
ws.Cells(iRow, 6).Value = Me.TxtA.Value
ws.Cells(iRow, 7).Value = Me.TxtB.Value
ws.Cells(iRow, 8).Value = Me.TxtC.Value
ws.Cells(iRow, 11).Value = Me.TxtAfstand.Value
ws.Cells(iRow, 12).Value = Me.TxtTijd.Value
ws.Cells(iRow, 13).Value = Me.TxtDelen.Value
ws.Cells(iRow, 21).Value = Me.TxtOpm.Value


'verwijderen van de invoer
Me.TxtFacNr.Value = ""
Me.TxtDatum.Value = ""
Me.TxtSurge.Value = ""
Me.TxtA.Value = ""
Me.TxtB.Value = ""
Me.TxtC.Value = ""
Me.TxtAfstand.Value = ""
Me.TxtTijd.Value = ""
Me.TxtDelen.Value = ""
Me.TxtOpm.Value = ""
Me.TxtCFact.Value = ""
Me.TxtFactDeel.Value = ""
Me.TxtFacNr.SetFocus

End If
End Sub
Ik heb het gevoel dat de laatste "End If" niet op zijn plek staat maar wel ergens terecht moet komen, al heb ik geen flauw idee waarom

Bovenstaande werkt Wederom bedankt voor de Basis SoftAid, En om gelijk met de deur in huis te vallen:

Hoe kan ik in code ook een niet vooraf vaststaand getal, die veelal ook nog eens kleiner is dan 1 formuleren want "*" werkt niet echt lekker, of eigenlijk helemaal niet. De bedoeling is hetzelfde als met "C" maar nu met Delen, die heeft nml ook een factuurnr nodig.

Sorry, die vraag zal je gedetailleerder moeten uitleggen, ben maar een beginneling hé 

SoftAid              

Hoi SoftAid,

Ik moet echt gaan oppassen dat ik dit niet te leuk ga vinden hoor Maar ik heb mijn probleempje helemaal opgelost. Ik heb een radiobutton gemaakt en die laat ik aan of zet ik uit indien TxTDelen leeg is. en aan de hand van de status van die radiobutton kan ik dan wel of niet de opmerking laten plaatsen.

De code is lekker eenvoudig:

'OptDelen aan en uit zetten
If Me.TxtDelen.Value = "" Then
Me.OptDelen.Value = False
End If
En omdat hij bij de volgende invoer natuurlijk gewoon weer moet controleren, zet ik de status weer terug op True bij de volgende invoer. En volgens mij kan ik ook nog die radio button onzichtbaar laten zijn dus dat is helemaal toppie