Replies

I like this idea of a usage log and I am adapting your code to a workbook of my own. It is shared and I have always been curious to know when the other parties have been in the workbook. The problem I see with your current code is that if the user closes out of the spreadsheet without saving, then the username and date/time opened is not saved. Is there a way to save the log without forcing the Workbook_BeforeSave code to run?

Hans, As soon as you sent the answer I realized that my friend was still using 2003. I should have realized that was the problem but I didn’t check the file extension. Thank you again for all of your help. The new version of this subroutine that you suggest will allow it to work in both versions.

Thanks

Hans, Perfect as usual. I didn’t think of using the Max function when I was drawing this out.

Hans,

Try this one. I pasted the values where there were external links.
thanks!

Hans, My apologies. The workbook would not let me save the actual formula because of the error in it. The formula I included in the original post is the one giving the error. Even making the correction you suggested I still receive the error box. When I click OK the entire formula is highlighted in the formula bar.

Maybe a better explanation of what I am attempting to do will help. I am calculating wage increases based on the score in column N. Certain tasks are not eligible for increase and are marked as Exempt in column T. If the task is eligible then the formula in T calculates the amount of increase based on the score in N and the scales which I did not include on the original attachment. I now need to see if the new wage (increase plus base) exceeds the maximum allowable wage for that task which is in column U. If the max wage is equaled or exceeded then column V should list the max wage else it should list the new calculated wage.

Does that help?

So regarding Hans post about the parantheses, is this the correct placement?

If (Cells(n,21) = 9900 or Cells(n,21) = 9915) _
And (Cells(n,25) = “CB” or Cells(n,25) = “MB”) Then
Cells(n,1).EntreRow.Delete

Hans, Perfect as always! Thank you to both you and Jerry!

Hi Jerry,

I have tried the code and it is not deleting any rows. I have attached a sample of the data and the macro as I typed it in. I do not see why it is not working. There are 10 rows in the sample data that meet the criteria for deletion.

Thank you Hans,

I have attached a different file that shows that the procedures below work correctly some of the time. If anyone else has any idea, please let me know.

Thanks! That’s what I get for straying from the Lounge!!!

Does this do what you want?
=IF(E2=”X”,”No”,IF(F2=”X”,”NO”, IF(G2=”X”,”No”,”Yes”)))

Sorry for the delayed response but I got pulled to another project for a few days and I’m just now getting back to this one.

Your code does most of what I need, but now I am finding that I need to test to see if protection is enabled before I apply the code. Here is what I am using:

Dim wshtarget as Worksheet
Set wshTarget= Worksheets (“View”)
wshTarget.Activate
If ActiveSheet.Protection= True Then
with Worksheets(“View”)
.Unprotect, Password:=”password”
End With
End If

When I run this piece of code, I receive a Run-Time error ‘438’:
Object doesn’t support this property or method.

I have looked at the help files and can’t see where I am going wrong. The method I am using came from a Ozgrid Post
http://www.ozgrid.com/forum/showthread/?t=67806%5B/url%5D

Any help would be approciated!

Thank you Hans. This worked beautifully!

Hans,

I uploaded the incorrect workbook the first time. There were some steps that needed to be taken first which allowed the constants to be correct. I have modified the workbook to show you what it should be at this point the code is looking at the time and moving the row. This is only one section of a much longer macro that does many other things to the spreadsheet.

Thanks in advance!

Sorry about that. Clicked the wrong button and forgot to attach the file.