SjonR
Verenigingslid
- Lid geworden
- 10 nov 2016
- Berichten
- 3.317
Hallo allemaal,
Ik heb een userform waarbij ik de data wegschrijf naar de eerstvolgende lege regel in blad 1. Dat werkt perfect met textboxes en comboboxes, maar hoe ik het voor elkaar krijg met de optionbuttons is mij een raadsel.
Bekijk bijlage voorbeelduserfom.xlsm
ik heb tussen de werkende code omschreven welke wens ik heb voor een optionbutton of groepje optionbuttons.
Ook heb ik een probleempje met de weergegeven datum op het userform bij aanmaakdatum. Hij geeft een getal ipv een datum. Het wordt wel goed weggeschreven naar blad1, maar het zou prettig zijn als het ook in de userform als datum wordt weergegeven.
Ik hoop dat iemand hier iets op kan vinden
Ik heb een userform waarbij ik de data wegschrijf naar de eerstvolgende lege regel in blad 1. Dat werkt perfect met textboxes en comboboxes, maar hoe ik het voor elkaar krijg met de optionbuttons is mij een raadsel.
Bekijk bijlage voorbeelduserfom.xlsm
ik heb tussen de werkende code omschreven welke wens ik heb voor een optionbutton of groepje optionbuttons.
Ook heb ik een probleempje met de weergegeven datum op het userform bij aanmaakdatum. Hij geeft een getal ipv een datum. Het wordt wel goed weggeschreven naar blad1, maar het zou prettig zijn als het ook in de userform als datum wordt weergegeven.
Ik hoop dat iemand hier iets op kan vinden
Code:
Private Sub CommandButton1_Click()
Dim LastRow As Long, ws As Worksheet
Set ws = Blad1
LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
ws.Range("A" & LastRow).Value = reg1.Text
ws.Range("B" & LastRow).Value = reg2.Text
ws.Range("c" & LastRow).Value = reg3.Text
'In kolom D moet "goed" of "fout" worden gevuld op basis van Optionbuttons OB1 of OB2
'In kolom E moet "ja" worden gevuld als de optie Spelling (FOUT4) is aangeklikt
'In kolom F moet "ja" worden gevuld als de optie Grammatica (FOUT2) is aangeklikt
'In kolom G moet "ja" worden gevuld als de optie Zinsopbouw(FOUT3) is aangeklikt
ws.Range("H" & LastRow).Value = TB1.Text
ws.Range("I" & LastRow).Value = cmb1.Text
ws.Range("J" & LastRow).Value = TB5.Text
Dim lReply As Long
Dim strFind As String
Set wsh = Worksheets("Blad2")
strFind = Me.reg1
With wsh.UsedRange.Columns(1)
If WorksheetFunction.CountIf(.Cells, strFind) <> 0 Then
.Cells.Find(What:=strFind, After:=.Cells(1, 1), MatchCase:=True).EntireRow.Delete
Else
MsgBox "Could not find " & strFind & " on " & ws.Name, vbCritical
Exit Sub
End If
End With
strFind = "VO" & strFind
On Error Resume Next
Application.DisplayAlerts = False
Sheets(strFind).Delete
Application.DisplayAlerts = True
On Error GoTo 0
Unload Me
End Sub