gegevens uit formulier door naar tabel copy.

[pascallino]

Hallo allemaal,

Ik heb een formuliertje gemaakt deze kan ik ook al oproepen in excel
maar het is me nog niet gelukt de inhoud naar in tabel te kopiëren
Ik heb een code gevonden maar ik weet niet hoe ik deze moet aanpassen aan mijn werkblad
De code:
Private Sub btnOK_Click()
Dim intWaarde As Integer
Dim strSchaatser As String
Dim strMinuten As String
Dim strSeconden As String
Dim strHonderdsten As String
Dim strUitslag As String
Dim dblPunten As Double
Dim calcfactor As Double
Dim strLand As String
Application.ScreenUpdating = False
If Len(txtMinuten.Value) = 0 Then
strMinuten = "00"
ElseIf Len(txtMinuten.Value) = 1 Then
strMinuten = "0" & txtMinuten.Value
Else
strMinuten = txtMinuten.Value
End If
If Len(txtSeconden.Value) = 0 Then
strSeconden = "00"
ElseIf Len(txtSeconden.Value) = 1 Then
strSeconden = "0" & txtSeconden.Value
Else
strSeconden = txtSeconden.Value
End If
If Len(txtHonderdsten.Value) = 0 Then
strHonderdsten = "00"
ElseIf Len(txtHonderdsten.Value) = 1 Then
strHonderdsten = "0" + txtHonderdsten.Value
Else
strHonderdsten = txtHonderdsten.Value
End If
strUitslag = strMinuten & ":" & strSeconden & ":" & strHonderdsten

If cmbDeelnemer.Value = "" Then
MsgBox "Je moet wel een schaats(t)er kiezen"
cmbDeelnemer.SetFocus
Exit Sub
Else
strSchaatser = cmbDeelnemer.Value
strLand = Application.WorksheetFunction.VLookup(strSchaatser, Range("Deelnemerslijst"), 2)
End If
If optbtn500 Then
intWaarde = 1
calcfactor = 1000
ElseIf optbtn1500 Then
intWaarde = 2
calcfactor = 5000 / 15
ElseIf optbtn5000 Then
intWaarde = 3
calcfactor = 100
ElseIf optbtn10000 Then
intWaarde = 4
calcfactor = 50
Else
MsgBox "Je moet wel een afstand kiezen"
End If
dblPunten = Int((CDbl(strMinuten) * 60 + CDbl(strSeconden) + CDbl(strHonderdsten) / 100) * calcfactor)
Sheets(intWaarde + 1).Visible = True
Sheets(intWaarde + 1).Select
Sheets(intWaarde + 1).Range("B1").Select
res = Application.Match(strSchaatser, Range("B2:B1000"), 0)
If Not IsError(res) Then
rij = Range("B2:B1000")(res).Row
antwoord = MsgBox("Deze schaatser heeft al een uitslag op deze afstand; vervangen?", vbYesNo)
If antwoord = vbYes Then
Range("B" & CStr(rij)).Select
ActiveCell.Value = strSchaatser
Selection.Offset(0, 1).Value = strUitslag
Selection.Offset(0, 2).Value = dblPunten
Selection.Offset(0, 3).Value = strLand
Else
Sheets("Menu").Select
End If
Else
If Range("B2").Value = "" Then
regel = 2
Else
Selection.End(xlDown).Select
regel = Selection.Row + 1
End If
Range("B" + CStr(regel)).Select
ActiveCell.Value = strSchaatser
Selection.Offset(0, 1).Value = strUitslag
Selection.Offset(0, 2).Value = dblPunten
Selection.Offset(0, 3).Value = strLand
End If
Sheets(intWaarde + 1).Visible = False
Me.Hide
standberekenen
Sheets("Menu").Select
Sheets("Menu").Range("A1").Select

End Sub
Einde code.
kan iemand mij helpen?

M.v.g. Pascallino

(ps. geen ingewikkelde begrippen a.u.b. ik ben nog maar 12)

 

[Warme bakkertje]

Wel Pascallino, welkom op het forum. Het is misschien handiger dat je je bestandje met het formulier in hier op het forum plaatst zodat het voor ons makkelijker is om je de juiste uitleg te geven. Nu hebben wij er ook maar het raden naar waar de gegevens uit je formulier moeten komen. Moest er vertrouwelijke informatie in je bestand staan (namen, adressen, e.d.) mag je die wel eerst wissen, zolang we maar kunnen zien waar wat moet komen.

 

[pascallino]

Opgelost

Hallo,

Ik heb het kunnen oplossen door een ander topic.
Dat is dit topic
Bedankt.

M.v.g. Pascallino