Passing variables for range series charts, what to do with post macro run; unable to
 

I have two headaches, 1. i have searched a large data base and found the
address of the values I want to add to my chart. If my starting address
is Strt1 and ends Ends1, I would like to pass these variables because
unlike the code below I do not know where they might be.

Charts.Add
ActiveChart.ChartType = xlLineMarkers

For i = 1 To j
ActiveChart.SeriesCollection.NewSeries
With Worksheets(i)
ActiveChart.SeriesCollection(i).XValues = .Range(.Cells(1, 1),
..Cells(20, 1)) 'Here I want to use variables to be my range,
ActiveChart.SeriesCollection(i).Values = .Range(.Cells(1, 2 ),
..Cells(20, 2))
End With
Next nic
ActiveChart.Location Whe=xlLocationAsObject, Name:="Sheet1"

2. second question, I am using userform, i have set to so that I can
type delete my excel while the userform is on top, but when I ran my
macros and it does what its work, it does not allow me to do anything
unless i close the form.
Help, I appreciate your time in advance, thanks

Osman


--
osman
------------------------------------------------------------------------
osman's Profile: http://www.excelforum.com/member.php...o&userid=34226
View this thread: http://www.excelforum.com/showthread...hreadid=544064

Passing variables for range series charts, what to do with post macro run; unable to
 

Are Strt1 and Ends1 strings that contain something like A1, A20

ActiveChart.SeriesCollection(i).XValues = .Range(Strt1, Ends1)


when you show the form (xl2000 or later)

Userform1.Show vbModeless

--
Regards,
Tom Ogilvy

"osman" wrote in message
...

I have two headaches, 1. i have searched a large data base and found the
address of the values I want to add to my chart. If my starting address
is Strt1 and ends Ends1, I would like to pass these variables because
unlike the code below I do not know where they might be.

Charts.Add
ActiveChart.ChartType = xlLineMarkers

For i = 1 To j
ActiveChart.SeriesCollection.NewSeries
With Worksheets(i)
ActiveChart.SeriesCollection(i).XValues = .Range(.Cells(1, 1),
Cells(20, 1)) 'Here I want to use variables to be my range,
ActiveChart.SeriesCollection(i).Values = .Range(.Cells(1, 2 ),
Cells(20, 2))
End With
Next nic
ActiveChart.Location Whe=xlLocationAsObject, Name:="Sheet1"

2. second question, I am using userform, i have set to so that I can
type delete my excel while the userform is on top, but when I ran my
macros and it does what its work, it does not allow me to do anything
unless i close the form.
Help, I appreciate your time in advance, thanks

Osman


--
osman
------------------------------------------------------------------------
osman's Profile:
http://www.excelforum.com/member.php...o&userid=34226
View this thread: http://www.excelforum.com/showthread...hreadid=544064