Problem with same VB Code used on different file

[rizmomin]

Hello:

Please refer to 2 attached excel file.

Although both files are using same data and same VB Code, the macro works on Ed-Employee-Shift file and macro would give error
if i use the same Macro in Test-Employee-Shift file.

Can someone please help figure out what is the problem and resolve this problem for me.

Please let me KNOW IF ANY QUESTIONS.

Thanks

Riz

[AB33]

The code shows an error on this line

Please Login or Register  to view this content.

[rizmomin]

Hi AB33:

Yes i know but what do you think the problem is.
I am using the same data and same code?

Please help

Thanks

Riz

[AB33]

Riz,
Please remove the code from sheets and put it in to to module. I have got the same error, on the same line.

[AB33]

You need to put the range, or cells reference in to this line

Please Login or Register  to view this content.

[rizmomin]

Hi AB33:

I have done that also and still same problem.

Have a look at attached excel file.

Thanks a lot for help

Riz

[rizmomin]

Hi AB33:

The value of Cells(Row,Column) is flowing from code line 5 and 7.
Please have a look at the top lines of the code.

Thanks

Riz

[AB33]

Riz,
The error is obvious

Please Login or Register  to view this content.

The row and column defined in the code are specifically( Private Sub CommandButton1_Click() )applied to that code only.
When the code jumps in to next code "Sub Clear_Cells()", it does not know the row and column numbers. If I change the row and column in to this

Please Login or Register  to view this content.

The code works

[rizmomin]

Hi AB33:

I am not good in understanding the VB Code.
Someone on the forum had helped me with the code.
Can you help me use the same code and make this code so that the code can be applied to any file.

I would really appreciate your help.

Thanks

Riz

[rizmomin]

Hi AB33:

I would appreciate if you open the File : Ed-Employee-Shift.xls as i have uploaded and run the macro so that you can understand what it does.
And i want to use the same code in my own worksheet to ACCOMPLISH the result.

please let me know if any questions

Thanks

Riz

[AB33]

Riz,
First,
Does the amend code work, or not? Cells(3, 6).Select
If this what you wanted, I can correct the code.

[rizmomin]

Hi AB33:

When i change and amend the code to Cell(3,6).select, it goes and error at Sub_Color Cells : Cell(row,colum).select.
Now changed this code to Cell(3,6).select and then it errors at Line#21 for code : If first_four_digits < 1400 And Last_four_digits < 1400 Then

Does the whole code works for you?

Let me KNOW IF ANY QUESTIONS.

Thanks for your help.

[AB33]

Does the whole code works for you? Not really!
I have changed some of the lines, and I did not get an error, but the code has infinite loop, it will not stop and will go for ever.
Perhaps, if you could explain to me what was the purpose of the code, or what you were trying to achieve, I can either amend the code, or write you a new one.

[rizmomin]

Hi AB33:

Leith Ross helped and he rewrote the code and it works.
Thanks a lot for your help.

Riz