{"id":6139,"date":"2022-09-01T16:22:15","date_gmt":"2022-09-01T10:52:15","guid":{"rendered":"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/"},"modified":"2022-09-01T16:22:15","modified_gmt":"2022-09-01T10:52:15","slug":"solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b","status":"publish","type":"post","link":"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/","title":{"rendered":"[Solved] VBA code to auto serial number in column A after my userform entered data in column B"},"content":{"rendered":"

[ad_1]
\n<\/p>\n

\n
\n
<\/div>\n
\n
\n

The code behind this is very simple and designed for you to start on a blank sheet with Row 1<\/code> being your header row. It’s dynamic so essentially plug and play. Just call on the sub with whatever code you have for entering in the other data.<\/p>\n

Sub SerialCode()\n    Dim ws As Worksheet\n    Dim lastSerial, digits, i As Integer\n    Dim nextRow, lastRow As Long\n    Dim newSerial As String\n\n    Set ws = ThisWorkbook.Sheets(1)\n    nextRow = ws.Cells(ws.Rows.Count, \"A\").End(xlUp).Row + 1 'Finds the last row in A\n    lastRow = nextRow - 1\n    newSerial = \"\" 'set value of our string blank\n\n    If (nextRow - 1) < 2 Then 'If statement to catch if there's only a header\n        lastSerial = 0\n    Else: lastSerial = CInt(Replace(ws.Range(\"A\" & lastRow).Value, \"RD \", \"\"))\n    End If\n\n    lastSerial = lastSerial + 1\n    digits = 6 - Len(lastSerial) 'how many 0's are there\n\n    For i = 1 To digits\n        newSerial = newSerial & \"0\" 'start building the string with 0's\n    Next i\n\n    newSerial = \"RD \" & newSerial & lastSerial 'concatenate the serial code\n    ws.Range(\"A\" & nextRow).Value = newSerial\nEnd Sub\n<\/code><\/pre>\n
NOTE:<\/strong> whatever you have for finding your last row to input the other data, make sure your last row and this sub’s last row are the same.<\/p>\n<\/p><\/div>\n
<\/div>\n<\/div>\n
            7<\/span> <\/p><\/div>\n<\/div>\n
[ad_2]<\/p>\n
solved VBA code to auto serial number in column A after my userform entered data in column B <\/p>\n","protected":false},"excerpt":{"rendered":"
[ad_1] The code behind this is very simple and designed for you to start on a blank sheet with Row 1 being your header row. It’s dynamic so essentially plug and play. Just call on the sub with whatever code you have for entering in the other data. Sub SerialCode() Dim ws As Worksheet Dim … 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,1651,401],"class_list":["post-6139","post","type-post","status-publish","format-standard","hentry","category-solved","tag-excel","tag-userform","tag-vba"],"yoast_head":"\n[Solved] VBA code to auto serial number in column A after my userform entered data in column B - 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-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"[Solved] VBA code to auto serial number in column A after my userform entered data in column B - JassWeb\" \/>\n<meta property=\"og:description\" content=\"[ad_1] The code behind this is very simple and designed for you to start on a blank sheet with Row 1 being your header row. It’s dynamic so essentially plug and play. Just call on the sub with whatever code you have for entering in the other data. Sub SerialCode() Dim ws As Worksheet Dim ... Read more\" \/>\n<meta property=\"og:url\" content=\"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/\" \/>\n<meta property=\"og:site_name\" content=\"JassWeb\" \/>\n<meta property=\"article:published_time\" content=\"2022-09-01T10:52:15+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-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/#article\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/\"},\"author\":{\"name\":\"Kirat\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\"},\"headline\":\"[Solved] VBA code to auto serial number in column A after my userform entered data in column B\",\"datePublished\":\"2022-09-01T10:52:15+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/\"},\"wordCount\":112,\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"keywords\":[\"excel\",\"userform\",\"vba\"],\"articleSection\":[\"Solved\"],\"inLanguage\":\"en-US\"},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/\",\"url\":\"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/\",\"name\":\"[Solved] VBA code to auto serial number in column A after my userform entered data in column B - JassWeb\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#website\"},\"datePublished\":\"2022-09-01T10:52:15+00:00\",\"breadcrumb\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/jassweb.com\/solved\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"[Solved] VBA code to auto serial number in column A after my userform entered data in column B\"}]},{\"@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=1775798750\",\"contentUrl\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1775798750\",\"caption\":\"Kirat\"},\"sameAs\":[\"http:\/\/jassweb.com\"],\"url\":\"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"[Solved] VBA code to auto serial number in column A after my userform entered data in column B - 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-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/","og_locale":"en_US","og_type":"article","og_title":"[Solved] VBA code to auto serial number in column A after my userform entered data in column B - JassWeb","og_description":"[ad_1] The code behind this is very simple and designed for you to start on a blank sheet with Row 1 being your header row. It’s dynamic so essentially plug and play. Just call on the sub with whatever code you have for entering in the other data. Sub SerialCode() Dim ws As Worksheet Dim ... Read more","og_url":"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/","og_site_name":"JassWeb","article_published_time":"2022-09-01T10:52:15+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-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/#article","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/"},"author":{"name":"Kirat","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31"},"headline":"[Solved] VBA code to auto serial number in column A after my userform entered data in column B","datePublished":"2022-09-01T10:52:15+00:00","mainEntityOfPage":{"@id":"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/"},"wordCount":112,"publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"keywords":["excel","userform","vba"],"articleSection":["Solved"],"inLanguage":"en-US"},{"@type":"WebPage","@id":"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/","url":"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/","name":"[Solved] VBA code to auto serial number in column A after my userform entered data in column B - JassWeb","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/#website"},"datePublished":"2022-09-01T10:52:15+00:00","breadcrumb":{"@id":"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/jassweb.com\/solved\/solved-vba-code-to-auto-serial-number-in-column-a-after-my-userform-entered-data-in-column-b\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/jassweb.com\/solved\/"},{"@type":"ListItem","position":2,"name":"[Solved] VBA code to auto serial number in column A after my userform entered data in column B"}]},{"@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=1775798750","contentUrl":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1775798750","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\/6139","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=6139"}],"version-history":[{"count":0,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/6139\/revisions"}],"wp:attachment":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/media?parent=6139"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/categories?post=6139"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/tags?post=6139"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}