Johnpants
11-08-2005, 08:38 AM
Hi, I have a worksheet that has a list of divisions in column A, in column B I want to be able to enter each divisions sales target, for example:
A1 = Marketing
B1 = ?1000
I have a Userform created that has a ComboBox populated with the divisions in column A. What I am stuck on, is from the TextBox I want it to add what I enter, 1 Cell to the right depending on which division I select from the ComboBox..
Does that make sense?
If so can anyone help please.
Thank you.
If it helps, the Code I have so far for the UserForm is:
Private Sub UserForm_Activate()
Dim MyRange As Range
Application.ScreenUpdating = False
Sheets("Data").Select
Set MyRange = Range("A5", Range("A65536").End(xlUp))
With Me.ComboBox1
.RowSource = MyRange.Address
End With
End Sub
A1 = Marketing
B1 = ?1000
I have a Userform created that has a ComboBox populated with the divisions in column A. What I am stuck on, is from the TextBox I want it to add what I enter, 1 Cell to the right depending on which division I select from the ComboBox..
Does that make sense?
If so can anyone help please.
Thank you.
If it helps, the Code I have so far for the UserForm is:
Private Sub UserForm_Activate()
Dim MyRange As Range
Application.ScreenUpdating = False
Sheets("Data").Select
Set MyRange = Range("A5", Range("A65536").End(xlUp))
With Me.ComboBox1
.RowSource = MyRange.Address
End With
End Sub