Recent content by Tanya

Thank you Chergh Its working well now, I added a few lines to include instances where "A" had been changed back to "F" or "M" and after a little tinkering managed to get it to work. Slowing but surely I am beginning to understand VBA for Excel and really appreciate your patience. Regards...

When I run Chergh's code I get the following error: "Unable to set the "strikethrough property of the font Class" hence I removed that line and all appears to work, but I have just realised when I change "A" back to "F" or "M" it doesn't update Term 1, Term 2 etc Private Sub...

:D I found the answer By removing this line: rng.EntireRow.Font.Strikethrough = False I have eliminated any errors and it works a treat. Now if the status of a student is changed to "A" the row is formatted to strikethrough and if I change it back to "M" or "F" the strikethrough is...

Hi Brian Thank you for this code, it worked a treat, however as with Chergh's code I keep getting a halt when column C has a value other than "A". I feel like I am being a pain here, but I would really appreciate it if you could take a look at how I am trying to unprotect then protect my...

Thank you Chergh, it works first time. However, I now need to be able to protect the document and would usually refer to module1.unprotect_worksheet & module1.protect_worksheet but can't work out why I keep getting error when code realises that column H doesn't have the value A. I have tried...

Hi Thank you for your response to my post. Unfortunately it didn't work, but that may be because I didn't understand your code and hence didn't replace anything. Regards Tanya

Hi Brian Thanks for the quick response. I had noticed the 'senior moment' :) but it was easily fixed. I have saved my file as an xls 2003 file so that you can take a closer look at my code. My first question is 'do I need to set up a 'change event' to envoke this code? Since we often have...

Hi Brian I really appreciate your support with this project. I'm struggling though with getting the code to run when text is changed and have attached a copy of my project for your consideration. The main sheet is Grades and Term 1, Term 2 etc get updated information from this main sheet...

Thank you Brian, It worked perfectly.

Hi I have a spreadsheet and need to archive the records on several worksheets without removing them. To do this I would like to format the text on each record to strikethrough. I have written this code but it isn't working right: Sub Archive_Calculate() Dim r As Range, cell As Range On Error...

I've solved my problem. For those that are interested I created a query for each house: SELECT qryPlacePoints.House, [Sum Of Adelong]+[SumOfPoints] AS TotalAdelong FROM qryParticipation, qryPlacePoints WHERE (((qryPlacePoints.House)="Adelong")); Then... New query to bring all the totals...

I have attached the db. The data is entered through frmResults and participation points are allocated per house, then on frmResults sub individual students are allocated points depending where they are placed in the event. The query qryParticipation displays the total for each house in terms of...

It sounds like you need to add the related table to your query and then group by the related table and then sort by your criteria. Hope this makes sense. Tanya

Hi I am attempting to create database for my schools athletics carnival and need to be able to calculate participation points and PlacePoints then add them together, hence my two queries: I have a query which gives me the following results: qryParticipation House1 House2 50...

After considering your post further, I had a look at frmICTOutcomesSub and used the following code: Private Sub Form_Current() Dim ParentDocName As String On Error Resume Next ParentDocName = Me.Parent.Name If Err <> 0 Then GoTo Form_Current_Exit Else On...