Filldown Problem

[Juan]

Hello All,
can't seem to get the following to work properly. Here's
my 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
This doesn't work. It leaves K15 empty, but L15 seems to
get sum up. When I pu Xldown.row, this works but copies
alll the way down.
So basically in Column K15 copy contents of Column A and
filldown to last row of data in column A same thing with
Column O copy in L15 and filldown. I have a formula in
Column O so I don't want the formula or just value, since
when I update my formula, want those totals updated in L15.
Hope I'm explaining this right.

Thanks for any help provided.

Juan

 

[Jim Cone]

Juan,

It works for me.
However, it leaves Column K blank if there is no data in Column A below row 15.
Also, the line "Dim LastRow1 as Long should not be commented out.

Regards,
Jim Cone
San Francisco, USA

 

[Juan]

Hello Jim
thanks. But not sure if I'm explaining it right. For my
example, there is no data below A8. When I use this same
logic on a different sheet and reference my data sheet,
it works.
So need to copy range in column A and range of Column O
to the last row of data.

Please advise if anyother info.

Thanks,

Juan

-----Original Message-----
Juan,

It works for me.
However, it leaves Column K blank if there is no data in Column A below row 15.
Also, the line "Dim LastRow1 as Long should not be commented out.

Regards,
Jim Cone
San Francisco, USA

Hello All,
can't seem to get the following to work properly. Here's
my 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
This doesn't work. It leaves K15 empty, but L15 seems to
get sum up. When I pu Xldown.row, this works but copies
alll the way down.
So basically in Column K15 copy contents of Column A and
filldown to last row of data in column A same thing with
Column O copy in L15 and filldown. I have a formula in
Column O so I don't want the formula or just value, since
when I update my formula, want those totals updated in L15.
Hope I'm explaining this right.
Thanks for any help provided.
Juan

.

 

[Jim Cone]

Juan,

Try the following code on a blank sheet.
Try it with LastRow = 8 and with LastRow = 20

'------------------------
Sub TestFillRange()
Dim LastRow
Range("K15").Value = "Test"
LastRow = 8 'or 20
Range("K15:K" & LastRow).FillDown
End Sub
'------------------------

Regards,
Jim Cone
San Francisco, USA

Hello Jim
thanks. But not sure if I'm explaining it right. For my
example, there is no data below A8. When I use this same
logic on a different sheet and reference my data sheet,
it works.
So need to copy range in column A and range of Column O
to the last row of data.
Please advise if anyother info.
Thanks,
Juan

-----Original Message-----
Juan,
It works for me.
However, it leaves Column K blank if there is no data in Column A below row 15.
Also, the line "Dim LastRow1 as Long should not be commented out.
Regards,
Jim Cone
San Francisco, USA

Hello All,
can't seem to get the following to work properly. Here's
my 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
This doesn't work. It leaves K15 empty, but L15 seems

to get sum up. When I pu Xldown.row, this works but
copies alll the way down.and filldown to last row of data in column A same thing
with Column O copy in L15 and filldown. I have a formula insince when I update my formula, want those totals updated in
L15. Hope I'm explaining this right.

 

[juan]

Hello Jim,
thanks. I tried but did not work. The filldown is seem to
be not working. I will repost just in case. I really do
appreciate all your help.

Once again thanks,

juan

-----Original Message-----
Juan,

Try the following code on a blank sheet.
Try it with LastRow = 8 and with LastRow = 20

'------------------------
Sub TestFillRange()
Dim LastRow
Range("K15").Value = "Test"
LastRow = 8 'or 20
Range("K15:K" & LastRow).FillDown
End Sub
'------------------------

Regards,
Jim Cone
San Francisco, USA

Hello Jim
thanks. But not sure if I'm explaining it right. For my
example, there is no data below A8. When I use this same
logic on a different sheet and reference my data sheet,
it works.
So need to copy range in column A and range of Column O
to the last row of data.
Please advise if anyother info.
Thanks,
Juan

-----Original Message-----
Juan,
It works for me.
However, it leaves Column K blank if there is no data

in
Column A below row 15.

Also, the line "Dim LastRow1 as Long should not be commented out.
Regards,
Jim Cone
San Francisco, USA

Hello All,
can't seem to get the following to work properly. Here's
my 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
This doesn't work. It leaves K15 empty, but L15

seems
to get sum up. When I pu Xldown.row, this works but
copies alll the way down.

So basically in Column K15 copy contents of Column A

and filldown to last row of data in column A same thing
with Column O copy in L15 and filldown. I have a formula in

Column O so I don't want the formula or just value,

since when I update my formula, want those totals updated in
L15. Hope I'm explaining this right.

Thanks for any help provided.
Juan

.