{"id":2965,"date":"2016-03-19T08:00:41","date_gmt":"2016-03-19T08:00:41","guid":{"rendered":"http:\/\/www.ericwhite.com\/home2\/bm8qcmjy\/public_html\/blog\/?page_id=2965"},"modified":"2016-03-19T08:00:41","modified_gmt":"2016-03-19T08:00:41","slug":"implementing-excel-business-applications-using-vba-and-open-xml","status":"publish","type":"page","link":"https:\/\/www.ericwhite.com\/blog\/implementing-excel-business-applications-using-vba-and-open-xml\/","title":{"rendered":"Implementing Excel Business Applications using VBA and Open XML"},"content":{"rendered":"<p>This is a real-world scenario &#8211; you need to implement some sophisticated manipulation of Excel tables in VBA, and then you need to extract the data from the Open XML spreadsheet using the Open XML SDK. &nbsp;This screen-cast was based on a real-world project that I completed a short while ago. &nbsp;The customer wanted some slick behavior inside a spreadsheet. &nbsp;They wanted to automatically create tables, delete tables, and in some circumstances, to maintain the tables. &nbsp;After the data was as desired, then the user would save the macro-enabled workbook, and run an Open XML program that processed the data in an interesting way (that would be very difficult using VBA).<\/p>\n<p>This screen-cast and example code are related to two other videos:<\/p>\n<p><a href=\"https:\/\/www.ericwhite.com\/blog\/using-open-xml-package-editor-to-create-a-ribbon-button-that-runs-a-vba-function\/\">Using Open XML Package Editor to Create a Ribbon Button that runs a VBA Function<\/a><\/p>\n<p><a href=\"https:\/\/www.ericwhite.com\/blog\/using-open-xml-package-editor-to-customize-ribbon-deploy-as-vba-add-in\/\">Using Open XML Package Editor to Customize Ribbon, Deploy as VBA Add-In<\/a><\/p>\n<p>Code is attached.<\/p>\n<p><iframe loading=\"lazy\" title=\"Implementing-OBA-using-Excel-VBA-OpenXML.wmv\" width=\"500\" height=\"281\" src=\"https:\/\/www.youtube.com\/embed\/CoLDitQBwqU?feature=oembed\" frameborder=\"0\" allow=\"accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share\" referrerpolicy=\"strict-origin-when-cross-origin\" allowfullscreen><\/iframe><\/p>\n<p>For convenience, here is the VBA code listing, if you want to see the code that I show in the video without opening the XLSM and looking at the code in the VBA editor:<\/p>\n<pre class=\"prettyprint\"><span class=\"pln\">&nbsp; &nbsp; <\/span><span class=\"typ\">Private<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"> btnClearTable1_Click<\/span><span class=\"pun\">()<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Table1<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">If<\/span><span class=\"pln\"> <\/span><span class=\"typ\">IsEmpty<\/span><span class=\"pun\">(<\/span><span class=\"typ\">Table1<\/span><span class=\"pun\">)<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Then<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">MsgBox<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table does not exist\"<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> vbOKOnly<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Error\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Else<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">With<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Dim<\/span><span class=\"pln\"> nbrRows <\/span><span class=\"typ\">As<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Integer<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; nbrRows <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Rows<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Count<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"$A$2:$C$\"<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> nbrRows<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Delete<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">With<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">If<\/span><span class=\"pln\"><br>&nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"><br><br>&nbsp; &nbsp; <\/span><span class=\"typ\">Private<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"> btnClearTable2_Click<\/span><span class=\"pun\">()<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Table2<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">If<\/span><span class=\"pln\"> <\/span><span class=\"typ\">IsEmpty<\/span><span class=\"pun\">(<\/span><span class=\"typ\">Table2<\/span><span class=\"pun\">)<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Then<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">MsgBox<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table does not exist\"<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> vbOKOnly<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Error\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Else<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">With<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Dim<\/span><span class=\"pln\"> nbrRows <\/span><span class=\"typ\">As<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Integer<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; nbrRows <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Rows<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Count<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"$A$2:$C$\"<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> nbrRows<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Delete<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">With<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">If<\/span><span class=\"pln\"><br>&nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"><br><br>&nbsp; &nbsp; <\/span><span class=\"typ\">Private<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"> btnCopy1to2_Click<\/span><span class=\"pun\">()<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Table1<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">If<\/span><span class=\"pln\"> <\/span><span class=\"typ\">IsEmpty<\/span><span class=\"pun\">(<\/span><span class=\"typ\">Table1<\/span><span class=\"pun\">)<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Then<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">MsgBox<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table 1 does not exist\"<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> vbOKOnly<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Error\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Else<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Table2<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">If<\/span><span class=\"pln\"> <\/span><span class=\"typ\">IsEmpty<\/span><span class=\"pun\">(<\/span><span class=\"typ\">Table2<\/span><span class=\"pun\">)<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Then<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">MsgBox<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table 2 does not exist\"<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> vbOKOnly<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Error\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Else<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">With<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; nbrRows <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Rows<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Count<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"$A$2:$C$\"<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> nbrRows<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Delete<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; nbrRowsTable1 <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Rows<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Count<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"$A$2:$C$\"<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> nbrRowsTable1<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Copy<\/span><span class=\"pln\"> <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"$A$2\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Resize<\/span><span class=\"pun\">(<\/span><span class=\"pln\">nbrRowsTable1 <\/span><span class=\"pun\">-<\/span><span class=\"pln\"> <\/span><span class=\"lit\">1<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">3<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">With<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">If<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">If<\/span><span class=\"pln\"><br>&nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"><br><br>&nbsp; &nbsp; <\/span><span class=\"typ\">Private<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"> btnCopy2to1_Click<\/span><span class=\"pun\">()<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Table1<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">If<\/span><span class=\"pln\"> <\/span><span class=\"typ\">IsEmpty<\/span><span class=\"pun\">(<\/span><span class=\"typ\">Table1<\/span><span class=\"pun\">)<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Then<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">MsgBox<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table 1 does not exist\"<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> vbOKOnly<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Error\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Else<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Table2<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">If<\/span><span class=\"pln\"> <\/span><span class=\"typ\">IsEmpty<\/span><span class=\"pun\">(<\/span><span class=\"typ\">Table2<\/span><span class=\"pun\">)<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Then<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">MsgBox<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table 2 does not exist\"<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> vbOKOnly<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Error\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Else<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">With<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; nbrRows <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Rows<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Count<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"$A$2:$C$\"<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> nbrRows<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Delete<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; nbrRowsTable2 <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Rows<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Count<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"$A$2:$C$\"<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> nbrRowsTable2<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Copy<\/span><span class=\"pln\"> <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"$A$2\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Resize<\/span><span class=\"pun\">(<\/span><span class=\"pln\">nbrRowsTable2 <\/span><span class=\"pun\">-<\/span><span class=\"pln\"> <\/span><span class=\"lit\">1<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">3<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">With<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">If<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">If<\/span><span class=\"pln\"><br>&nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"><br><br>&nbsp; &nbsp; <\/span><span class=\"typ\">Private<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"> btnCreateTable1_Click<\/span><span class=\"pun\">()<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Table1<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">If<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Not<\/span><span class=\"pln\"> <\/span><span class=\"typ\">IsEmpty<\/span><span class=\"pun\">(<\/span><span class=\"typ\">Table1<\/span><span class=\"pun\">)<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Then<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">MsgBox<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table already exists\"<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> vbOKOnly<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Error\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Else<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">With<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">1<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">1<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Nbr\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">1<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">2<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Name\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">1<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">3<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Age\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">2<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">1<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"1\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">2<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">2<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Eric\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">2<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">3<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"50\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">3<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">1<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"2\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">3<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">2<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Bob\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">3<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">3<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"46\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">4<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">1<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"4\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">4<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">2<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Jill\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">4<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">3<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"34\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">With<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Add<\/span><span class=\"pun\">(<\/span><span class=\"pln\">xlSrcRange<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> _<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"$A$1:$C$4\"<\/span><span class=\"pun\">),<\/span><span class=\"pln\"> <\/span><span class=\"pun\">,<\/span><span class=\"pln\"> xlYes<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Name<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> _<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">TableStyle<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"TableStyleLight2\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">If<\/span><span class=\"pln\"><br>&nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"><br><br>&nbsp; &nbsp; <\/span><span class=\"typ\">Private<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"> btnCreateTable2_Click<\/span><span class=\"pun\">()<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Dim<\/span><span class=\"pln\"> <\/span><span class=\"typ\">StartingRow<\/span><span class=\"pln\"> <\/span><span class=\"typ\">As<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Integer<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">StartingRow<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"lit\">20<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Table2<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">If<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Not<\/span><span class=\"pln\"> <\/span><span class=\"typ\">IsEmpty<\/span><span class=\"pun\">(<\/span><span class=\"typ\">Table2<\/span><span class=\"pun\">)<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Then<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">MsgBox<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table already exists\"<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> vbOKOnly<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Error\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Else<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">With<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"$A$\"<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> <\/span><span class=\"typ\">StartingRow<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">1<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">1<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Nbr\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">1<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">2<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Name\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">1<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">3<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Age\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">2<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">1<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"6\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">2<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">2<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Autumn\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">2<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">3<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"33\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">3<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">1<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"7\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">3<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">2<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Joe\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">3<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">3<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"56\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">4<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">1<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"8\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">4<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">2<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Mary\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">4<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">3<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"48\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">With<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Add<\/span><span class=\"pun\">(<\/span><span class=\"pln\">xlSrcRange<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> _<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"$A$\"<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> <\/span><span class=\"typ\">StartingRow<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> <\/span><span class=\"str\">\":$C$\"<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> <\/span><span class=\"pun\">(<\/span><span class=\"typ\">StartingRow<\/span><span class=\"pln\"> <\/span><span class=\"pun\">+<\/span><span class=\"pln\"> <\/span><span class=\"lit\">3<\/span><span class=\"pun\">)),<\/span><span class=\"pln\"> <\/span><span class=\"pun\">,<\/span><span class=\"pln\"> xlYes<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Name<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> _<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">TableStyle<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"TableStyleLight2\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">If<\/span><span class=\"pln\"><br>&nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"><br><br>&nbsp; &nbsp; <\/span><span class=\"typ\">Private<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"> btnDeleteRowTable1_Click<\/span><span class=\"pun\">()<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Table1<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">If<\/span><span class=\"pln\"> <\/span><span class=\"typ\">IsEmpty<\/span><span class=\"pun\">(<\/span><span class=\"typ\">Table1<\/span><span class=\"pun\">)<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Then<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">MsgBox<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table does not exist\"<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> vbOKOnly<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Error\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Else<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">With<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Rows<\/span><span class=\"pun\">(<\/span><span class=\"lit\">2<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Delete<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">With<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">If<\/span><span class=\"pln\"><br>&nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"><br><br>&nbsp; &nbsp; <\/span><span class=\"typ\">Private<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"> btnDeleteRowTable2_Click<\/span><span class=\"pun\">()<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Table2<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">If<\/span><span class=\"pln\"> <\/span><span class=\"typ\">IsEmpty<\/span><span class=\"pun\">(<\/span><span class=\"typ\">Table2<\/span><span class=\"pun\">)<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Then<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">MsgBox<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table does not exist\"<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> vbOKOnly<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Error\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Else<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">With<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Rows<\/span><span class=\"pun\">(<\/span><span class=\"lit\">2<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Delete<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">With<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">If<\/span><span class=\"pln\"><br>&nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"><br><br>&nbsp; &nbsp; <\/span><span class=\"typ\">Private<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"> btnDeleteTable1_Click<\/span><span class=\"pun\">()<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Table1<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">If<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Not<\/span><span class=\"pln\"> <\/span><span class=\"typ\">IsEmpty<\/span><span class=\"pun\">(<\/span><span class=\"typ\">Table1<\/span><span class=\"pun\">)<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Then<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Delete<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Else<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">MsgBox<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table does not exist\"<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> vbOKOnly<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Error\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">If<\/span><span class=\"pln\"><br>&nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"><br><br>&nbsp; &nbsp; <\/span><span class=\"typ\">Private<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"> btnDeleteTable2_Click<\/span><span class=\"pun\">()<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Table2<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">If<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Not<\/span><span class=\"pln\"> <\/span><span class=\"typ\">IsEmpty<\/span><span class=\"pun\">(<\/span><span class=\"typ\">Table2<\/span><span class=\"pun\">)<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Then<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Delete<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Else<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">MsgBox<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table does not exist\"<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> vbOKOnly<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Error\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">If<\/span><span class=\"pln\"><br>&nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"><br><br>&nbsp; &nbsp; <\/span><span class=\"typ\">Private<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"> btnInsertRowTable1_Click<\/span><span class=\"pun\">()<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Table1<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">If<\/span><span class=\"pln\"> <\/span><span class=\"typ\">IsEmpty<\/span><span class=\"pun\">(<\/span><span class=\"typ\">Table1<\/span><span class=\"pun\">)<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Then<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">MsgBox<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table does not exist\"<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> vbOKOnly<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Error\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Else<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Dim<\/span><span class=\"pln\"> newRow <\/span><span class=\"typ\">As<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ListRow<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Set<\/span><span class=\"pln\"> newRow <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListRows<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Add<\/span><span class=\"pun\">(<\/span><span class=\"typ\">AlwaysInsert<\/span><span class=\"pun\">:=<\/span><span class=\"kwd\">True<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">With<\/span><span class=\"pln\"> newRow<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">1<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">1<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"lit\">999<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">1<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">2<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Bill\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">1<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">3<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"lit\">11<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">With<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">If<\/span><span class=\"pln\"><br>&nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"><br><br>&nbsp; &nbsp; <\/span><span class=\"typ\">Private<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"> btnInsertRowTable2_Click<\/span><span class=\"pun\">()<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Resume<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Table2<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">On<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Error<\/span><span class=\"pln\"> <\/span><span class=\"typ\">GoTo<\/span><span class=\"pln\"> <\/span><span class=\"lit\">0<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">If<\/span><span class=\"pln\"> <\/span><span class=\"typ\">IsEmpty<\/span><span class=\"pun\">(<\/span><span class=\"typ\">Table2<\/span><span class=\"pun\">)<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Then<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">MsgBox<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table does not exist\"<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> vbOKOnly<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Error\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Else<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Dim<\/span><span class=\"pln\"> newRow <\/span><span class=\"typ\">As<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ListRow<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Set<\/span><span class=\"pln\"> newRow <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"AgeList2\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListRows<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Add<\/span><span class=\"pun\">(<\/span><span class=\"typ\">AlwaysInsert<\/span><span class=\"pun\">:=<\/span><span class=\"kwd\">True<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">With<\/span><span class=\"pln\"> newRow<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">1<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">1<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"lit\">888<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">1<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">2<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Aaron\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"pun\">.<\/span><span class=\"typ\">Cells<\/span><span class=\"pun\">(<\/span><span class=\"lit\">1<\/span><span class=\"pun\">,<\/span><span class=\"pln\"> <\/span><span class=\"lit\">3<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"lit\">38<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">With<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">If<\/span><span class=\"pln\"><br>&nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"><br><br>&nbsp; &nbsp; <\/span><span class=\"typ\">Private<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"> btnListAllData_Click<\/span><span class=\"pun\">()<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Dim<\/span><span class=\"pln\"> list <\/span><span class=\"typ\">As<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ListObject<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Dim<\/span><span class=\"pln\"> <\/span><span class=\"kwd\">out<\/span><span class=\"pln\"> <\/span><span class=\"typ\">As<\/span><span class=\"pln\"> <\/span><span class=\"typ\">String<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"kwd\">out<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">For<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Each<\/span><span class=\"pln\"> list <\/span><span class=\"typ\">In<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"kwd\">out<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"kwd\">out<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table: \"<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> list<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Name<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> <\/span><span class=\"str\">\": \"<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> list<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Address<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Chr<\/span><span class=\"pun\">(<\/span><span class=\"lit\">13<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Dim<\/span><span class=\"pln\"> nbrRows <\/span><span class=\"typ\">As<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Integer<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; nbrRows <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> list<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Rows<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Count<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">For<\/span><span class=\"pln\"> i <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"lit\">1<\/span><span class=\"pln\"> <\/span><span class=\"typ\">To<\/span><span class=\"pln\"> nbrRows<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"kwd\">out<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"kwd\">out<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> list<\/span><span class=\"pun\">.<\/span><span class=\"typ\">ListColumns<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Nbr\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">(<\/span><span class=\"pln\">i<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"|\"<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> _<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; list<\/span><span class=\"pun\">.<\/span><span class=\"typ\">ListColumns<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Name\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">(<\/span><span class=\"pln\">i<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"|\"<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> _<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; list<\/span><span class=\"pun\">.<\/span><span class=\"typ\">ListColumns<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Age\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">(<\/span><span class=\"pln\">i<\/span><span class=\"pun\">).<\/span><span class=\"typ\">Value<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> _<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Chr<\/span><span class=\"pun\">(<\/span><span class=\"lit\">13<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"> i<br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; lblDisplay<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Caption<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"kwd\">out<\/span><span class=\"pln\"><br>&nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"><br><br>&nbsp; &nbsp; <\/span><span class=\"typ\">Private<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><span class=\"pln\"> btnListAllTables_Click<\/span><span class=\"pun\">()<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Dim<\/span><span class=\"pln\"> list <\/span><span class=\"typ\">As<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ListObject<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Dim<\/span><span class=\"pln\"> <\/span><span class=\"kwd\">out<\/span><span class=\"pln\"> <\/span><span class=\"typ\">As<\/span><span class=\"pln\"> <\/span><span class=\"typ\">String<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"kwd\">out<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"\"<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">For<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Each<\/span><span class=\"pln\"> list <\/span><span class=\"typ\">In<\/span><span class=\"pln\"> <\/span><span class=\"typ\">ActiveWorkbook<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Sheets<\/span><span class=\"pun\">(<\/span><span class=\"str\">\"Sheet1\"<\/span><span class=\"pun\">).<\/span><span class=\"typ\">ListObjects<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"kwd\">out<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"kwd\">out<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> <\/span><span class=\"str\">\"Table: \"<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> list<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Name<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> <\/span><span class=\"str\">\": \"<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> list<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Range<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Address<\/span><span class=\"pln\"> <\/span><span class=\"pun\">&amp;<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Chr<\/span><span class=\"pun\">(<\/span><span class=\"lit\">13<\/span><span class=\"pun\">)<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; <\/span><span class=\"typ\">Next<\/span><span class=\"pln\"><br>&nbsp; &nbsp; &nbsp; &nbsp; lblDisplay<\/span><span class=\"pun\">.<\/span><span class=\"typ\">Caption<\/span><span class=\"pln\"> <\/span><span class=\"pun\">=<\/span><span class=\"pln\"> <\/span><span class=\"kwd\">out<\/span><span class=\"pln\"><br>&nbsp; &nbsp; <\/span><span class=\"typ\">End<\/span><span class=\"pln\"> <\/span><span class=\"typ\">Sub<\/span><\/pre>\n<p>Download &#8211; <a href=\"https:\/\/www.ericwhite.com\/blog\/wp-content\/uploads\/2016\/03\/VBAandOpenXML.zip\">Example Code<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>This is a real-world scenario &#8211; you need to implement some sophisticated manipulation of Excel tables in VBA, and then you need to extract the data from the Open XML spreadsheet using the Open XML SDK. &nbsp;This screen-cast was based on a real-world project that I completed a short while ago. &nbsp;The customer wanted some [&hellip;]<\/p>\n","protected":false},"author":10567,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"_bbp_topic_count":0,"_bbp_reply_count":0,"_bbp_total_topic_count":0,"_bbp_total_reply_count":0,"_bbp_voice_count":0,"_bbp_anonymous_reply_count":0,"_bbp_topic_count_hidden":0,"_bbp_reply_count_hidden":0,"_bbp_forum_subforum_count":0,"_s2mail":"","footnotes":""},"class_list":["post-2965","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.ericwhite.com\/blog\/wp-json\/wp\/v2\/pages\/2965","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ericwhite.com\/blog\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www.ericwhite.com\/blog\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/www.ericwhite.com\/blog\/wp-json\/wp\/v2\/users\/10567"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ericwhite.com\/blog\/wp-json\/wp\/v2\/comments?post=2965"}],"version-history":[{"count":1,"href":"https:\/\/www.ericwhite.com\/blog\/wp-json\/wp\/v2\/pages\/2965\/revisions"}],"predecessor-version":[{"id":2966,"href":"https:\/\/www.ericwhite.com\/blog\/wp-json\/wp\/v2\/pages\/2965\/revisions\/2966"}],"wp:attachment":[{"href":"https:\/\/www.ericwhite.com\/blog\/wp-json\/wp\/v2\/media?parent=2965"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}