Code to copy

[dpaton05]

Could I get some help to write some code to copy from one table to another please?

I have the following code I tried to write but because I am still learning to code, I don't know how to debug it.

        Set tbl = Worksheets("NPSS_quote_sheet").ListObjects("npss_quote")
       For Each tblrow In tbl.ListRows
                
            Set wsDst = Workbooks("costing tool").Worksheets("home")
                With wsDst
                    tblrow.Range.Resize(, 2).Copy
                    .Range(workbooks("costing tool").worksheets("home").listobjects("tblCosting) A & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats

 

[NoSparks]

Re: help with code to copy

A couple of web pages with good info for dealing with tables

https://www.thespreadsheetguru.com/blog/2014/6/20/the-vba-guide-to-listobject-excel-tables
https://www.jkp-ads.com/Articles/Excel2007TablesVBA.asp?AllComments=True

 

[dpaton05]

Re: help with code to copy

I had a look at those sites but couldn't see what I wanted. I basically want to copy x number of table rows in one table to another table in another workbook. I think I could work out how to do that but it isn't just a straight copy and paste, such as the first 4 columns in one table going to the first 4 columns in another table. I can't quite remember the positioning of the columns, I have it written in an earlier post. It was something like column A of one table to column A of the other. Then it was something like column B of the first table to column F of the second table.

I also didn't know how to have some information that is entered above the table to be the same for every record in the table. For instance, the child name might be entered above and it needs to be the same for each table record.