Find and Replace with multiple conditions problem.

**Benisato** · 03-12-2010, 02:00 AM

I downloaded your newest sheet, and I get the same error when I try to run it. I just open the file, and click "Generate Schedule" and then leave all the values normal (all employees "Available") and hit the generate button on the userform. I immediatly get an Error: Runtime Error '6': Overflow. When I click debug, it highlights the find section of code in the Find_QA function

Code:

Set strFind = .Find(What:=FindString, _
                    After:=.Cells(.Cells.Count), _
                    LookIn:=xlValues, LookAt:=xlWhole, _
                    SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                    MatchCase:=False)

when I hover over the strFind variable, it says strFind = Nothing, which seems normal, and FindString = QA, which also seems normal, I'm not sure why its hanging up, should there be a range attached to the With Sheets("Data").Cells ?

**JBeaucaire** · 03-12-2010, 04:53 AM

When I open the sheet, click your button and then generate, I get an instant finish with:

Code:

QA	Maryetta
MH	Charmaine
PR	Connie-Lee
PR	Shannon

Here's a different syntax for one line, replace all the macros on this line to:

Code:

                After:=.Cells(.Rows.Count, .Columns.Count), _

See if you get better results. It's working as is for me.

**Benisato** · 03-12-2010, 06:06 AM

That works perfectly! I'm not sure what the difference in syntax was, but that last change made it work exactly they way I wanted, finally. Thanks so much for your help

Chris

Thread: Find and Replace with multiple conditions problem.

Thread Tools

Display

Re: Find and Replace with multiple conditions problem.

Re: Find and Replace with multiple conditions problem.

Re: Find and Replace with multiple conditions problem.

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions