View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
BruceJ[_2_] BruceJ[_2_] is offline
external usenet poster
 
Posts: 43
Default Need to modify one small peice of code...

have the following that was provided to me by someone in this newsgroup
(Thanks Bernie
)
What I need to do now, is to also have it fill in series also col BZ. I
tried what I could figure out, but it only selected the top two rows and did
not fill, or it filled the whole series with numbers...

If it helps, col A and BZ have the same info. I am putting this in as a ref
point to tell me if any of my SORTS misaligned my data.

Currently, this does what I needed it to do, except now I need to also fill
col BZ
Just for ref, what this does, is to copy a select groups of records from
whatever sheet I am on, pastes it to the bottom of Finished Results, and
then for the selected records, fill col A from the record above with
series. (Most of you guys probably can figure this out though...)

Thanks
Bruce


Sub cutpasteseries()
Dim myCell As Range
Selection.Copy
Sheets("Finished Results").Select
Set myCell = Range("A65536").End(xlUp)(2)
myCell.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False
Range(myCell(0), Range("B65536").End(xlUp)(1, 0)).Select
Selection.DataSeries Type:=xlLinear, Step:=1
Range(myCell, Range("A65536").End(xlUp)).EntireRow.Select
Selection.Copy
End Sub