inschrijven schietbaan

[Ron1966]

Goeden dag heren
Ik ben voor mijn verengingen iets aan het maken
En ik heb jullie hulp nodig hier voor
Als ik BIJ inschrijven een naam in voeg en gegevens
En dat dan bij database komt te staan
Zie bij voor beeld
Ron van Beel
Veteranen geweer
Meesterkaart

Bekijk bijlage schietbaan Ron.xlsxBekijk bijlage schietbaan Ron.xlsx

 

[gast0660]

Hoi,
Zoiets mischien?
Uw origineel bestand kon ik niet posten (te groot)
mvg

 

[mvw64]

Misschien kan je iets met dit voorbeeld

Ik heb het blad Schietbaan even verwijderd i.v.m. ge grote meer dan 100 kb

 

[VenA]

@mvw64,

For j = 1 To 18
   If Me("CheckBox" & j) = True Then .Cells(rij, "G").Offset(, j) = Me("CheckBox" & j).Caption
Next j

Scheelt wat copy/paste en aanpassen

 

[HSV]

Zet alles in een array (scheelt schrijfbewegingen naar het werkblad).

With Sheets("datadace")
    rij = .Range("A" & Rows.Count).End(xlUp).Row + 1
 Dim arr(24)
 arr(0) = TextBox1.Value
 arr(5) = TextBox2.Value
 arr(6) = TextBox3.Value
   For j = 1 To 18
     If Me("CheckBox" & j) Then arr(j + 6) = Me("CheckBox" & j).Caption
   Next j
 .Cells(rij, 1).Resize(, 25) = arr
End With

En zonder de variabele:

Dim arr(24)
 arr(0) = TextBox1.Value
 arr(5) = TextBox2.Value
 arr(6) = TextBox3.Value
   For j = 1 To 18
     If Me("CheckBox" & j) Then arr(j + 6) = Me("CheckBox" & j).Caption
   Next j
 Sheets("datadace").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 25) = arr

 

[VenA]

Met als kleine aanvulling wat een lusje scheelt

For j = 1 To 18
If Me("CheckBox" & j) Then
     arr(j + 6) = Me("CheckBox" & j).Caption
     Me("CheckBox" & j) = False
End If

 

[HSV]

Ook nog maar een code voor de vraagstelling. (datum en KNSA nr. omdraaien).

Sub hsv()
With Sheets("datadace").Cells(Rows.Count, 1).End(xlUp).Offset(1)
 .Value = Sheets("inschrijven").Cells(2, 2)
 .Offset(, 5).Resize(, 25) = Application.Transpose(Sheets("inschrijven").range("b3:b22")Value)
End With
End Sub

 

[Ron1966]

Heren als vast bedankt voor de goed reactie
In het inschrijven en database wil ik eerst de leden inschrijven en anders niets
Dus de bedoeling is als ik bij inschrijven iets neer zet moet het bij database komen te staan

zie mijn bestand
alvast bedankt heren

 

[HSV]

Denk om de bestandsnaam (d →b ).

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0, 0) = "B2" Then Sheets("datadace").Cells(Rows.Count, 1).End(xlUp).Offset(1) = Target.Value
End Sub

 

[Ron1966]

Harry sorry maar nou snap ik er niets meer van
hoe moet ik die code in mijn bestand plaatsen

ik bedoel in het bovenste bestand

 

[HSV]

De code plaatsen in bladmodule "inschrijven".
Als je cel B2 veranderd staat de getypte naam van B2 in het ander blad op de eerst volgende regel.