software

I wrote a program to plat a large set of data. The program auto filters
through the data and then stores each criteria I set in another sheet. For
example I filter for TCO and store in sheet 2. My program worked fine until I
mived the file to a new computer. Now I am getting a run time error. Why
could this be???

Sheets(quot;Sheet1quot;).Select
Cells.Select

Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=quot;TC0_SCALEDquot;
Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet2quot;).Range(quot;A1quot;)
Sheets(quot;Sheet1quot;).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=quot;TC2_SCALEDquot;
Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet4quot;).Range(quot;A1quot;)

Sheets(quot;Sheet1quot;).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=quot;TC3_SCALEDquot;
Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet5quot;).Range(quot;A1quot;)

Sheets(quot;Sheet1quot;).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=quot;TC4_SCALEDquot;
Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet6quot;).Range(quot;A1quot;)

Sheets(quot;Sheet1quot;).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=quot;TC5_SCALEDquot;
Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet7quot;).Range(quot;A1quot;)

Sheets(quot;Sheet1quot;).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=quot;PYRO_SCALED_VALquot;
Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet8quot;).Range(quot;A1quot;)Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets(quot;Sheet1quot;).Range(quot;A1:I64810quot;), _
PlotBy:=xlRows

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = quot;=Sheet2!C5quot;
ActiveChart.SeriesCollection(1).Values = quot;=Sheet2!C4quot;
ActiveChart.SeriesCollection(1).Name = quot;=quot;quot;TC0_SCALEDquot;quot;quot;ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = quot;=Sheet3!C5quot;
ActiveChart.SeriesCollection(2).Values = quot;=Sheet3!C4quot;
ActiveChart.SeriesCollection(2).Name = quot;=quot;quot;TC1_SCALEDquot;quot;quot;
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).XValues = quot;=Sheet4!C5quot;
ActiveChart.SeriesCollection(3).Values = quot;=Sheet4!C4quot;
ActiveChart.SeriesCollection(3).Name = quot;=quot;quot;TC2_SCALEDquot;quot;quot;ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).XValues = quot;=Sheet5!C5quot;
ActiveChart.SeriesCollection(4).Values = quot;=Sheet5!C4quot;
ActiveChart.SeriesCollection(4).Name = quot;=quot;quot;TC3_SCALEDquot;quot;quot;ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(5).XValues = quot;=Sheet6!C5quot;
ActiveChart.SeriesCollection(5).Values = quot;=Sheet6!C4quot;
ActiveChart.SeriesCollection(5).Name = quot;=quot;quot;TC4_SCALEDquot;quot;quot;ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(6).XValues = quot;=Sheet7!C5quot;
ActiveChart.SeriesCollection(6).Values = quot;=Sheet7!C4quot;
ActiveChart.SeriesCollection(6).Name = quot;=quot;quot;TC5_SCALEDquot;quot;quot;ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(7).XValues = quot;=Sheet8!C5quot;
ActiveChart.SeriesCollection(7).Values = quot;=Sheet8!C4quot;
ActiveChart.SeriesCollection(7).Name = quot;=quot;quot;PYRO_SCALED_VALquot;quot;quot;

ActiveChart.Location Whe=xlLocationAsNewSheet, Name:=quot;Plot1quot;
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = quot;Thermocouple Dataquot;
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = quot;Timequot;
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = quot;Temperaturequot;
End With
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MinimumScaleIsAuto = True
.MaximumScale = 8000
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub


Hi,

If support.microsoft.com/default...b;en-us;210684
doesn't answer your question, then a search at www.microsoft.com of
'runtime error 1004' will provide other possibilities.

Hope this helps

--

