Back again with the 2017 Update

Well here it is!

Its been a couple of years now, but allot has happened!

Here's a couple of bullet points!

I purchased a website domain and have started to put all my code, formulas, scripts video all on this one site, which so far is working out alright !

www.modcore.co.uk

Have started up a matching facebook page / group as well, but thats going a little slow at the moment, so for the first time ever, I have paid for advertising on facebook! madness. Cost £3 for 3 days so will see how well that goes! So far so good!


Join in and come say hi! - https://www.facebook.com/modcoreV1/

 They are the two areas im spending most of my computer time working on.

Have a couple of other smaller "seed" of ideas currently but will work on them in my mind palace a little more, see if they are growers or not!

Its Been a while......But sadly a little longer

Hello there! 

Its been a while since ive last blogged, but with the madness of Christmas, NYE along with getting back into the swing of things for a new year and wedding planning its been pretty crazy here! 

So here it is my note to say i havent forgot about blogging and intend to add a blog for from the Christmas Hype and update on where the website is along with some WoW updates! So a standard ModCore Update! 

Wont be long now! 

Keep Posted! 

MoDi

MoDCore Code Site Live

MoDCore Code 

Site Live Today

Today MoDCore Code website has gone live! This will be a place i save bits of Code that I've used and feel i should save these online! 

MoDCore Code

Check out the site! 

Peace!

Hi there Friday!

Happy Friday!

Nice day at work so far! working on this timesheet application and database, have finally sorted out the SQL code to pick out the rolling 12 month data! 

rs.Open "SELECT * FROM Timesheet WHERE Area = '" & Area & "' and Date BETWEEN #" & startdateroll & "# AND #" & enddateroll & "#", cn, , , adCmdText

didnt have the hashtags in my starting code but due to being an access database need to use # and not ' for a date range, who knew! 

But now the data is coming across based on 2 cell values

Start date for the rolling 12 months 

=TEXT(EOMONTH(TODAY(),-13)+1,"dd-mmm-yy")

End date for the rolling 12 months 

=TEXT(EOMONTH(TODAY(),-1),"dd-mmm-yy")

This is now working like a charm for the automation! 

When the button clicked to refresh the data, the code heads to the DB finds all rows between the two dates, finds the correct user and department for the correct graph then update all pivot tables and charts in the workbook

For Each ws In ActiveWorkbook.Worksheets

n = 0

For Each PvtTbl In ws.PivotTables

n = n + 1

Next

If n >= 1 Then

For i = 1 To n

ws.PivotTables(i).PivotCache.refresh

Next i

End If

Next

So now, on the Graph page, have last months time sheet data in one graph and then a up to date rolling 12 month graph and all the data will be live from the database in the background! 

Now to head out for lunch and come back tidy up all the graphs and data structure within the excel sheets, sort the permissions out for each user and this should be ready for some testing! 

Heading to Bens tonight to carry on the DnD game we have going on! looking forward to it! will no doubt blog about it later!