{"id":26517,"date":"2022-12-18T07:30:12","date_gmt":"2022-12-18T02:00:12","guid":{"rendered":"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/"},"modified":"2022-12-18T07:30:12","modified_gmt":"2022-12-18T02:00:12","slug":"solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed","status":"publish","type":"post","link":"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/","title":{"rendered":"[Solved] EXCEL VBA Code to generate serial numbers from a range [closed]"},"content":{"rendered":"<p> [ad_1]<br \/>\n<\/p>\n<div id=\"answer-39534893\" class=\"answer js-answer accepted-answer js-accepted-answer\" data-answerid=\"39534893\" data-parentid=\"39491063\" data-score=\"0\" data-position-on-page=\"1\" data-highest-scored=\"1\" data-question-has-accepted-highest-score=\"1\" itemprop=\"acceptedAnswer\" itemscope itemtype=\"https:\/\/schema.org\/Answer\">\n<div class=\"post-layout\">\n<div class=\"votecell post-layout--left\"><\/div>\n<div class=\"answercell post-layout--right\">\n<div class=\"s-prose js-post-body\" itemprop=\"text\">\n<p>Try this out and let me know if it works for you.. This will provide you with the results shown in your picture. <\/p>\n<pre><code>    Sub SerialCode()\n    Dim ws As Worksheet\n    Dim startOf As Long, endOf As Long, data 'startOf and endOf are Long for &gt;5 digits.\n    Dim lastRow As Long, currentRow As Long\n    Dim dataRange As Range, c As Range\n\n    Set ws = ThisWorkbook.Sheets(1)\n    ws.Range(\"E2\", ws.Cells(ws.Rows.Count, \"E\").End(xlUp)).Clear\n    ws.Range(\"F2\", ws.Cells(ws.Rows.Count, \"F\").End(xlUp)).Clear\n    lastRow = 2\n    Set dataRange = ws.Range(\"A2\", ws.Cells(ws.Rows.Count, \"A\").End(xlUp))\n\n\n    For Each c In dataRange\n        If c.Value &lt;&gt; \"\" Then\n            currentRow = c.Row\n            startOf = CLng(ws.Range(\"A\" &amp; currentRow).Value)\n            endOf = CLng(ws.Range(\"B\" &amp; currentRow).Value) + 1\n\n            If endOf &lt;&gt; 1 And startOf &lt; endOf Then 'This will stop Overflow errors from occuring accidently\n                data = ws.Range(\"C\" &amp; currentRow).Value\n\n                Do While startOf &lt;&gt; endOf\n                    ws.Range(\"E\" &amp; lastRow).Value = startOf\n                    ws.Range(\"F\" &amp; lastRow).Value = data\n                    startOf = startOf + 1\n                    lastRow = lastRow + 1\n                Loop\n\n            Else: MsgBox \"Ending Serial Number missing or is less than starting Serial Number on row \" _\n                &amp; c.Row, vbCritical, \"Missing Data\"\n            End If\n        End If\n    Next c\nEnd Sub\n<\/code><\/pre>\n<\/p><\/div>\n<div class=\"mt24\"><\/div>\n<\/div>\n<p>            <span class=\"d-none\" itemprop=\"commentCount\">17<\/span> <\/p><\/div>\n<\/div>\n<p>[ad_2]<\/p>\n<p>solved EXCEL VBA Code to generate serial numbers from a range [closed] <\/p>\n","protected":false},"excerpt":{"rendered":"<p>[ad_1] Try this out and let me know if it works for you.. This will provide you with the results shown in your picture. Sub SerialCode() Dim ws As Worksheet Dim startOf As Long, endOf As Long, data &#8216;startOf and endOf are Long for &gt;5 digits. Dim lastRow As Long, currentRow As Long Dim dataRange &#8230; <a title=\"[Solved] EXCEL VBA Code to generate serial numbers from a range [closed]\" class=\"read-more\" href=\"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/\" aria-label=\"More on [Solved] EXCEL VBA Code to generate serial numbers from a range [closed]\">Read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[320],"tags":[400,401],"class_list":["post-26517","post","type-post","status-publish","format-standard","hentry","category-solved","tag-excel","tag-vba"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v26.5 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>[Solved] EXCEL VBA Code to generate serial numbers from a range [closed] - JassWeb<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"[Solved] EXCEL VBA Code to generate serial numbers from a range [closed] - JassWeb\" \/>\n<meta property=\"og:description\" content=\"[ad_1] Try this out and let me know if it works for you.. This will provide you with the results shown in your picture. Sub SerialCode() Dim ws As Worksheet Dim startOf As Long, endOf As Long, data &#039;startOf and endOf are Long for &gt;5 digits. Dim lastRow As Long, currentRow As Long Dim dataRange ... Read more\" \/>\n<meta property=\"og:url\" content=\"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/\" \/>\n<meta property=\"og:site_name\" content=\"JassWeb\" \/>\n<meta property=\"article:published_time\" content=\"2022-12-18T02:00:12+00:00\" \/>\n<meta name=\"author\" content=\"Kirat\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"Kirat\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"1 minute\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/#article\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/\"},\"author\":{\"name\":\"Kirat\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\"},\"headline\":\"[Solved] EXCEL VBA Code to generate serial numbers from a range [closed]\",\"datePublished\":\"2022-12-18T02:00:12+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/\"},\"wordCount\":49,\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"keywords\":[\"excel\",\"vba\"],\"articleSection\":[\"Solved\"],\"inLanguage\":\"en-US\"},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/\",\"url\":\"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/\",\"name\":\"[Solved] EXCEL VBA Code to generate serial numbers from a range [closed] - JassWeb\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#website\"},\"datePublished\":\"2022-12-18T02:00:12+00:00\",\"breadcrumb\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/jassweb.com\/solved\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"[Solved] EXCEL VBA Code to generate serial numbers from a range [closed]\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/jassweb.com\/solved\/#website\",\"url\":\"https:\/\/jassweb.com\/solved\/\",\"name\":\"JassWeb\",\"description\":\"Build High-quality Websites\",\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/jassweb.com\/solved\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":\"Organization\",\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\",\"name\":\"Jass Web\",\"url\":\"https:\/\/jassweb.com\/solved\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/\",\"url\":\"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png\",\"contentUrl\":\"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png\",\"width\":693,\"height\":132,\"caption\":\"Jass Web\"},\"image\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\",\"name\":\"Kirat\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586\",\"contentUrl\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586\",\"caption\":\"Kirat\"},\"sameAs\":[\"http:\/\/jassweb.com\"],\"url\":\"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"[Solved] EXCEL VBA Code to generate serial numbers from a range [closed] - JassWeb","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/","og_locale":"en_US","og_type":"article","og_title":"[Solved] EXCEL VBA Code to generate serial numbers from a range [closed] - JassWeb","og_description":"[ad_1] Try this out and let me know if it works for you.. This will provide you with the results shown in your picture. Sub SerialCode() Dim ws As Worksheet Dim startOf As Long, endOf As Long, data 'startOf and endOf are Long for &gt;5 digits. Dim lastRow As Long, currentRow As Long Dim dataRange ... Read more","og_url":"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/","og_site_name":"JassWeb","article_published_time":"2022-12-18T02:00:12+00:00","author":"Kirat","twitter_card":"summary_large_image","twitter_misc":{"Written by":"Kirat","Est. reading time":"1 minute"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/#article","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/"},"author":{"name":"Kirat","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31"},"headline":"[Solved] EXCEL VBA Code to generate serial numbers from a range [closed]","datePublished":"2022-12-18T02:00:12+00:00","mainEntityOfPage":{"@id":"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/"},"wordCount":49,"publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"keywords":["excel","vba"],"articleSection":["Solved"],"inLanguage":"en-US"},{"@type":"WebPage","@id":"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/","url":"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/","name":"[Solved] EXCEL VBA Code to generate serial numbers from a range [closed] - JassWeb","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/#website"},"datePublished":"2022-12-18T02:00:12+00:00","breadcrumb":{"@id":"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/jassweb.com\/solved\/solved-excel-vba-code-to-generate-serial-numbers-from-a-range-closed\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/jassweb.com\/solved\/"},{"@type":"ListItem","position":2,"name":"[Solved] EXCEL VBA Code to generate serial numbers from a range [closed]"}]},{"@type":"WebSite","@id":"https:\/\/jassweb.com\/solved\/#website","url":"https:\/\/jassweb.com\/solved\/","name":"JassWeb","description":"Build High-quality Websites","publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/jassweb.com\/solved\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Organization","@id":"https:\/\/jassweb.com\/solved\/#organization","name":"Jass Web","url":"https:\/\/jassweb.com\/solved\/","logo":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/","url":"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png","contentUrl":"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png","width":693,"height":132,"caption":"Jass Web"},"image":{"@id":"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31","name":"Kirat","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/image\/","url":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586","contentUrl":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586","caption":"Kirat"},"sameAs":["http:\/\/jassweb.com"],"url":"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/"}]}},"_links":{"self":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/26517","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/comments?post=26517"}],"version-history":[{"count":0,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/26517\/revisions"}],"wp:attachment":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/media?parent=26517"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/categories?post=26517"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/tags?post=26517"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}