Voor een kleine hengelclub zoek ik iets voor de leden gegevens bij te houden, iets zoals deze bijgevoegd , maar juist blad 'leden' en ' steekkaart' erbij( steekkaart afdrukbaar) , de rest mag allemaal weg, uiteraard werkend in vba(excel 2016) , grt
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.
Helaas heb ik geen kennis van VBA, iets van Excel, maar een simpele gebruiker. < KNIP >
Private Sub Cmd_00_Click()
With Sheets("Leden")
iRow = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
.Cells(iRow, 1).Resize(, 13).Value = Array(T_00.Value, T_01.Value, T_02.Value, T_03.Value, T_04.Value, _
T_05.Value, T_06.Value, T_07.Value, T_08.Value, T_09.Value, T_10.Value, T_11.Value, T_12.Value)
End With
reset
End Sub
Private Sub Cmd_01_Click()
Set ws = Worksheets("Leden")
Set Rng = [LNRs]
Set fnd = Rng.Find(What:=T_00.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not fnd Is Nothing Then
ws.Cells(fnd.Row, 1).Resize(, 13).Value = Array(T_00.Value, T_01.Value, T_02.Value, T_03.Value, T_04.Value, _
T_05.Value, T_06.Value, T_07.Value, T_08.Value, T_09.Value, T_10.Value, T_11.Value, T_12.Value)
End If
reset
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.