Multiple IF/Then assignments

**Rgaherty** · 10-29-2007, 02:22 PM

OK here is an example of what I'm trying to get it to look like. The ID number is the Conc. number I was talking about. Those last digits, the 164532 dictates how many columns there will be. That particular person has 6 calculations because of that. The next person would only have 5. What I want to do is set up an If/then statement that would check to see how many digits the ID has and based on that populate the correct columns with the formula I used in that example sheet. The max ends up being 11 seperate calculations and the minimum is one.

So it'd be like
If column A has X digits then column B = that formula else column B is blank

and of course i'd make one for each of the different parameters, I just need to know the formatting that will make it actually fill out those columns.

**Rgaherty** · 10-29-2007, 02:33 PM

Sub ChoiceOne()
Agent = Sheet4.Columns(1)
FirstChoice = Sheet4.Columns(6)
If Agent > 1 Then
FirstChoice = (Mid(Sheet4.Columns(5), 8, 1) & Left(Sheet4.Columns(5), 7)) * 1
Else
FirstChoice = ""
End If
End Sub

That is the code i've got in place now

Fixed