editing data in VBA

[VBAmalta89]

I have a worksheet which contains data in rows, i.e each row contains data about a specific item which is then written in the columns

example

23344 Drilling Turning 4 4 3 4
67676 Grinding Polishing 3 3 6 7

This data is entered into the worksheet via a user form from VBA.

I need to create another user form which can allow the user to edit this data. I was thinking of creating one with a drop down box which allows you to see all the components in the worksheet.

My problem is here: how do i tell it to show all teh related information of that particular component?

 

[RSXchin]

What do you man by related information?

 

[VBAmalta89]

To quote the example i gave, if i want to edit component number 23344, then this is selected from the drop down menu. Then the user form will display the data Drilling Turning 4 4 3 4 in the user form

 

[RSXchin]

creating 5 textboxes and filling them with
Drilling Turning, 4, 4, 3, and 4?

 

[VBAmalta89]

yes, if possible. Alternatively, the text boxes would be there already but would be blank until the user chooses a component

 

[RSXchin]

well.... after you figure out your dropdown menu
I'm using i to represent what you are using for the dropdown value
textbox2 = range("whatever column your first part is in" & i)
textbox3 = range("whatever column your second part is in" & i)
textbox4 = range("whatever column your third part is in" & i)
textbox5= range("whatever column your fourth part is in" & i)

 

[VBAmalta89]

So i represents the name of the drop down box where the component number is listed?

 

[VBAmalta89]

I am getting the data for the different component numbers from an excel worksheet so i cant understand what 'i' is?

 

[Noz2k]

use the .listindex of the component number to reference the Row number.


something like

If ComponentNumber.ListIndex <> -1 Then
textbox2 = Range("B" & ComponentNumber.ListIndex)
textbox3 = Range("C" & ComponentNumber.ListIndex)
 End If

I don't know where your data starts, so you may have to play around with the data a bit to call the right row. For instance it may be that

textbox2 = Range("B" & ComponentNumber.ListIndex + 2)

Just try it on 1 textbox and check until you get it correct. Hope this helps