Tekst weergeven

[wpayanda]

Hallo allemaal,

wie kan mij helpen?

Ik heb nu een formulier gemaakt en wil de gegevens die daarop ingevuld worden laten kopieren in een excel file. nu heb ik twee problemen:

1- ik heb een textbox waar men het datum kan invoeren, welke code moet ik gebruiken om de ingevoerde datum te kunnen kopieren naar een cell? ik gebruik de volgende code en het werk niet!!

Dim datum As Date
datum = TextBox2.Value
If TextBox2.Value = True Then
Sheets("Formulier").Range("G5").Value = datum
End If


2- hetzelfde probleem maar met het invoeren van tekst, volgende regel gebruik ik nu:

If TextBox3.Text = Text Then
Sheets("Formulier").Range("G46").Value = TextBox3.Text
End If


alvast bedankt

 

[Wigi]

Dim datum As Date
datum = TextBox2.Value
If TextBox2.Value = True Then
Sheets("Formulier").Range("G5").Value = datum
End If

Probeer eens

If datum > 0 Then

 

[wpayanda]

Ik heb het gedaan maar krijg de volgende foutmelding:

RunTime error '13'
Type Mismatch

hieronder nogmaals de code. textbox 2 en 3 heb ik problemen mee!!


Private Sub CommandButton2_Click()

If OptionButton5.Value = True Then
Sheets("Formulier").Range("B3").Value = TextBox4.Value
End If
If TextBox1.Value = True Then
Sheets("Formulier").Range("G3").Value = TextBox1.Value
End If

Dim datum As Date
datum = TextBox2.Value
If datum > 0 Then
Sheets("Formulier").Range("G5").Value = datum
End If

If TextBox3.Text = Text Then
Sheets("Formulier").Range("G46").Value = TextBox3.Text
End If

 

[Wigi]

Zet code eens tussen code tags aub.

 

[wpayanda]

ik moet wel even zeggen dat ik niet zo handig ben wat programmeren betreft (ben wel begonnen met leren maar dat zal nog even duren!) . wilt u me dan even uitleggen wat u bedoelt met codetags?

 

[Wigi]

Zie hier:

http://www.helpmij.nl/forum/showthread.php?t=278887

 

[wpayanda]

ok hartelijk bedankt voor de reactie. hierbij nogmaals de ode tussen de tags!!

 Private Sub Label1_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub MultiPage1_Change()

End Sub

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
           
  Sheets("Formulier").Range("B3").Value = OptionButton1.Caption
  End If

End Sub

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
           
  Sheets("Formulier").Range("B3").Value = OptionButton2.Caption
  End If

End Sub

Private Sub OptionButton3_Click()
If OptionButton3.Value = True Then
           
  Sheets("Formulier").Range("B3").Value = OptionButton3.Caption
  End If

End Sub

Private Sub OptionButton4_Click()
If OptionButton4.Value = True Then
           
  Sheets("Formulier").Range("B3").Value = OptionButton4.Caption
  End If

End Sub

Private Sub OptionButton5_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()


End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub TextBox4_Change()


End Sub


Private Sub UserForm_Initialize()
    MultiPage1.Value = 0 'de telling van de pages begint bij 0
    CommandButton1.Enabled = False
    If (MultiPage1.Pages.Count = 1) Then
        CommandButton2.Caption = "Finish"
    End If
    SetCaption
End Sub

Private Sub SetCaption()
     Caption = "Wizard step " & MultiPage1.Value + 1 & " of " & MultiPage1.Pages.Count
End Sub
Private Sub CommandButton3_Click()
    Me.Tag = vbCancel
    Unload Me
   Call clearcell
Range("B3").Select
End Sub

Private Sub CommandButton2_Click()

If OptionButton5.Value = True Then
Sheets("Formulier").Range("B3").Value = TextBox4.Value
End If
If TextBox1.Value = True Then
Sheets("Formulier").Range("G3").Value = TextBox1.Value
End If

Dim datum As Date
datum = TextBox2.Value
If datum > 0 Then
Sheets("Formulier").Range("G5").Value = datum
End If

If TextBox3.Text = Text Then
Sheets("Formulier").Range("G46").Value = TextBox3.Text
End If

    If ((MultiPage1.Value + 1) = MultiPage1.Pages.Count) Then
        Me.Tag = vbOK
        Unload Me
    Else
        MultiPage1.Value = MultiPage1.Value + 1
        If (MultiPage1.Value + 1 = MultiPage1.Pages.Count) Then
            CommandButton2.Caption = "Finish"
        End If
        CommandButton1.Enabled = True
        SetCaption
    End If
    
    
    
End Sub
Private Sub CommandButton1_Click()
    MultiPage1.Value = MultiPage1.Value - 1
    If (MultiPage1.Value = 0) Then
        CommandButton1.Enabled = False
    End If
    CommandButton2.Caption = "Next >"
    SetCaption
End Sub

dit is dan de hele code. de rest doet het wel behalve de tekstvakken 2 en 3