Application or Object defined error

Hi Friends,

I need to look for a match between Column A of 'DRAM' worksheet and Column A of 'Refer' worksheet and if a match is found then the row containing the match should be stored in a variable 'Cell1' and then my code must look for a string 'WS Group Totals:" in Column B of 'DRAM' sheet and the row containing the string must be stored in a variable Cell2. In the row containing Cell2 the values from Column D till the row end must be multiplied by 10080 and the result must be placed two rows below the last populated row in their respective columns. Once that is done my code must look for the next match of Column A in 'DRAM' and COLUMN A in 'Refer' worksheets and must do the calculation as the same as above. I have written the below code for the purpose but I am repeatedly getting Application or Object defined error...can someone please help me figure out the error...thank you very much..I have attached the original Workbook for your reference...

Please Login or Register  to view this content.

Hello shrimic ,

The problem is with how you are using the Find method. Find returns a Range object if the search was successful. If not then it returns the special object Nothing. You should always check the result of the Find before you attempt to get the address, row or column.

Try this corrected version of your macro...

Please Login or Register  to view this content.

Hello ,

You did not specify a row for "A" . I have inserted "A1" into the code. Change the starting address if you need to.

Please Login or Register  to view this content.

Thank you Leith Ross,

I have change the below in code:

Please Login or Register  to view this content.

Now the code is throwing up an error: 91 Object Variable or With block variable not set...
It is breaking at the line:
Found = PartRngWorkbook1DRAMSheetb.Find("WS Group Totals:", Range("B", Cell1))
Can you please help

Hello shrimic,

Sorry, that was my fault. There should be a Set statement in front of both Found variables ...

Please Login or Register  to view this content.

Thank you very much Leith Ross,
Sorry to disturb you again. I changed the below lines in the code:

Code:

Please Login or Register  to view this content.

Now it is breaking at the line:
If Found is Nothing then GoTo NextCell Else Cell2=Found.Row

It is throwing up the error 'Application or Object defined error"...

Hello shrimic,

You need to specify the starting cell in column "B". I have inserted "B1" into the code below. Change this address if you need to.

Please Login or Register  to view this content.