Copying a row from a table

B

Brad

I have some code that will take data from a user form and place in a table.
The table contains a weekly list for top 8 defects. On the user form there is
a check box this box means the issue did not change from last week so the
code looks at the table, copies the corresponding row and should paste the
row in the next available cell. Below is my code. I'm having problems pasting
the data. I'm trying to paste the data without selecting the range to paste
to.

With Workbooks("Tables").Sheets("Top8").ListObjects("tblTop8Issue")
.Range.AutoFilter Field:=7
.Range.AutoFilter Field:=1
.Range.AutoFilter Field:=7, Criteria1:=(iCW - 1)
.Range.AutoFilter Field:=1, Criteria1:=iLoop
.DataBodyRange.SpecialCells(xlCellTypeVisible).Copy
.Range.AutoFilter Field:=1
.Range.AutoFilter Field:=7
.Range(ActiveCell.Offset(iLoop, 0), ActiveCell.Offset(iLoop,
6)).PasteSpecial Paste:=xlValues <- Problem with this line
End With

Any Suggestions?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Copy and paste a row from a table 0
VBA when copying and pasting 1
Creating and transposing a multiarray 3
Conditional If/Else statement 2
Help with my macro 8
Combine Two Different Worksheet_Change codes 9
Dim an array from a filtered Range 1
OssieMac help with code. 3

Top