Macro or Formula to read through list of stores

[dacookmgnt]

Book2
	A	B	C	D	E	F	G	H	I
1
2	Store	Apr	May				Store	Apr	May
3	00201	170000	166000				00201	100000	98000
4							00202	90000	88000
5							00203	80000	78000
6							00201	70000	68000
7							00202	60000	58000
8							00203	50000	48000
9
10
11
12
13
14
Sheet1

I would like to read through a list of stores, update the graph for each store location, and print it out. Any ideas on a macro or formula to do this?
Thank you.

I just noticed that you cannot see the graph? I'm not sure that is necessary though.

 

[PaddyD]

absent the graph, I think a little more detail is on order...

 

[dacookmgnt]

I would like to read through a list:
00201
00202
00203

I need Cell +A3 to refer to 00201, update the graph and print it, then have +A3 refer to 00202, update the graph and print it. I would like to loop through the list about 80 times.

For some reason the software did not copy the graph into my message. I just started using it so I probably don’t know what I am doing.

 

[dacookmgnt]

Just replied to put my question back at the top of the list. I, myself, have never been able to grow a mustache, much less a Fu Manchu. Plenty of back hair though, no problem.

 

[Yogi Anand]

Hi daccokmgnt:

Try ...

Sub yPickValuesFromColumnGOneByOneMakeChartAndprint()
    Do
        Range("A3").Value = InputBox("enter Store's number to plot")
        If Range("A3").Value = "99999" Then Worksheets("sheet3").Select: Range("B3:C3").ClearContents: Exit Sub
        Range("B3").Value = WorksheetFunction.SumIf([sheet3!G4:G8], [Sheet3!A3], [sheet3!H4:H8])
        Range("C3").Value = WorksheetFunction.SumIf([sheet3!G4:G8], [Sheet3!A3], [sheet3!I4:I8])
        strTitle = "Store " & [Sheet3!A3]
        Range("B2:C3").Select
        Charts.Add
        ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet3"
        With ActiveChart
            .HasTitle = True
            .ChartTitle.Characters.Text = strTitle
            .Axes(xlCategory, xlPrimary).HasTitle = False
            .Axes(xlValue, xlPrimary).HasTitle = False
        End With
        ActiveWindow.SelectedSheets.PrintPreview
    Loop
End Sub

I hope this gets you started!

 

[dacookmgnt]

Thanks Yogi!