help autofill function to last row between 2 columns in a dynamic table

[kmillanr]

hello,

I have a dynamic table and i'm trying to autofill the last row between columns "H" and "P" in a table with the data of the row that is just above the last one. for example: if the table has 10 rows and the last one is empty from "H" to "P" then autofill to the last row from "h" to "p" with the functions/data/whatever that are in row 9 from columns "H" to "P". this is my code:

Sub test()

Dim isheet As Worksheet
Set isheet = ThisWorkbook.Sheets("INVENTARIO")
lrwdh = isheet.Range("h4").End(xlDown).Select
lrwdh = ActiveSheet.Range(Cells(ActiveCell.Row, 8), Cells(ActiveCell.Row, 17)).Select
Set lrH = Cells(Rows.Count, "H").End(xlUp).EntireRow
lrH.Select
lrH = ActiveSheet.Range(Cells(ActiveCell.Row, 8), Cells(ActiveCell.Row, 17)).Select
Selection.AutoFill Destination:=Range(lrHwd, lrH) HERE IS MY ERROR.... I THINK...

End Sub

thank you very much.

kevin

 

[revcanon]

hello,

I have a dynamic table and i'm trying to autofill the last row between columns "H" and "P" in a table with the data of the row that is just above the last one. for example: if the table has 10 rows and the last one is empty from "H" to "P" then autofill to the last row from "h" to "p" with the functions/data/whatever that are in row 9 from columns "H" to "P". this is my code:

Sub test()

Dim isheet As Worksheet
Set isheet = ThisWorkbook.Sheets("INVENTARIO")
lrwdh = isheet.Range("h4").End(xlDown).Select
lrwdh = ActiveSheet.Range(Cells(ActiveCell.Row, 8), Cells(ActiveCell.Row, 17)).Select
Set lrH = Cells(Rows.Count, "H").End(xlUp).EntireRow
lrH.Select
lrH = ActiveSheet.Range(Cells(ActiveCell.Row, 8), Cells(ActiveCell.Row, 17)).Select
Selection.AutoFill Destination:=Range(lrHwd, lrH) HERE IS MY ERROR.... I THINK...

End Sub

thank you very much.

kevin

I see a "lrwdh" defined here:

lrwdh = isheet.Range("h4").End(xlDown).Select
lrwdh = ActiveSheet.Range(Cells(ActiveCell.Row, 8), Cells(ActiveCell.Row, 17)).Select

But in your Autofill line, you use "lrHwd"

[B]Selection.AutoFill Destination:=Range(lrHwd, lrH) [COLOR=#ff0000]'HERE IS MY ERROR.... I THINK...[/COLOR][/B]

Have you corrected the reference in your Autofill command to be:

[B]Selection.AutoFill Destination:=Range(lrwdh, lrH)[/B]

 

[kmillanr]

hello,

thanks for that bit. corrected it but still gives me an error. it says: "moethod 'range' of object '_global' failed.....
i'm trying this code now:
Sub test()

Dim isheet As Worksheet
Set isheet = ThisWorkbook.Sheets("INVENTARIO")
Set lrh = Cells(Rows.Count, "H").End(xlUp).EntireRow
lrh.Select
lrh = ActiveSheet.Range(Cells(ActiveCell.Row, 8), Cells(ActiveCell.Row, 17)).Select
lrh = lrh

lrwdh = isheet.Range("h4").End(xlDown).Select
lrwdh = ActiveSheet.Range(Cells(ActiveCell.Row, 8), Cells(ActiveCell.Row, 17)).Select

Selection.AutoFill Destination:=Range(lrh)

End Sub

for some reason it's not reading "lrh" for my autofill destination.