Search results

Hi, This is a timer I have used in the past and works great. may need some adjusting. X2 is the cell to display the timer. Option Explicit Option Base 1 Dim AlarmTime As Date Dim AlarmTime2 As Date Sub CountTimer() Range("X2").ClearContents Dim Min As Long Dim Sec As Long Min = 10 Sec...

Sounds Great Chandoo. Will you have a facility to mark a question with Solved / also being able to edit titles to be more informal about the topic. Also to move any programs marked as solved to the vault Finally a Vault Start pack for VBA beginners (Various subjects) This is by far the...

=COUNTA(B:B)-1 Perfect..... Thanks again Luke.....

I always use acccess via a linked table and/or a db table. Then can write a query in access to change the data finally adding a connection in Excel to show the data. Best way for large data into a pivot table...

http://www.appspro.com/Utilities/CodeCleaner.htm

http://office.microsoft.com/en-us/excel-help/repairing-corrupted-files-in-excel-HA001034656.aspx

Hi, I have a pivot table with names of people and totals including grand total. I can change the month and the amount of people will change in the list. I would like to in a field show how many people in the pivot table each month. e.g. Jan-13 shows a list and a cell next to the pivot...

Hi Smallman, This has worked for me. Option Explicit Sub FilteroutData() Dim lDate As Long lDate = [A2] - 90 Dim lDate2 As Long lDate2 = [A2] + 1 Range("A2").AutoFilter 1, ">=" & lDate, Operator:=xlAnd, Criteria2:="<" & lDate2 End Sub YOur idea and a little...

And is before today ()

This works for hiding before -90 days. Option Explicit Sub FilteroutData() Dim lDate As Long lDate = [A2] - 90 Range("A2").AutoFilter 1, ">=" & lDate End Sub Do you know how I add to show up to today then all the dates with formulas will be hidden after today giving the charts a...

Thanks. You have your working therefore I will test with yours and transfer over the construction. will keep you informed as to why it did not work. Many thanks for your time. Ian.

Getting closer... Sub FilteroutData() Sheets("Statistics Daily").Select Dim iDate As Date Dim iDate2 As Date iDate = [A2] ' today () iDate2 = [A3] ' A2-90 Range("A5").AutoFilter 1, ">=" & iDate 'Range("A5").AutoFilter 1, "<=" & iDate2 End Sub

Sub FilteroutData() Sheets("Statistics Daily").Select Dim iDate As Date iDate = [A3] ' A2-90 Range("A5:A999").AutoFilter 1, ">=" & iDate, , 0 End Sub This hides all the dates

I am getting a mismatch. runtime error 13. My dates are monday to friday as I add sat and sun to the friday figure. Also they are in this format 07/07/2011 as a date. A1 = today () A5 is the start fo the filter names date a6 = 01/07/2011 A502 = 20/06/2013 Sub FilteroutData()...

Hi, All my data is showing from 2011 to 2014 for each day. I would like to show only 3 months data. I can hide all from 2011, 2012 and 2013 to end of April. If I hide today () ownards can I unhide if today before adding the data. In addition is it possiable to have hiding of over 3...

Using previous cell reference is one idea. jumps around...not smooth. would be just best if Excel did the conditional formatting as it did in 2003. this just does not happen in 2010. Thanks for the idea. hoep this helps other people. would be intereted if any one has a better solution...

I have the whole of the dashboard designed in grey therefore must remain grey as a requirement Did select this program above for each sheet. and does not go slow. The one part I can not do is return next to the pivot table I have just selleted. Range("C81").Select at the end is not the...

Some thing like this. Private Sub Worksheet_PivotTableUpdate(ByVal target As PivotTable) Range("B47:C87").Select Range("C47").Activate Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="="""""...

Thats something to work upon. I will give it a go and if I find a solution will respond back again. Will be fun as the dashboard contains over 100 visible pivot tables. plus another 100+ hidden. Only need to do the visible ones... thanks for the advice.

Thanks Guys.. just when you think its all over. WHERE (ResolvedOPALISReport.Owner Name='OPALIS') AND (Not ResolvedOPALISReport.Group*+='Awaiting Authorisation') AND (ResolvedOPALISReport.Summary* Not Like '%Query%') AND (ResolvedOPALISReport.Summary* Not Like '%Password%') Mental Block is...

Hi everyone... probs a simple one just over worked !!! after over 50 queries this is the last one. WHERE (ResolvedOPALISReport.Owner Name='OPALIS') AND (ResolvedOPALISReport.Summary* <> '%Query') AND (ResolvedOPALISReport.Group*+<> 'Awaiting Authorisation') OR...

It works fine in Excel 2003 in Excel 2007 and Excel 2010 it will only format all initially then when the pivot changes from large and then back to small the left side will format back as grey yet the right side will not.

All you need to know. Solved. thanks. http://peltiertech.com/WordPress/sparklines-and-data-bars-in-excel-2010/ http://www.contextures.com/excel-conditional-formatting-data-bars.html

If I have a grey background and a pivot tables over the top. 1. Pivot is white. 2. Background is grey. Conditional format ="" format grey should keep the background grey if the pivot table enlarges and then becomes smaller. yet it only does the left sixe of the pviot table. Any ideas to a...

Any tutorial would be welcomed. Thank you...