Offset with variable
 

I'm having a little trouble getting a value of a cell to work as a variable
in an offset. In the snippet of code below, I am taking the value in cell R8
and copying it to the first empty cell at the end of column S. Next what I
want to do is take the same value and copy it "X" cells below and then fill
the value between the two points. The value I want to basically go down (and
use in the second offset) is in cell "U8". I can't for whatever reason get
the second offset to work with a variable. Thank you for any help you can
provide!

James

Range("R8").Select
Selection.Copy
Cells(Rows.Count, "S").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("R8").Select
Selection.Copy
Cells(Rows.Count, "S").End(xlUp).Offset(U8, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Cells(Rows.Count, "S").End(xlUp).Offset(1, 0).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown

Offset with variable
 

Try

Cells(Rows.Count, "S").End(xlUp).Offset(Range("U8").Value, 0).Select


--

HTH

RP
(remove nothere from the email address if mailing direct)


"James" wrote in message
...
I'm having a little trouble getting a value of a cell to work as a
variable
in an offset. In the snippet of code below, I am taking the value in cell
R8
and copying it to the first empty cell at the end of column S. Next what
I
want to do is take the same value and copy it "X" cells below and then
fill
the value between the two points. The value I want to basically go down
(and
use in the second offset) is in cell "U8". I can't for whatever reason
get
the second offset to work with a variable. Thank you for any help you can
provide!

James

Range("R8").Select
Selection.Copy
Cells(Rows.Count, "S").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("R8").Select
Selection.Copy
Cells(Rows.Count, "S").End(xlUp).Offset(U8, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Cells(Rows.Count, "S").End(xlUp).Offset(1, 0).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown

Offset with variable
 

Works great! Thanks!

"Bob Phillips" wrote:

Try

Cells(Rows.Count, "S").End(xlUp).Offset(Range("U8").Value, 0).Select


--

HTH

RP
(remove nothere from the email address if mailing direct)


"James" wrote in message
...
I'm having a little trouble getting a value of a cell to work as a
variable
in an offset. In the snippet of code below, I am taking the value in cell
R8
and copying it to the first empty cell at the end of column S. Next what
I
want to do is take the same value and copy it "X" cells below and then
fill
the value between the two points. The value I want to basically go down
(and
use in the second offset) is in cell "U8". I can't for whatever reason
get
the second offset to work with a variable. Thank you for any help you can
provide!

James

Range("R8").Select
Selection.Copy
Cells(Rows.Count, "S").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("R8").Select
Selection.Copy
Cells(Rows.Count, "S").End(xlUp).Offset(U8, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Cells(Rows.Count, "S").End(xlUp).Offset(1, 0).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown