userform with many Modes..

[Hjemmet]

On a userform i have these Function's
Combobox1
Labels 1 to 7
Textbox 1 to 10
and Commanbutton 1 to 7

I need the Combobox to Look on Range from Cell ("A1:A127") i get it to work on these Codeline

Private Sub UserForm_Initialize()'add column of data from spreadsheet to your userform ComboBox
ComboBox1.List = Sheets("Ark3").Range("A1:A127").Value


end Sub

But i can't figure out to get Value from Cell when Combobox1 is Set to "1" then Label1 set value from "B1" and Label2 set value From "D1"
and so on with Combobox1 from 1 to 127 Label1 and Label2 take value from B1 to B127 and D1 to D127

hope that was enough info

 

[My Aswer Is This]

Not sure why you need Command Buttons or Textboxes

This script will run when you select a value from ComboBox1

Assuming you have 7 labels named Label1 Label2 etc.

Private Sub ComboBox1_Change()
'Modified  7/29/2019  10:39:35 PM  EDT
Dim i As Long
Dim x As Long
x = 2
For i = 1 To 7
    Me.Controls("Label" & i).Caption = Cells(ComboBox1.ListIndex + 1, x).Value
    x = x + 2
Next
End Sub

 

[Hjemmet]

The textbox’s will be used later in my programming combined
With the Command buttons

it try your code later after I got free from work

 

[Hjemmet]

Soory but i couldne get it to Work so i know put a link to my file here

https://www.dropbox.com/s/i7witfxukosklmj/total%20changes%20with%20description%201.xlsm?dl=0

 

[My Aswer Is This]

I never open files posted on this form

So my script does this:

You said you had a script in your Userform that loads all values from A1 To A127 of active sheet into ComboBox1

Now when you select a value in the ComboBox1 you want for example.

If you choose 3 from listbox1 and the 3 is on line row(3) column A

Then Label1 caption will have the value from row(3) column (2 and Label2 caption will be from Row(3) column 4 and so on for all 7 labels.


Explain exactly what happened and what you want if not what I describe.

Are all your labels named Label1 then Label2 and etc?

Saying:

Soory but i couldne get it to Work

Does not tell me much. Did you get a error code?
Or what exactly did not work.​

 

[Hjemmet]

I got this picture what happen

1. start userform "

2. after Chosen "1" on my Combobox "

3. then userform looks like this "

4. then this Failor

 

[Hjemmet]

I try Again....

Combobox1 looks on Column A1 to A127 to get Value to Label's in sheet's ("ARK3") and Sheets IS NOT Worksheets or main Sheets' Macro will Call the Userform

If Combobox1 Is set "1 - 127" then Label1 , 3, 5, 7 Read cell "B1 - B127" and Label2 , 4 , 6 , 8 Read cell "C1 - C127"

and Label 9 read from cell "D1 - D127"
and Label 10 read from Cell "E1 - E127"

and so on until 127

Hope that was more then enough Info as first time

 

[My Aswer Is This]

So tell me what do you have in this ComboBox on your Userform?

Do you have:
1
2
3
4
5
6
and on and on

so if you select 1 you search row(1) is that what your saying


And I assume your labels are on the Userform.

And you said:

If Combobox1 Is set "1

You do not normally set a ComboBox.

You normally select a value in the Combobox

Is that what you mean you select the number 1

Or do you mean you select the first item in the ComboBox

And I sure do not know what this means:

and Sheets IS NOT Worksheets or main Sheets' Macro will Call the Userform​

​

 

[Hjemmet]

Yes i got 1 to 127 in colomn A and names In B and C not on row

 

[My Aswer Is This]

You said in your original post:

Labels 1 to 7

But in post 7 you said:

and Label 9 read from cell "D1 - D127"
and Label 10 read from Cell "E1 - E127"

Are you now saying you have 127 labels on your UserForm?

What is your end goal?

Why would you want 127 Labels on a UserForm?





​

So now it sounds like you have 127 Labels

​

_{^{<strike>
</strike>}}​