Can't seem to get to fill down
Hello Glen/Chip,
where do i put that part of the code? Basically here's
portion of what table looks like
A B C etc o
Prod Per 1 per 2 etc thru 12 =OFFSET(A1,0,$P$1)
prod1 the above i copied down.
prod2 to last row of data
etc
Total prod
So what I want is in column K15 L15
=A1 =O1
and copy down to last row as it correspond.
I can do it manually but trying to automate it because I
need to do same thing on other sheets.
Hope i'm explaining this right.
Thanks for the help
Juan
-----Original Message-----
This will work:
Range(myrange).select
selection.filldown
Glen
"jUAN" wrote in message
...
Hello All,
k, I can't seem to get this to work tried everything I
could think but still not working. I have followig code:
Dim LastRow as Long
Dim LastRow1 as Long
LastRow = ActiveSheet.Cells(Rows.Count, "A").End
(xlUp).Row
Lastrow1 = ActiveSheet.Cells(Rows.Count, "O").End
(xlUp).Row
Range("K15").Select
ActiveCell.FormulaR1C1 = "=R[-14]C[-10]"
Range("K15:K" & LastRow).Filldown
Range("L15").Select
ActiveCell.FormulaR1C1 = "=R[-14]C[3]"
Range("L15:L" & Lastrow1).Filldown
But nothing gets copied. If I change End(xlUp) to
Xldown,
it does work, but as u know it copies all the way down.
So not sure what I'm doing wrong. So seems the filldown
not working. So need somethign like:
Any suggestions how I can fix this?
Thanks for any help provided.
Juan
.
|