PDA

View Full Version : Forward thinking obstacle



Dfense
01-16-2008, 09:30 PM
I want to create a sheet that will act as a counter for different items and display it visually with a bar. I would also like to be able to add and remove items with control boxes etc. With Andy Pope's help I can create a visual counter that adjusts size to whatever I put in "e11"

The problem i forsee is that I set the variable range size (display bar) to the value of "e11". If I use control boxes etc. to add more items with a different counter value below ("e12") how do I get a new display bar since I won't be able to set the variable without editing the code?

Dfense
01-16-2008, 09:31 PM
Sorry, this might help....it is what i have now

Sub untilevent()

Dim untilevent As Long
Dim rngData As Range
Dim maxBarView As Long
maxBarView = 45
untilevent = Range("E11").Value

Set rngData = Range("I10").Resize(1, untilevent + maxBarView)
rngData.Select
Selection.Interior.ColorIndex = xlNone

Set rngData = Range("I10").Resize(1, untilevent)
rngData.Select
With Selection.Interior
.ColorIndex = 44
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

End Sub

Andy Pope
01-17-2008, 02:04 AM
If you are displaying a bar why not use a chart?

Or maybe you need to explain in more detail the effect your are trying to achieve.