{"id":11500,"date":"2022-09-27T15:51:15","date_gmt":"2022-09-27T10:21:15","guid":{"rendered":"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/"},"modified":"2022-09-27T15:51:15","modified_gmt":"2022-09-27T10:21:15","slug":"solved-delete-rows-base-on-the-input-box-date-closed","status":"publish","type":"post","link":"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/","title":{"rendered":"[Solved] Delete rows base on the input box date [closed]"},"content":{"rendered":"<p> [ad_1]<br \/>\n<\/p>\n<div id=\"answer-51878659\" class=\"answer js-answer accepted-answer js-accepted-answer\" data-answerid=\"51878659\" data-parentid=\"51878155\" data-score=\"1\" 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>You can try this, just set <code>ws<\/code> to whatever worksheet you have your dates in<\/p>\n<pre><code>Sub datechecker()\n\n    Dim inputBoxText As String\n    Dim inputBoxDate As Date\n    Dim lastRow As Integer\n    Dim row As Integer\n    Dim ws As Worksheet\n\n    Set ws = ThisWorkbook.Worksheets(1)\n\n    With ws    \n\n    lastRow = .Cells(.Rows.Count, \"K\").End(xlUp).row\n    inputBoxText = InputBox(\"Please enter a Date:\", \"Date Input Box\", \"Type Here\", 10, 10)\n\n    If IsDate(inputBoxText) Then\n        inputBoxDate = CDate(inputBoxText)\n    Else\n        MsgBox \"Please enter a correct date\"\n        Exit Sub\n    End If\n\n    On Error GoTo Handler\n    For row = 1 To lastRow\n        If Len(.Range(\"K\" &amp; row).Value) &gt; 0 Then\n            If inputBoxDate &gt; CDate(.Range(\"K\" &amp; row).Value) Then\n                .Rows(row).EntireRow.Delete\n                row = row - 1\n            End If\n        End If\n    Next\n\n    End With\n\n    Exit Sub\n\nHandler:\n    MsgBox \"Please make sure cells are formatted to date\"\n\nEnd Sub\n<\/code><\/pre>\n<\/p><\/div>\n<div class=\"mt24\"><\/div>\n<\/div>\n<p>            <span class=\"d-none\" itemprop=\"commentCount\">2<\/span> <\/p><\/div>\n<\/div>\n<p>[ad_2]<\/p>\n<p>solved Delete rows base on the input box date [closed] <\/p>\n","protected":false},"excerpt":{"rendered":"<p>[ad_1] You can try this, just set ws to whatever worksheet you have your dates in Sub datechecker() Dim inputBoxText As String Dim inputBoxDate As Date Dim lastRow As Integer Dim row As Integer Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) With ws lastRow = .Cells(.Rows.Count, &#8220;K&#8221;).End(xlUp).row inputBoxText = InputBox(&#8220;Please enter a Date:&#8221;, &#8220;Date &#8230; <a title=\"[Solved] Delete rows base on the input box date [closed]\" class=\"read-more\" href=\"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/\" aria-label=\"More on [Solved] Delete rows base on the input box date [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-11500","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] Delete rows base on the input box date [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-delete-rows-base-on-the-input-box-date-closed\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"[Solved] Delete rows base on the input box date [closed] - JassWeb\" \/>\n<meta property=\"og:description\" content=\"[ad_1] You can try this, just set ws to whatever worksheet you have your dates in Sub datechecker() Dim inputBoxText As String Dim inputBoxDate As Date Dim lastRow As Integer Dim row As Integer Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) With ws lastRow = .Cells(.Rows.Count, &quot;K&quot;).End(xlUp).row inputBoxText = InputBox(&quot;Please enter a Date:&quot;, &quot;Date ... Read more\" \/>\n<meta property=\"og:url\" content=\"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/\" \/>\n<meta property=\"og:site_name\" content=\"JassWeb\" \/>\n<meta property=\"article:published_time\" content=\"2022-09-27T10:21: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-delete-rows-base-on-the-input-box-date-closed\/#article\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/\"},\"author\":{\"name\":\"Kirat\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\"},\"headline\":\"[Solved] Delete rows base on the input box date [closed]\",\"datePublished\":\"2022-09-27T10:21:15+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/\"},\"wordCount\":36,\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"keywords\":[\"excel\",\"vba\"],\"articleSection\":[\"Solved\"],\"inLanguage\":\"en-US\"},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/\",\"url\":\"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/\",\"name\":\"[Solved] Delete rows base on the input box date [closed] - JassWeb\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#website\"},\"datePublished\":\"2022-09-27T10:21:15+00:00\",\"breadcrumb\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/jassweb.com\/solved\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"[Solved] Delete rows base on the input box date [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=1775193939\",\"contentUrl\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1775193939\",\"caption\":\"Kirat\"},\"sameAs\":[\"http:\/\/jassweb.com\"],\"url\":\"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"[Solved] Delete rows base on the input box date [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-delete-rows-base-on-the-input-box-date-closed\/","og_locale":"en_US","og_type":"article","og_title":"[Solved] Delete rows base on the input box date [closed] - JassWeb","og_description":"[ad_1] You can try this, just set ws to whatever worksheet you have your dates in Sub datechecker() Dim inputBoxText As String Dim inputBoxDate As Date Dim lastRow As Integer Dim row As Integer Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) With ws lastRow = .Cells(.Rows.Count, \"K\").End(xlUp).row inputBoxText = InputBox(\"Please enter a Date:\", \"Date ... Read more","og_url":"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/","og_site_name":"JassWeb","article_published_time":"2022-09-27T10:21: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-delete-rows-base-on-the-input-box-date-closed\/#article","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/"},"author":{"name":"Kirat","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31"},"headline":"[Solved] Delete rows base on the input box date [closed]","datePublished":"2022-09-27T10:21:15+00:00","mainEntityOfPage":{"@id":"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/"},"wordCount":36,"publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"keywords":["excel","vba"],"articleSection":["Solved"],"inLanguage":"en-US"},{"@type":"WebPage","@id":"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/","url":"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/","name":"[Solved] Delete rows base on the input box date [closed] - JassWeb","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/#website"},"datePublished":"2022-09-27T10:21:15+00:00","breadcrumb":{"@id":"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/jassweb.com\/solved\/solved-delete-rows-base-on-the-input-box-date-closed\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/jassweb.com\/solved\/"},{"@type":"ListItem","position":2,"name":"[Solved] Delete rows base on the input box date [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=1775193939","contentUrl":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1775193939","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\/11500","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=11500"}],"version-history":[{"count":0,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/11500\/revisions"}],"wp:attachment":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/media?parent=11500"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/categories?post=11500"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/tags?post=11500"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}