Data Entry Form Based On Conditions

cbanks · Jul 13th 2007

I am looking to create a database using excel.. This workbook will contain a list of information.. In col A it will have states, in col B it will have cities and in col c it will have names. If a user selects he state in drop down A (on a form) and selects the city (on a form) then i would like the form to also display the names (in boxes on the same form) for the user to view. Has anyone done this? if not how would i create a form to do so? i know my vba/vb, but im not good with forms.

thanks for your help.

**Reafidy** · Jul 14th 2007

Re: Form Based On Conditions

I would suggest downloading some sample forms and studying them. There are plenty here and Roy and jack have a good one at there website http://www.excel-it.com

You may need to incorporate the find function into your code.

Post back if you have trouble.

cbanks · Jul 16th 2007

Re: Form Based On Conditions

I cannot find anything on that site.

cbanks · Jul 16th 2007

Re: Form Based On Conditions

I found this form, and it would be perfect, but i cannot get it to work.

cbanks · Jul 16th 2007

Re: Form Based On Conditions

i posted my example to another question i asked on accident. So i am posting it here as it is where it needs to go. i need this form to search by state and county.. its just skipping over the state criteria and going to county. thank you.

**Reafidy** · Jul 23rd 2007

Re: Form Based On Conditions

Cbanks,

I have been away for the week. Are you sorted with this question or do you still need help?

**royUK** · Jul 24th 2007

Re: Data Entry Form Based On Conditions

It looks to me as if you search for the State, and do nothing with the result because you go straight to searching foe something else.

Code

Set rSearch = Sheet1.Range("a2", Range("a65536").End(xlUp))
     Set rsearch2 = Sheet1.Range("b2", Range("b65536").End(xlUp))
    strFind = Me.ComboBox1.Value
    strfind2 = Me.ComboBox2.Value
    With rSearch
        Set c = .Find(strFind, LookIn:=xlValues)
        End With
             With rsearch2
'You reset c here
                Set c = .Find(strfind2, LookIn:=xlValues)
                    If Not c Is Nothing Then

Display More

Data Entry Form Based On Conditions

Participate now!

Share

Users Viewing This Thread