71
Excel / Re: Bestand voor genealogie
« Laatste bericht door Genealoog100 Gepost op 14 april 2024, 17:42:53 »Beste SoftAid
Dank voor de verwelkoming
Inderdaad is de bedoeling om toch zelf te leren met behulp van jullie wijsheden en tsoeptsoep en de almighty Google
Maar 't spel zit al op de wagen zie
De code in het rood herkent hij niet.
enig raad of advies.
Alvast bedankt
Groeten
Marcel
Dank voor de verwelkoming
Inderdaad is de bedoeling om toch zelf te leren met behulp van jullie wijsheden en tsoeptsoep en de almighty Google
Maar 't spel zit al op de wagen zie
De code in het rood herkent hij niet.
enig raad of advies.
Code: [Selecteer]
'CommandButton "SAVE"
Private Sub cmbSave_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("BS_G_OVL")
Dim rij As Long
rij = Sheets("Worksheet").Range("B" & Rows.Count).End(xlUp).Row 'Deze code herkent hij niet.
'---------------- Toewijzen van data aan de juiste cellen -------------------------
With sh
Cells(rij + 1, "B").Value = Me.TxtVolgnr.Value
Cells(rij + 1, "C").Value = Me.txtRegister.Value
Cells(rij + 1, "D").Value = Me.txtWelke.Value
Cells(rij + 1, "E").Value = Me.txtProvincie.Value
Cells(rij + 1, "F").Value = Me.txtSex.Value
Cells(rij + 1, "G").Value = Me.txtNaam.Value
Cells(rij + 1, "H").Value = Me.txtVoornaam.Value
Cells(rij + 1, "I").Value = Me.txtVader.Value
Cells(rij + 1, "J").Value = Me.txtVNVader.Value
Cells(rij + 1, "K").Value = Me.txtMoeder.Value
Cells(rij + 1, "L").Value = Me.txtVNMoeder.Value
Cells(rij + 1, "M").Value = Me.txtGD.Value
Cells(rij + 1, "N").Value = Me.txtPostcode.Value
Cells(rij + 1, "O").Value = Me.txtPlaats.Value
Cells(rij + 1, "P").Value = Me.cbTypeDoc.Value
Cells(rij + 1, "R").Value = Me.txtbron.Value
Cells(rij + 1, "S").Value = Me.cbOAkte.Value
Cells(rij + 1, "T").Value = Me.cbHAkte.Value
End With
'--------- Hier worden de cellen leeggemaakt na saven van de data------------
Me.TxtVolgnr.Value = ""
Me.txtRegister.Value = ""
Me.txtWelke.Value = ""
Me.txtProvincie.Value = ""
Me.txtSex.Value = ""
Me.txtNaam.Value = ""
Me.txtVoornaam.Value = ""
Me.txtVader.Value = ""
Me.txtVNVader.Value = ""
Me.txtMoeder.Value = ""
Me.txtVNMoeder.Value = ""
Me.txtGD.Value = ""
Me.txtPostcode.Value = ""
Me.txtPlaats.Value = ""
Me.cbTypeDoc.Value = ""
Me.txtbron.Value = ""
Me.cbOAkte.Value = ""
Me.cbHAkte.Value = ""
End Sub
Alvast bedankt
Groeten
Marcel