Steph Wrote:
gt; I wrote a program to plat a large set of data. The program auto filters
gt; through the data and then stores each criteria I set in another sheet.
gt; For
gt; example I filter for TCO and store in sheet 2. My program worked fine
gt; until I
gt; mived the file to a new computer. Now I am getting a run time error.
gt; Why
gt; could this be???
gt;
gt; Sheets(quot;Sheet1quot;).Select
gt; Cells.Select
gt;
gt; Selection.AutoFilter
gt; Selection.AutoFilter Field:=2, Criteria1:=quot;TC0_SCALEDquot;
gt; Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet2quot;).Range(quot;A1quot;)
gt;
gt;
gt;
gt; Sheets(quot;Sheet1quot;).Select
gt; Selection.AutoFilter
gt; Selection.AutoFilter Field:=2, Criteria1:=quot;TC2_SCALEDquot;
gt; Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet4quot;).Range(quot;A1quot;)
gt;
gt; Sheets(quot;Sheet1quot;).Select
gt; Selection.AutoFilter
gt; Selection.AutoFilter Field:=2, Criteria1:=quot;TC3_SCALEDquot;
gt; Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet5quot;).Range(quot;A1quot;)
gt;
gt; Sheets(quot;Sheet1quot;).Select
gt; Selection.AutoFilter
gt; Selection.AutoFilter Field:=2, Criteria1:=quot;TC4_SCALEDquot;
gt; Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet6quot;).Range(quot;A1quot;)
gt;
gt; Sheets(quot;Sheet1quot;).Select
gt; Selection.AutoFilter
gt; Selection.AutoFilter Field:=2, Criteria1:=quot;TC5_SCALEDquot;
gt; Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet7quot;).Range(quot;A1quot;)
gt;
gt; Sheets(quot;Sheet1quot;).Select
gt; Selection.AutoFilter
gt; Selection.AutoFilter Field:=2, Criteria1:=quot;PYRO_SCALED_VALquot;
gt; Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet8quot;).Range(quot;A1quot;)
gt;
gt;
gt; Charts.Add
gt; ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
gt; ActiveChart.SetSourceData Source:=Sheets(quot;Sheet1quot;).Range(quot;A1:I64810quot;),
gt; _
gt; PlotBy:=xlRows
gt;
gt; ActiveChart.SeriesCollection.NewSeries
gt; ActiveChart.SeriesCollection(1).XValues = quot;=Sheet2!C5quot;
gt; ActiveChart.SeriesCollection(1).Values = quot;=Sheet2!C4quot;
gt; ActiveChart.SeriesCollection(1).Name = quot;=quot;quot;TC0_SCALEDquot;quot;quot;
gt;
gt;
gt; ActiveChart.SeriesCollection.NewSeries
gt; ActiveChart.SeriesCollection(2).XValues = quot;=Sheet3!C5quot;
gt; ActiveChart.SeriesCollection(2).Values = quot;=Sheet3!C4quot;
gt; ActiveChart.SeriesCollection(2).Name = quot;=quot;quot;TC1_SCALEDquot;quot;quot;
gt;
gt;
gt;
gt; ActiveChart.SeriesCollection.NewSeries
gt; ActiveChart.SeriesCollection(3).XValues = quot;=Sheet4!C5quot;
gt; ActiveChart.SeriesCollection(3).Values = quot;=Sheet4!C4quot;
gt; ActiveChart.SeriesCollection(3).Name = quot;=quot;quot;TC2_SCALEDquot;quot;quot;
gt;
gt;
gt; ActiveChart.SeriesCollection.NewSeries
gt; ActiveChart.SeriesCollection(4).XValues = quot;=Sheet5!C5quot;
gt; ActiveChart.SeriesCollection(4).Values = quot;=Sheet5!C4quot;
gt; ActiveChart.SeriesCollection(4).Name = quot;=quot;quot;TC3_SCALEDquot;quot;quot;
gt;
gt;
gt; ActiveChart.SeriesCollection.NewSeries
gt; ActiveChart.SeriesCollection(5).XValues = quot;=Sheet6!C5quot;
gt; ActiveChart.SeriesCollection(5).Values = quot;=Sheet6!C4quot;
gt; ActiveChart.SeriesCollection(5).Name = quot;=quot;quot;TC4_SCALEDquot;quot;quot;
gt;
gt;
gt; ActiveChart.SeriesCollection.NewSeries
gt; ActiveChart.SeriesCollection(6).XValues = quot;=Sheet7!C5quot;
gt; ActiveChart.SeriesCollection(6).Values = quot;=Sheet7!C4quot;
gt; ActiveChart.SeriesCollection(6).Name = quot;=quot;quot;TC5_SCALEDquot;quot;quot;
gt;
gt;
gt; ActiveChart.SeriesCollection.NewSeries
gt; ActiveChart.SeriesCollection(7).XValues = quot;=Sheet8!C5quot;
gt; ActiveChart.SeriesCollection(7).Values = quot;=Sheet8!C4quot;
gt; ActiveChart.SeriesCollection(7).Name = quot;=quot;quot;PYRO_SCALED_VALquot;quot;quot;
gt;
gt; ActiveChart.Location Whe=xlLocationAsNewSheet, Name:=quot;Plot1quot;
gt; With ActiveChart
gt; .HasTitle = True
gt; .ChartTitle.Characters.Text = quot;Thermocouple Dataquot;
gt; .Axes(xlCategory, xlPrimary).HasTitle = True
gt; .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = quot;Timequot;
gt; .Axes(xlValue, xlPrimary).HasTitle = True
gt; .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = quot;Temperaturequot;
gt; End With
gt; ActiveChart.Axes(xlCategory).Select
gt; With ActiveChart.Axes(xlCategory)
gt; .MinimumScaleIsAuto = True
gt; .MaximumScale = 8000
gt; .MinorUnitIsAuto = True
gt; .MajorUnitIsAuto = True
gt; .Crosses = xlAutomatic
gt; .ReversePlotOrder = False
gt; .ScaleType = xlLinear
gt; .DisplayUnit = xlNone
gt; End With
gt; End Sub--
Bryan Hessey
------------------------------------------------------------------------
Bryan Hessey's Profile: www.excelforum.com/member.php...oamp;userid=21059
View this thread: www.excelforum.com/showthread...hreadid=538901