Hello,

I have a control box that has two options in the drop-down. I accomplished
to have it so that once one of the options is selected; a list of the outputs
is displayed in the excel spreadsheet. The problem is that when the other
option within the drop down is selected theres no list output. I need it to
generate a different output list for each option provided in the drop down.

What i have as a code which spits out the list for one option is :

Private Sub ComboBox1_Change()
With Me.ComboBox1.TopLeftCell
..Offset(0, 5) = "NIN"
..Offset(0, 6) = "NOUT"
..Offset(0, 7) = "IND"
..Offset(0, 8) = "TITLE"
..Offset(0, 9) = "CASE"
End With
End Sub


Any Help PLEASE ?

hi,
your combo box has 2 option but you only gave it one list of results. try
something like this...
Private Sub ComboBox1_Change()
if me.combobox1.value = "value1" then
With Me.ComboBox1.TopLeftCell
.Offset(0, 5) = "NIN"
.Offset(0, 6) = "NOUT"
.Offset(0, 7) = "IND"
.Offset(0, 8) = "TITLE"
.Offset(0, 9) = "CASE"
End With
else
With Me.ComboBox1.TopLeftCell
.Offset(0, 5) = "something"
.Offset(0, 6) = "else"
.Offset(0, 7) = "more"
.Offset(0, 8) = "ofmy"
.Offset(0, 9) = "stuff"
End With

End Sub

tested in xp2003. works. at least on wendsdays.
regards
FSt1
"N.F" wrote:

> Hello,
>
> I have a control box that has two options in the drop-down. I accomplished
> to have it so that once one of the options is selected; a list of the outputs
> is displayed in the excel spreadsheet. The problem is that when the other
> option within the drop down is selected theres no list output. I need it to
> generate a different output list for each option provided in the drop down.
>
> What i have as a code which spits out the list for one option is :
>
> Private Sub ComboBox1_Change()
> With Me.ComboBox1.TopLeftCell
> .Offset(0, 5) = "NIN"
> .Offset(0, 6) = "NOUT"
> .Offset(0, 7) = "IND"
> .Offset(0, 8) = "TITLE"
> .Offset(0, 9) = "CASE"
> End With
> End Sub
>
>
> Any Help PLEASE ?
>
>

Thanks alot for your help. I do get your idea but when I pasted it in try to
run it no list is generated in either option. Earlier it gave me an error
that said something like: Block End Statement ....


"FSt1" wrote:

> hi,
> your combo box has 2 option but you only gave it one list of results. try
> something like this...
> Private Sub ComboBox1_Change()
> if me.combobox1.value = "value1" then
> With Me.ComboBox1.TopLeftCell
> .Offset(0, 5) = "NIN"
> .Offset(0, 6) = "NOUT"
> .Offset(0, 7) = "IND"
> .Offset(0, 8) = "TITLE"
> .Offset(0, 9) = "CASE"
> End With
> else
> With Me.ComboBox1.TopLeftCell
> .Offset(0, 5) = "something"
> .Offset(0, 6) = "else"
> .Offset(0, 7) = "more"
> .Offset(0, 8) = "ofmy"
> .Offset(0, 9) = "stuff"
> End With
>
> End Sub
>
> tested in xp2003. works. at least on wendsdays.
> regards
> FSt1
> "N.F" wrote:
>
> > Hello,
> >
> > I have a control box that has two options in the drop-down. I accomplished
> > to have it so that once one of the options is selected; a list of the outputs
> > is displayed in the excel spreadsheet. The problem is that when the other
> > option within the drop down is selected theres no list output. I need it to
> > generate a different output list for each option provided in the drop down.
> >
> > What i have as a code which spits out the list for one option is :
> >
> > Private Sub ComboBox1_Change()
> > With Me.ComboBox1.TopLeftCell
> > .Offset(0, 5) = "NIN"
> > .Offset(0, 6) = "NOUT"
> > .Offset(0, 7) = "IND"
> > .Offset(0, 8) = "TITLE"
> > .Offset(0, 9) = "CASE"
> > End With
> > End Sub
> >
> >
> > Any Help PLEASE ?
> >
> >

Got it!. Thanks ALOT
It was simply missing a " End If " statement


"N.F" wrote:

> Thanks alot for your help. I do get your idea but when I pasted it in try to
> run it no list is generated in either option. Earlier it gave me an error
> that said something like: Block End Statement ....
>
>
> "FSt1" wrote:
>
> > hi,
> > your combo box has 2 option but you only gave it one list of results. try
> > something like this...
> > Private Sub ComboBox1_Change()
> > if me.combobox1.value = "value1" then
> > With Me.ComboBox1.TopLeftCell
> > .Offset(0, 5) = "NIN"
> > .Offset(0, 6) = "NOUT"
> > .Offset(0, 7) = "IND"
> > .Offset(0, 8) = "TITLE"
> > .Offset(0, 9) = "CASE"
> > End With
> > else
> > With Me.ComboBox1.TopLeftCell
> > .Offset(0, 5) = "something"
> > .Offset(0, 6) = "else"
> > .Offset(0, 7) = "more"
> > .Offset(0, 8) = "ofmy"
> > .Offset(0, 9) = "stuff"
> > End With
> >
> > End Sub
> >
> > tested in xp2003. works. at least on wendsdays.
> > regards
> > FSt1
> > "N.F" wrote:
> >
> > > Hello,
> > >
> > > I have a control box that has two options in the drop-down. I accomplished
> > > to have it so that once one of the options is selected; a list of the outputs
> > > is displayed in the excel spreadsheet. The problem is that when the other
> > > option within the drop down is selected theres no list output. I need it to
> > > generate a different output list for each option provided in the drop down.
> > >
> > > What i have as a code which spits out the list for one option is :
> > >
> > > Private Sub ComboBox1_Change()
> > > With Me.ComboBox1.TopLeftCell
> > > .Offset(0, 5) = "NIN"
> > > .Offset(0, 6) = "NOUT"
> > > .Offset(0, 7) = "IND"
> > > .Offset(0, 8) = "TITLE"
> > > .Offset(0, 9) = "CASE"
> > > End With
> > > End Sub
> > >
> > >
> > > Any Help PLEASE ?
> > >
> > >