{"id":5800,"date":"2014-04-07T09:15:58","date_gmt":"2014-04-07T09:15:58","guid":{"rendered":"https:\/\/unknownerror.org\/index.php\/2014\/04\/07\/new-worksheet-collection-of-common-programming-errors\/"},"modified":"2014-04-07T09:15:58","modified_gmt":"2014-04-07T09:15:58","slug":"new-worksheet-collection-of-common-programming-errors","status":"publish","type":"post","link":"https:\/\/unknownerror.org\/index.php\/2014\/04\/07\/new-worksheet-collection-of-common-programming-errors\/","title":{"rendered":"new worksheet-Collection of common programming errors"},"content":{"rendered":"<p>Code Snippet<\/p>\n<p>Sub MoveMax()<\/p>\n<p>\u00a0\u00a0\u00a0 Dim iter As Integer, place As Integer\u00a0\u00a0\u00a0 Dim MyCell\u00a0\u00a0\u00a0 Dim MyArray()\u00a0\u00a0\u00a0 Dim OldSheet As Worksheet\u00a0\u00a0\u00a0 Dim NewSheet As Worksheet\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 iter = 1\u00a0\u00a0\u00a0 place = 1<\/p>\n<p>\u00a0\u00a0\u00a0 OldSheet = ActiveSheet<br \/>\n\u00a0\u00a0\u00a0 &#8216;NewSheet = *create new worksheet at end of active workbook*<br \/>\n\u00a0\u00a0\u00a0<\/p>\n<p>\n\u00a0\u00a0\u00a0 Do While Not IsEmpty(OldSheet.Range(&#8220;A&#8221; &amp; iter))<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 MyCell = OldSheet.Range(&#8220;M&#8221; &amp; iter)\u00a0\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If MyCell.Text = &#8220;x&#8221; And MyCell.BackColor = RGB(255, 255, 0) Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 MyArray = OldSheet.Range(&#8220;A&#8221; &amp; iter &amp; &#8220;:M&#8221; &amp; iter)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 NewSheet.Range(&#8220;A&#8221; &amp; place &amp; &#8220;:M&#8221; &amp; iter) = MyArray<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Erase MyArray<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 place = place + 1\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 iter = iter + 1\u00a0\u00a0\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u00a0 Loop<\/p>\n<p>End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Code Snippet Sub MoveMax() \u00a0\u00a0\u00a0 Dim iter As Integer, place As Integer\u00a0\u00a0\u00a0 Dim MyCell\u00a0\u00a0\u00a0 Dim MyArray()\u00a0\u00a0\u00a0 Dim OldSheet As Worksheet\u00a0\u00a0\u00a0 Dim NewSheet As Worksheet\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 iter = 1\u00a0\u00a0\u00a0 place = 1 \u00a0\u00a0\u00a0 OldSheet = ActiveSheet \u00a0\u00a0\u00a0 &#8216;NewSheet = *create new worksheet at end of active workbook* \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 Do While Not IsEmpty(OldSheet.Range(&#8220;A&#8221; &amp; iter)) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-5800","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"_links":{"self":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/posts\/5800","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/comments?post=5800"}],"version-history":[{"count":0,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/posts\/5800\/revisions"}],"wp:attachment":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/media?parent=5800"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/categories?post=5800"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/tags?post=5800"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}