{"id":10100,"date":"2022-09-22T07:20:29","date_gmt":"2022-09-22T01:50:29","guid":{"rendered":"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/"},"modified":"2022-09-22T07:20:29","modified_gmt":"2022-09-22T01:50:29","slug":"solved-need-help-in-vba","status":"publish","type":"post","link":"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/","title":{"rendered":"[Solved] Need help in VBA"},"content":{"rendered":"<p> [ad_1]<br \/>\n<\/p>\n<div id=\"answer-33139675\" class=\"answer js-answer accepted-answer js-accepted-answer\" data-answerid=\"33139675\" data-parentid=\"33075533\" 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><strong>Count of Shift Combinations within a List of 100 continuous Shifts<\/strong><\/p>\n<p><em>This answer is a solution to the <strong>revised<\/strong> requirements of the asker.<\/em><\/p>\n<p><em>I\u2019m posting this answer as the asker changed the original requirements, and therefore requiring a different solution than the first posted. I decide to leave both solutions for the benefit of other users that might face any of these situations.<\/em><\/p>\n<p><strong>Requirements<\/strong> : There are 11 Shifts named from <code>a<\/code> to <code>k<\/code> we have a list of 100 turns taken by each shift. The objective is to count how many <strong>shift combinations are in the list<\/strong> i.e. How many times the Shift changes from: <code>a<\/code> to <code>b<\/code> <em>and<\/em> <code>b<\/code> to <code>a<\/code>, <code>a<\/code> to <code>c<\/code> <em>and<\/em> <code>c<\/code> to <code>a<\/code>, \u2026 <code>j<\/code> to <code>k<\/code> <em>and<\/em> <code>k<\/code> to <code>j<\/code>. Shifts are continual i.e. <code>Row 2<\/code> is the continuation of <code>Row 1<\/code> and <code>Cell 1<\/code> is the continuation of <code>Cell 100<\/code>.<\/p>\n<p><strong>Assumptions<\/strong> : The list of shifts is located in the range <code>L11:U21<\/code> with the results posted range <code>AG10:AS22<\/code> <em>(change as required)<\/em><\/p>\n<p>The code below produces the required count of <em>Shift Combinations<\/em> and additionally a count of the <em>Shifts Turns<\/em> <em>(see Fig. 1)<\/em><\/p>\n<p>Users interested in having a deeper understanding of the resources used in the code are invited to visit these pages:<\/p>\n<p><a rel=\"nofollow noopener\" target=\"_blank\" href=\"http:\/\/www.excelfunctions.net\/VBA-Variables-And-Constants.html\">Variables &amp; Constants<\/a>, <a rel=\"nofollow noopener\" target=\"_blank\" href=\"http:\/\/www.excelfunctions.net\/Excel-Objects.html\">Excel Objects<\/a>, <a rel=\"nofollow noopener\" target=\"_blank\" href=\"https:\/\/msdn.microsoft.com\/EN-US\/library\/office\/gg264723.aspx\">With Statement<\/a>,<\/p>\n<p><a rel=\"nofollow noopener\" target=\"_blank\" href=\"https:\/\/msdn.microsoft.com\/EN-US\/library\/office\/gg251601.aspx\">For&#8230;Next Statement<\/a>, <a rel=\"nofollow noopener\" target=\"_blank\" href=\"https:\/\/msdn.microsoft.com\/EN-US\/library\/office\/gg264596.aspx\">For Each&#8230;Next Statement<\/a>, <a rel=\"nofollow noopener\" target=\"_blank\" href=\"https:\/\/msdn.microsoft.com\/EN-US\/library\/office\/gg251648.aspx\">GoSub&#8230;Return Statement<\/a>,<\/p>\n<p><a rel=\"nofollow noopener\" target=\"_blank\" href=\"https:\/\/msdn.microsoft.com\/EN-US\/library\/office\/gg278528.aspx\">Split Function<\/a>, <a rel=\"nofollow noopener\" target=\"_blank\" href=\"https:\/\/support.office.com\/en-gb\/article\/Create-or-delete-a-custom-number-format-78f2a361-936b-4c03-8772-09fab54be7f4\">Custom Number Format<\/a>, <a rel=\"nofollow noopener\" target=\"_blank\" href=\"https:\/\/msdn.microsoft.com\/en-us\/library\/office\/dn301006.aspx\">Range Properties (Excel)<\/a><\/p>\n<p>I have also included some comments in the code indicating the purpose of each segment within it. Nevertheless, do let me know of any questions about the code and the resources used in it. Happy reading!!!<\/p>\n<pre><code>Option Explicit\n\nSub Shifts_Combinations_Count()\nConst kShifts As String = \"a,b,c,d,e,f,g,h,i,j,k\"\nDim rSrc As Range, rTrg As Range\nDim sFmlR1C1 As String, sRef1 As String, sRef2 As String, sRef3 As String\nDim rTmp As Range, sShifts As String, iCol As Integer\nDim blFntBld As Boolean, blNbrFmt As Boolean\nDim b1 As Byte, b2 As Byte\nDim sLabel As String\n\n    Application.ScreenUpdating = False\n\n    Rem Set Ranges\n    With ThisWorkbook.Sheets(\"Sht(2)\")  'Change the name of the worksheet as required\n        Set rSrc = .Range(\"L11:U20\")    'Update the range as required\n        Set rTrg = .Range(\"AH11:AR21\")  'Update the range as required\n    End With\n\n    Rem Builts Shift Combinations\n    With rSrc\n\n        Rem Add First Combinations\n        sShifts = \"|\" &amp; .Cells(1).Value2 &amp; .Cells(.Cells.Count).Value2 &amp; \"|\"\n\n        Rem Add Combinations by Row\n        For iCol = 1 To .Columns.Count - 1\n            For Each rTmp In .Columns(iCol).Cells\n                With rTmp\n                    sShifts = sShifts &amp; .Value2 &amp; .Offset(0, 1).Value2 &amp; \"|\"\n        End With: Next: Next\n\n        Rem Add Combinations Cross Rows\n        For b1 = 1 To -1 + .Rows.Count\n            sShifts = sShifts &amp; .Cells(b1, .Columns.Count).Value2 &amp; _\n                .Cells(1 + b1, 1).Value2 &amp; \"|\"\n\n    Next: End With\n\n    Rem Calculate Combinations\n    With rTrg\n\n        Rem Set Titles Rows\n        Set rTmp = .Rows(1).Offset(-1, 0)\n        blFntBld = 1: GoSub Rng_Formatting\n        rTmp.Value = Split(kShifts, Chr(44))\n        rTmp.ColumnWidth = 5\n\n        Rem Set Titles Cols\n        Set rTmp = .Columns(1).Offset(0, -1)\n        blFntBld = 1: GoSub Rng_Formatting\n        rTmp.Value = Application.Transpose(Split(kShifts, Chr(44)))\n\n        Rem Counting Combinations\n        Set rTmp = .Cells\n        blNbrFmt = 1: GoSub Rng_Formatting\n        sRef1 = .Cells(1).Offset(-1, -1).Address(1, 1, xlR1C1)\n        sRef2 = .Cells(1).Offset(0, -1).Address(0, 1, xlR1C1, , .Cells(1))\n        sRef3 = .Cells(1).Offset(-1, 0).Address(1, 0, xlR1C1, , .Cells(1))\n        Set rTmp = .Cells(1).Offset(-1, -1)\n        sLabel = rTmp.Value2\n        Rem rTmp.Font.Color = RGB(255, 255, 255)\n        rTmp.Value = sShifts\n        sFmlR1C1 = \"=( LEN( \" &amp; sRef1 &amp; \" )\" &amp; _\n            \"- LEN( SUBSTITUTE( SUBSTITUTE( \" &amp; sRef1 &amp; _\n            \",\" &amp; sRef2 &amp; \" &amp; \" &amp; sRef3 &amp; \", \"\"\"\" )\" &amp; _\n            \",\" &amp; sRef3 &amp; \" &amp; \" &amp; sRef2 &amp; \", \"\"\"\" ) ) ) \/ 2\"\n        .FormulaR1C1 = sFmlR1C1\n\n        Rem Clear Redundant Cells\n        For b1 = 1 To 11\n            For b2 = 1 To 11\n                If b2 &gt;= b1 Then\n                    With .Cells(b1, b2)\n                        .ClearContents\n                        .Borders.LineStyle = xlNone\n                        .Interior.Color = RGB(216, 216, 216)\n        End With: End If: Next: Next\n\n        Rem Total Shifts\n        Set rTmp = .Columns(1 + .Columns.Count)\n        GoSub Rng_Formatting\n        sRef1 = rSrc.Address(1, 1, xlR1C1)\n        sRef2 = .Cells(1).Offset(0, -1).Address(0, 1, xlR1C1, , .Cells(1))\n        sFmlR1C1 = \"=COUNTIF( \" &amp; sRef1 &amp; \", \" &amp; sRef2 &amp; \" )\"\n        rTmp.FormulaR1C1 = sFmlR1C1\n\n        Rem Grand Total Shifts\n        sFmlR1C1 = \"=CONCATENATE( \"\"Shifts: \"\" , CHAR(10) , \" &amp; _\n            \"SUM( \" &amp; rTmp.Address(1, 0, xlR1C1, , rTmp.Cells(1)) &amp; \") )\"\n        Set rTmp = rTmp.Cells(1).Offset(-1, 0)\n        blFntBld = 1: GoSub Rng_Formatting\n        GoSub Grand_Totals\n        rTmp.ColumnWidth = 6\n\n        Rem Total Combinations\n        Set rTmp = .Rows(1 + .Columns.Count)\n        GoSub Rng_Formatting\n        sRef1 = .Columns(1).Address(1, 0, xlR1C1, , .Cells(1))\n        sFmlR1C1 = \"=SUM( \" &amp; sRef1 &amp; \" )\"\n        rTmp.FormulaR1C1 = sFmlR1C1\n\n        Rem Grand Total Combinations\n        sFmlR1C1 = \"=CONCATENATE( \"\"Combinations: \"\" , CHAR(10) , \" &amp; _\n            \"SUM( \" &amp; rTmp.Address(0, 1, xlR1C1, , rTmp.Cells(1)) &amp; \") )\"\n        Set rTmp = rTmp.Cells(1).Offset(0, -1)\n        blFntBld = 1: GoSub Rng_Formatting\n        GoSub Grand_Totals\n        rTmp.ColumnWidth = 13\n\n        Rem Replace Formulas with values\n        .Calculate\n        .Value = .Value2\n\n        Rem Reset Title\n        Set rTmp = .Cells(1).Offset(-1, -1)\n        rTmp.Value = sLabel\n        Rem blFntBld = 1: GoSub Rng_Formatting\n        Rem rTmp.Font.ColorIndex = xlAutomatic\n\n    End With\n\n    Application.ScreenUpdating = 1\n\nExit Sub\nRng_Formatting:\n    Rem Range Formating\n    With rTmp\n        .Interior.Color = RGB(255, 255, 255)\n        If blNbrFmt Then .NumberFormat = \" # ; -# ;\"\"\"\";@\"\n        If blFntBld Then .Font.Bold = True\n        .HorizontalAlignment = xlCenter\n        .VerticalAlignment = xlCenter\n        .Borders(xlDiagonalDown).LineStyle = xlNone\n        .Borders(xlDiagonalUp).LineStyle = xlNone\n        .Borders.LineStyle = xlContinuous\n        .Borders.Color = RGB(128, 128, 128)\n        .BorderAround Weight:=xlMedium, Color:=RGB(128, 128, 128)\n        .Borders(xlInsideHorizontal).Weight = xlThin\n        .Borders(xlInsideVertical).Weight = xlThin\n    End With\n    blNbrFmt = 0\n    blFntBld = 0\n    Return\n\nGrand_Totals:\n    Rem Grand Totals Formatting\n    With rTmp\n        .FormulaR1C1 = sFmlR1C1\n        .Columns.AutoFit\n        .WrapText = True\n        .Rows.AutoFit\n    End With\n    Return\n\nEnd Sub\n<\/code><\/pre>\n<p><a rel=\"nofollow noopener\" target=\"_blank\" href=\"https:\/\/jassweb.com\/solved\/wp-content\/uploads\/2022\/09\/Solved-Need-help-in-VBA.png\"><img decoding=\"async\" src=\"https:\/\/jassweb.com\/solved\/wp-content\/uploads\/2022\/09\/Solved-Need-help-in-VBA.png\" alt=\"enter image description here\"><\/a><\/p>\n<p>Hope you find this answer useful, even if there are some things you don&#8217;t quite understand as of now, and hopefully those new things will spark the interest, curiosity in you and motivates you to know more about programming.<\/p>\n<\/p><\/div>\n<div class=\"mt24\"><\/div>\n<\/div>\n<p>            <span class=\"d-none\" itemprop=\"commentCount\">5<\/span> <\/p><\/div>\n<\/div>\n<p>[ad_2]<\/p>\n<p>solved Need help in VBA <\/p>\n","protected":false},"excerpt":{"rendered":"<p>[ad_1] Count of Shift Combinations within a List of 100 continuous Shifts This answer is a solution to the revised requirements of the asker. I\u2019m posting this answer as the asker changed the original requirements, and therefore requiring a different solution than the first posted. I decide to leave both solutions for the benefit of &#8230; <a title=\"[Solved] Need help in VBA\" class=\"read-more\" href=\"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/\" aria-label=\"More on [Solved] Need help in VBA\">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-10100","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 v27.4 - https:\/\/yoast.com\/product\/yoast-seo-wordpress\/ -->\n<title>[Solved] Need help in VBA - 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-need-help-in-vba\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"[Solved] Need help in VBA - JassWeb\" \/>\n<meta property=\"og:description\" content=\"[ad_1] Count of Shift Combinations within a List of 100 continuous Shifts This answer is a solution to the revised requirements of the asker. I\u2019m posting this answer as the asker changed the original requirements, and therefore requiring a different solution than the first posted. I decide to leave both solutions for the benefit of ... Read more\" \/>\n<meta property=\"og:url\" content=\"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/\" \/>\n<meta property=\"og:site_name\" content=\"JassWeb\" \/>\n<meta property=\"article:published_time\" content=\"2022-09-22T01:50:29+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/jassweb.com\/solved\/wp-content\/uploads\/2022\/09\/Solved-Need-help-in-VBA.png\" \/>\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=\"5 minutes\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/solved-need-help-in-vba\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/solved-need-help-in-vba\\\/\"},\"author\":{\"name\":\"Kirat\",\"@id\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/#\\\/schema\\\/person\\\/65c9c7b7958150c0dc8371fa35dd7c31\"},\"headline\":\"[Solved] Need help in VBA\",\"datePublished\":\"2022-09-22T01:50:29+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/solved-need-help-in-vba\\\/\"},\"wordCount\":296,\"publisher\":{\"@id\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/solved-need-help-in-vba\\\/#primaryimage\"},\"thumbnailUrl\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/wp-content\\\/uploads\\\/2022\\\/09\\\/Solved-Need-help-in-VBA.png\",\"keywords\":[\"excel\",\"vba\"],\"articleSection\":[\"Solved\"],\"inLanguage\":\"en-US\"},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/solved-need-help-in-vba\\\/\",\"url\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/solved-need-help-in-vba\\\/\",\"name\":\"[Solved] Need help in VBA - JassWeb\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/solved-need-help-in-vba\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/solved-need-help-in-vba\\\/#primaryimage\"},\"thumbnailUrl\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/wp-content\\\/uploads\\\/2022\\\/09\\\/Solved-Need-help-in-VBA.png\",\"datePublished\":\"2022-09-22T01:50:29+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/solved-need-help-in-vba\\\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/jassweb.com\\\/solved\\\/solved-need-help-in-vba\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/solved-need-help-in-vba\\\/#primaryimage\",\"url\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/wp-content\\\/uploads\\\/2022\\\/09\\\/Solved-Need-help-in-VBA.png\",\"contentUrl\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/wp-content\\\/uploads\\\/2022\\\/09\\\/Solved-Need-help-in-VBA.png\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/solved-need-help-in-vba\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"[Solved] Need help in VBA\"}]},{\"@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\\\/wp-content\\\/litespeed\\\/avatar\\\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1777008400\",\"url\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/wp-content\\\/litespeed\\\/avatar\\\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1777008400\",\"contentUrl\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/wp-content\\\/litespeed\\\/avatar\\\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1777008400\",\"caption\":\"Kirat\"},\"sameAs\":[\"http:\\\/\\\/jassweb.com\"],\"url\":\"https:\\\/\\\/jassweb.com\\\/solved\\\/author\\\/jaspritsinghghumangmail-com\\\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"[Solved] Need help in VBA - 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-need-help-in-vba\/","og_locale":"en_US","og_type":"article","og_title":"[Solved] Need help in VBA - JassWeb","og_description":"[ad_1] Count of Shift Combinations within a List of 100 continuous Shifts This answer is a solution to the revised requirements of the asker. I\u2019m posting this answer as the asker changed the original requirements, and therefore requiring a different solution than the first posted. I decide to leave both solutions for the benefit of ... Read more","og_url":"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/","og_site_name":"JassWeb","article_published_time":"2022-09-22T01:50:29+00:00","og_image":[{"url":"https:\/\/jassweb.com\/solved\/wp-content\/uploads\/2022\/09\/Solved-Need-help-in-VBA.png","type":"","width":"","height":""}],"author":"Kirat","twitter_card":"summary_large_image","twitter_misc":{"Written by":"Kirat","Est. reading time":"5 minutes"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/#article","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/"},"author":{"name":"Kirat","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31"},"headline":"[Solved] Need help in VBA","datePublished":"2022-09-22T01:50:29+00:00","mainEntityOfPage":{"@id":"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/"},"wordCount":296,"publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"image":{"@id":"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/#primaryimage"},"thumbnailUrl":"https:\/\/jassweb.com\/solved\/wp-content\/uploads\/2022\/09\/Solved-Need-help-in-VBA.png","keywords":["excel","vba"],"articleSection":["Solved"],"inLanguage":"en-US"},{"@type":"WebPage","@id":"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/","url":"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/","name":"[Solved] Need help in VBA - JassWeb","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/#website"},"primaryImageOfPage":{"@id":"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/#primaryimage"},"image":{"@id":"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/#primaryimage"},"thumbnailUrl":"https:\/\/jassweb.com\/solved\/wp-content\/uploads\/2022\/09\/Solved-Need-help-in-VBA.png","datePublished":"2022-09-22T01:50:29+00:00","breadcrumb":{"@id":"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/"]}]},{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/#primaryimage","url":"https:\/\/jassweb.com\/solved\/wp-content\/uploads\/2022\/09\/Solved-Need-help-in-VBA.png","contentUrl":"https:\/\/jassweb.com\/solved\/wp-content\/uploads\/2022\/09\/Solved-Need-help-in-VBA.png"},{"@type":"BreadcrumbList","@id":"https:\/\/jassweb.com\/solved\/solved-need-help-in-vba\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/jassweb.com\/solved\/"},{"@type":"ListItem","position":2,"name":"[Solved] Need help in VBA"}]},{"@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\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1777008400","url":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1777008400","contentUrl":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1777008400","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\/10100","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=10100"}],"version-history":[{"count":0,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/10100\/revisions"}],"wp:attachment":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/media?parent=10100"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/categories?post=10100"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/tags?post=10100"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}