By creating a bar chart the first part of the problem is resolved, the bars size will reflect the amount in each silo. For the second requirement, to have bar colour dynamically changed according to the status of the silo (T, S or F), first of all add an extra column with the status of the silo (range C1:C8) and then add a Worksheet_Change procedure with the following code:
Application.ScreenUpdating = False
Application.EnableEvents = False
If Application.Intersect(Target, Range("C1:C8")) Is Nothing Then
Exit Sub
End If
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(Target.Rows.Row).Select
Select Case Cells(Target.Rows.Row, 3).Value
Case "T"
Selection.Interior.ColorIndex = 3
Case "S"
Selection.Interior.ColorIndex = 4
Case "F"
Selection.Interior.ColorIndex = 5
End Select
ActiveWindow.Visible = False
Windows("Silos Chart.xls").Activate
Range("A1").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
Any time the silo status changes, the colour fo the relevant bar does the same.
This message was edited by Corni on 2002-11-09 23:24