Posts by Rennie

I agree Dave that's probably the shortest menthod.

Rennie

Tony,

Please see the attached spreadsheet.

I have used 2 steps to try and do this.

1. isolate the fist names and the surnames.

2. Use a pivot table to see the result.

Hope this helps,

Thanks,
Rennie

Try this code please.

=IF(AND(C5="",D5=""),"",IF(C5<2359,D5+24-C5,D5-C5))

Thanks,
Rennie

Hi crazylegs I would like to help-where is your attachment?

Thank you very much Colo and Dave. Your code works like a song.

Manfredm - thank you for the extra bit of code.

Rennie

I have water marks created using word art on a number of sheets in a workbook.

I want to write a procedure to change the text in all the shapes in the work book.

I have tried writing a procedure seems to not work can someone tell me whats wrong.

Sub Change_Text()
Set myDocument = ActiveWorkbook
myDocument.Shapes.SelectAll
Selection.ShapeRange.TextEffect.Text = Worksheets(1).Range("A1").Value
End Sub

I would appreciate any help.
Thanks
Rennie

shannon1027 - on what basis do the workers get a break - can you put rules to work this out. i.e. if a worker works for 8 hours they get a 1 hour break etc?

If this is the case it is a matter of testing the length of each shift and deducting a certain amount of time.

Regards,
Rennie

I am still strugling to understand the question? Could you post a sample to the forum Please?

Hi Guys,

Sorry for starting this up. I was not aware of the seriousness of this issue.

All I wanted to was to make the user display a particular dialog box and not let the user bypass this step. I thought one way of doing this would be to force the user to enable macros.

Again thank you for pointing out the dangers of doing this. I might have had to spend $$$$$$ in lagals if I had gone through with it.

I was looking for an Icon symbolising the action of kicking my self, could not find one.

Private Sub Auto_Open()
'Range "DateCheck" is a named cell on XlVeryHiden Sheet.
If Range("ExpDate") <= Range("SentDate") + 30 Then
PWord.Show
Else 'Set first open date
MsgBox ("Your password expires on " & Range("SentDate") + 30)
End If
End Sub

When activating a workbook that has macros, excel automatically displays an alert asking if the user wants to enable or disable macros.

Is it possible write code in excel to automatically pick "enable macros".

Have you tried using a pivot table to query the information? i.e. combine the the relevant items into one table and using a pivot table to get the information out.

Thank you very much Dave and RoyUK, I appreciate your help.:lol::lol::lol:

How do I view the code in this workbook:wink1:

Is it possible to write a macro to make a certain file not open 30 days after it is first openned.

i.e. Does not require a password for the first 30 days but needs a password after 30 days of use.

I would appreciate any help on this