Beste forumleden,
Userforms zijn nog erg nieuw voor me en ik ben er nu een tijdje mee bezig (interpreteer dat maar als dagen het internet afstruinen, proberen, tutorials kijken, forumvragen lezen....)
omdat ik graag het liefst goed begrijp welke aanpassingen ik moet doen zodat ik het userform ten volle kan benutten.
Onlangs ben ik heel goed geholpen op dit forum dus ik waag het er weer maar op. Mijn vraag is als volgt.
Op mijn userform staan tot nu toe alleen textboxen. Graag zou ik textbox5 vervangen door een groep van 4 optionbuttons.
In een oefenbestandje lukte het me wel om de gekozen selectie in een kolom te krijgen maar ik weet niet hoe ik de code van mijn bestaande userform moet aanpassen zodat het de keuze van de optionbutton in die kolom gezet wordt (de invoer van de huidige textbox5 werd geplaatst in kolom F)
Ik heb een topic gevonden dat daarover gaat, maar dat gaat echt boven mijn pet(je): http://www.ozgrid.com/VBA/control-loop.htm
Dit is de code die ik heb voor de optionbuttons (maakt gebruik van ActiveCell )
De code voor (al) mijn textboxen is momenteel als volgt.
Alle hulp is welkom en waardeer ik enorm.
Userforms zijn nog erg nieuw voor me en ik ben er nu een tijdje mee bezig (interpreteer dat maar als dagen het internet afstruinen, proberen, tutorials kijken, forumvragen lezen....)
omdat ik graag het liefst goed begrijp welke aanpassingen ik moet doen zodat ik het userform ten volle kan benutten.
Onlangs ben ik heel goed geholpen op dit forum dus ik waag het er weer maar op. Mijn vraag is als volgt.
Op mijn userform staan tot nu toe alleen textboxen. Graag zou ik textbox5 vervangen door een groep van 4 optionbuttons.
In een oefenbestandje lukte het me wel om de gekozen selectie in een kolom te krijgen maar ik weet niet hoe ik de code van mijn bestaande userform moet aanpassen zodat het de keuze van de optionbutton in die kolom gezet wordt (de invoer van de huidige textbox5 werd geplaatst in kolom F)
Ik heb een topic gevonden dat daarover gaat, maar dat gaat echt boven mijn pet(je): http://www.ozgrid.com/VBA/control-loop.htm
Dit is de code die ik heb voor de optionbuttons (maakt gebruik van ActiveCell )
Code:
If OptionButton1.Value = True Then
ActiveCell.Value = OptionButton1.Caption
ElseIf OptionButton2.Value = True Then
ActiveCell.Value = OptionButton2.Caption
ElseIf OptionButton3.Value = True Then
ActiveCell.Value = OptionButton3.Caption
ElseIf OptionButton4.Value = True Then
ActiveCell.Value = OptionButton4.Caption
End If
De code voor (al) mijn textboxen is momenteel als volgt.
Code:
Option Explicit
Dim id As Integer, i As Integer, j As Integer, flag As Boolean
Sub GetData()
If IsNumeric(UserForm1.TextBox1.Value) Then
flag = False
i = 0
id = UserForm1.TextBox1.Value
Do While Cells(i + 1, 2).Value <> ""
If Cells(i + 1, 2).Value = id Then
flag = True
For j = 2 To 18
UserForm1.Controls("TextBox" & j).Value = Cells(i + 1, j + 1).Value
Next j
End If
i = i + 1
Loop
If flag = False Then
For j = 2 To 18
UserForm1.Controls("TextBox" & j).Value = ""
Next j
End If
Else
ClearForm
End If
End Sub
Code:
Sub EditAdd()
Dim emptyRow As Long
If UserForm1.TextBox1.Value <> "" Then
flag = False
i = 0
id = UserForm1.TextBox1.Value
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1
Do While Cells(i + 1, 2).Value <> ""
If Cells(i + 1, 2).Value = id Then
flag = True
For j = 2 To 18
Cells(i + 1, j + 1).Value = UserForm1.Controls("TextBox" & j).Value
Next j
End If
i = i + 1
Loop
If flag = False Then
For j = 1 To 18
Cells(emptyRow, j + 1).Value = UserForm1.Controls("TextBox" & j).Value
Next j
End If
End Sub
Code:
Sub ClearForm()
For j = 1 To 18
UserForm1.Controls("TextBox" & j).Value = ""
Next j
End Sub
Alle hulp is welkom en waardeer ik enorm.