Hey i need some help with this Issue
1. Combobox 2 take value from 1-128 on Colomn C3 to C131
2. Combobox 1 have Value from 0-7 and look for if "0" then Nothing
if "1" then Nothing then Label6 cell "D3" Label7 Cell "E3" Label8 Cell "F3"
if "2" then Nothing then Label6 cell "G3" Label7 Cell "H3" Label8 Cell "I3"
if "3" then Nothing then Label6 cell "J3" Label7 Cell "K3" Label8 Cell "L3"
if "4" then Nothing then Label6 cell "M3" Label7 Cell "N3" Label8 Cell "O3"
if "5" then Nothing then Label6 cell "P3" Label7 Cell "Q3" Label8 Cell "R3"
if "6" then Nothing then Label6 cell "S3" Label7 Cell "T3" Label8 Cell "U3"
if "7" then Nothing then Label6 cell "V3" Label7 Cell "W3" Label8 Cell "X3"
1. Combobox 2 take value from 2 on Colomn C4
2. Combobox 1 have Value from 0-7 and look for if "0" then Nothing
if "1" then Nothing then Label6 cell "D4" Label7 Cell "E4" Label8 Cell "F4"
if "2" then Nothing then Label6 cell "G4" Label7 Cell "H4" Label8 Cell "I4"
if "3" then Nothing then Label6 cell "J4" Label7 Cell "K4" Label8 Cell "L4"
if "4" then Nothing then Label6 cell "M4" Label7 Cell "N4" Label8 Cell "O4"
if "5" then Nothing then Label6 cell "P4" Label7 Cell "Q4" Label8 Cell "R4"
if "6" then Nothing then Label6 cell "S4" Label7 Cell "T4" Label8 Cell "U4"
if "7" then Nothing then Label6 cell "V4" Label7 Cell "W4" Label8 Cell "X4"
and so on Until Combobox 2 is 128
And if i Click on Command Button 1 (Change Value) then Textbox 1 - 3 appear and then i can change values in Cell's
if combobox2 is 1 and combobox1 is 1 and click on Button1 then textbox 1 can change value in "D3"
textbox 2 can change value in "E3"
textbox 3 can change value in "F3"
combobox1 is 2 and click on Button1 then textbox 1 can change value in "G3"
textbox 2 can change value in "H3"
textbox 3 can change value in "I3"
combobox1 is 3 and click on Button1 then textbox 1 can change value in "J3"
textbox 2 can change value in "K3"
textbox 3 can change value in "L3"
and so on until Combox1 is 7
Command Button2 is Unhide Userform (that part works)
Command Button3 is (Save Result) i havent yet Figure That out
Hope that was Enogh info at this moment
1. Combobox 2 take value from 1-128 on Colomn C3 to C131
2. Combobox 1 have Value from 0-7 and look for if "0" then Nothing
if "1" then Nothing then Label6 cell "D3" Label7 Cell "E3" Label8 Cell "F3"
if "2" then Nothing then Label6 cell "G3" Label7 Cell "H3" Label8 Cell "I3"
if "3" then Nothing then Label6 cell "J3" Label7 Cell "K3" Label8 Cell "L3"
if "4" then Nothing then Label6 cell "M3" Label7 Cell "N3" Label8 Cell "O3"
if "5" then Nothing then Label6 cell "P3" Label7 Cell "Q3" Label8 Cell "R3"
if "6" then Nothing then Label6 cell "S3" Label7 Cell "T3" Label8 Cell "U3"
if "7" then Nothing then Label6 cell "V3" Label7 Cell "W3" Label8 Cell "X3"
1. Combobox 2 take value from 2 on Colomn C4
2. Combobox 1 have Value from 0-7 and look for if "0" then Nothing
if "1" then Nothing then Label6 cell "D4" Label7 Cell "E4" Label8 Cell "F4"
if "2" then Nothing then Label6 cell "G4" Label7 Cell "H4" Label8 Cell "I4"
if "3" then Nothing then Label6 cell "J4" Label7 Cell "K4" Label8 Cell "L4"
if "4" then Nothing then Label6 cell "M4" Label7 Cell "N4" Label8 Cell "O4"
if "5" then Nothing then Label6 cell "P4" Label7 Cell "Q4" Label8 Cell "R4"
if "6" then Nothing then Label6 cell "S4" Label7 Cell "T4" Label8 Cell "U4"
if "7" then Nothing then Label6 cell "V4" Label7 Cell "W4" Label8 Cell "X4"
and so on Until Combobox 2 is 128
And if i Click on Command Button 1 (Change Value) then Textbox 1 - 3 appear and then i can change values in Cell's
if combobox2 is 1 and combobox1 is 1 and click on Button1 then textbox 1 can change value in "D3"
textbox 2 can change value in "E3"
textbox 3 can change value in "F3"
combobox1 is 2 and click on Button1 then textbox 1 can change value in "G3"
textbox 2 can change value in "H3"
textbox 3 can change value in "I3"
combobox1 is 3 and click on Button1 then textbox 1 can change value in "J3"
textbox 2 can change value in "K3"
textbox 3 can change value in "L3"
and so on until Combox1 is 7
Command Button2 is Unhide Userform (that part works)
Command Button3 is (Save Result) i havent yet Figure That out
Code:
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
Dim f As Long
For i = 1 To 7
Me.ComboBox2.AddItem "" & i
ComboBox2.List = Sheets("H-erne").Range("C3:C131").Value
Next i
For f = 1 To 7
Me.ComboBox1.AddItem "" & f
Next f
End Sub
Private Sub CommandButton1_Click()
UserForm4.Label6.Visible = True
UserForm4.Label7.Visible = True
UserForm4.Label8.Visible = True
End Sub
Private Sub CommandButton2_Click()
UserForm4.Label6.Visible = False
UserForm4.Label7.Visible = False
UserForm4.Label8.Visible = False
End Sub
Private Sub CommandButton3_Click()
UserForm4.Hide
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Last edited: