VBA to replace vlookup or countIf due to extensive llist

[Blanchetdb]

Hi,

I created comboboxes with dropdown lists

I presently have formulas that searches through a long list (7000) of names and then once found information is auto-populated in identified cells

This is the search mechanism I presently have in place

In Column K:
=--ISNUMBER(SEARCH(Sheet3!$A$10,Sheet15!A2)) the next formula

In Column L:
=IF(K2=1,COUNTIF($K$2:$K2,1,"")

In Column M:
=IFERROR(INDEX($A$2:$A$7000,MATCH(ROWS($L$2:$L2),$L$2:$L$7000,0)),"")

the ComboBoxes provide a searchable dropdown list to choose from but the process is delayed

Can VBA speed up the process?

 

[James006]

Re: VBA to replace vllokup or countIf due to extensive llist

Hi,

Do you actually need 7'000 rows ...?

With VBA you could use Evaluate to work out the formulas in Column M

Hope this will help

 

[Blanchetdb]

Re: VBA to replace vllokup or countIf due to extensive llist

Hi,

I do require the 7000 as it is an employee listing

Not sure what the evaluate option is .... can you please provide an example

 

[James006]

Re: VBA to replace vllokup or countIf due to extensive llist

Hi,

As an example... you could test

Sub TestEvaluate()
MsgBox Evaluate("=INDEX($A$2:$A$7000,MATCH(ROWS($L$2:$L2),$L$2:$L$7000,0))")
End Sub

Hope this will help

 

[James006]

Re: VBA to replace vllokup or countIf due to extensive llist

Once you have tested the Evaluate instruction ... you can post your feedback ...

 

[Blanchetdb]

Re: VBA to replace vllokup or countIf due to extensive llist

thanks for the example but I never used the evaluate function...

Do I link it to the ComboBox or in a separate module

 

[James006]

Re: VBA to replace vllokup or countIf due to extensive llist

Glad to hear it does help you out ...

There is no need for a separate module ...