Add items in listbox based on 2 criteria

[Khanzaki]

Respected Members,
I wish to add data to two different Listboxes from Sheet1 based on two criteria ie. Column B and Column CV
If column CV contains "sales" then add items to SALESLB if it contains "Income" then add items to PAYMENTRECEIVEDLB
I am able to get data in SALESLB but cannot achieve the same for income part. I have attached the sample file with code in it
Need to know where I am going wrong ; Any Inputs is highly appreciated
Thanks and regards !

[Artik]

To examine anything in the attached file you need a sheet with the code name "Sheet4". The "receivable" control is missing from the Userform.

Artik

[Khanzaki]

My Bad , here is the updated workbook

[sintek]

Which columns must appear in listbox...as per your code....3,4,6,7 and other 101,102,103,104,105
And it seems you want this to happen when you select a client from the combobox...Is this correct

[Khanzaki]

@sintek yes sir ! Criteria being in Column CV

[sintek]

One way...Have changed your approach...Assumes that Column always has either sales or income entries

Please Login or Register  to view this content.

[Khanzaki]

I tried implementing your method it works out fine with few issues
1. It doesn't add up income values (probably due to number being stored as text error)
2. If no entries are present for a selected client the column headers are listed down in listbox. for eg. if you search for entries of "Jack" The column headers are listed down in sales list box
3. Sheets("SalesDB").Cells(1).CurrentRegion " this method of selecting data in my humble opinion is not much reliable as ; if few cells are left empty the desired range may not get selected . could you help me with other way to select the range of data please.
I have attached the sample workbook for reference.

[sintek]

It doesn't add up income values (probably due to number being stored as text error)

So...Enter your numbers as numbers not text...

If no entries are present for a selected client the column headers are listed down in listbox. for eg. if you search for entries of "Jack" The column headers are listed down in sales list box

Has been resolved...

Sheets("SalesDB").Cells(1).CurrentRegion " this method of selecting data in my humble opinion is not much reliable as ; if few cells are left empty the desired range may not get selected

If you design your sheet and layout your data properly i.e. No blank columns and blank rows in data...this works very well...Has been resolved for this file...

[Khanzaki]

So...Enter your numbers as numbers not text...

Could 'you suggest me how to do it . As the numbers automatically gets converted to text when saving from userform ! I have to manually convert to number each time
Went through the workbook again rest everything seems fine ! Will give it a thorough check before marking this thread as Solved !

[sintek]

As the numbers automatically gets converted to text when saving from userform

Cannot see your Userform code...I'm guessing though you must add..as example

Please Login or Register  to view this content.

to the code...
Can only ascertain once code is provided...