Userform reload on open

[rutger]

Hey there,
i have a question.
i have a userform that contains all data from a company.
It gets the data from a heet called "companies".
The userform is opened by clicking a button on another userform("menu").
This far it works ok.
The problem is that i have more companies in that one sheet that i want to call from that one userform ( so when the button company2 on the menu is pressed it open's the data userform and displays the data from that company.
On the sheet "Companies" all the data for each company is in the same location except 50 rows lower.
I don't know how i can easily call those different rows.

I tried sopmething like:

Public Sub UserForm_Activate()
Dim T As String



Label18.Caption = "U bent ingelogd als: " & Login!Name.Value
Label1.Caption = TextBox1.Value

Site!TextBox1.Value = [Sheets]![Sites].Cells(40 + T, 1).Value
Site!TextBox2.Value = [Sheets]![Sites].Cells(40 + T, 2).Value
Site!TextBox3.Value = [Sheets]![Sites].Cells(40 + T, 3).Value
Site!TextBox4.Value = [Sheets]![Sites].Cells(40 + T, 4).Value

in this i want to define T in every button click event
i.e.

Private Sub CommandButton17_Click()
Dim T As String
T = "50"

If anyone can help me i would greatly appreciate it


Greetz,
Rutger

 

[rutger]

Anyone?

 

[Norie]

Sorry, maybe it's just me, but I don't understand what you mean.

What data do you want on the userform

 

[rutger]

hmmm, let me try it again

Basically, what i want is this:

I want to load data into the textboxes in a userform whenever that userform is opened.
It will be opened from different buttons on another userform.
If it is openend trough button A I want it to load data from companie A, if it is openend trough button B i want it to load data from companie B etc.
The data is all stored in a sheet.
If companie A is stored in cell A1 then company B is stored in cell A50 and so on.
I found out how i can get the data of compay A into my userform and i can also clear all textboxes when i hide the userform. Now i need to find way to make this line:

Site.TextBox1.Value = [Sheets]![Sites].Cells(40, 1).Value

flexible so that when button B is pressed the value 40 will change into 40 + 50 = 90.

I hope this makes it more clear

Greets,
Rutger
p.s. and thanks for helping