Hello,
Bit stuck on something that I think should be simple but can't find how to do it.
I have a dashboard that I want to lock down so people can only use the scroll bar (form control) and the slicer. When I prevent users from selecting a cell, it also appears to prevent that cell's value...
So for example
Sub MyMacro()
Dim ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name Like "*Run" Then
'Your code here
End If
Next ws
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox...
You can loop though all the sheets in the macro.
To select the sheets you want to use you could put an If statement or a Select in to look for something, i.e. the sheet name could end in the word 'Run' so the code would look for the word 'Run' at the end of the sheet name in all the sheets and...
just a guess but would something like this work?
Double click on the userform1 and paste this:
Private Sub UserForm_Activate()
Me.Label1.Visible = False
Me.Label2.Visible = False
Me.Label3.Visible = False
Me.Label4.Visible = False
Application.Wait Now + TimeValue("00:00:01")...
Try running the below just in case some are merged that you don't know about
Sub UnmergeAllCells()
Dim ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In Worksheets
ws.Cells.UnMerge
Next ws
Application.ScreenUpdating = True...
Have a look at my file see if it is the same:
https://docs.google.com/file/d/0ByiZqUlQMjxhNXhYa0xBcVozOHM/edit?usp=sharing
Basically all i am doing with [scrollValue] = 0 is setting the cell you have called scrollvalue to 0, thus setting the value of the scroll bar form to 0
Hmmm worked fine when i tried it on your example book.
Did you just copy and paste the code?
Does your workbook still have the same named range [scrollValue] as your example and is the scroll bar linked to that same named range?
try putting [scrollValue] = 0 at the end of your select:
Private Sub Worksheet_Change(ByVal Target As Range)
'On Error GoTo Exitsub
Dim shp As Shape
Select Case Target.Address
Case Me.Range("KeyWord").Address
Set shp = Me.Shapes("ScrollResults")
With shp
If...
To the original question:
You can do something like this: http://support.microsoft.com/kb/211736
However rather than updating the progress bar in a loop 'PctDone = Counter / (RowMax * ColMax)', just write:
PctDone =0
PctDone =0.25
PctDone =0.5
PctDone =0.75
PctDone =1
etc at various...
These may help you:
http://chandoo.org/wp/2009/03/04/japanese-candlestick-chart-excel-tutorial/
http://chandoo.org/wp/2009/05/28/intraday-candlestick-charting/
http://www.officetooltips.com/excel/tips/creating_a_candlestick_stock_chart_with_volume.html
Hi Hui
I know the post is now marked as solved, but I like to read though them and try peoples answers out. The last one you provided wouldn't quite work for me:
=TEXT(TODAY()-E6,"yy ""Years"" mm ""Months"" dd ""Days""")
Against a date of "09/07/1983" (UK format) gave me "29 Years 12...
You can import data from a web query:
Excel 2003: Data - Import External Data - New Web Query
Excel 2010: Data Ribbon - From Web - Import data from a Web page
You then navigate to the site which has the live data, select the table of data
This will then link int your workbook, you can...