{"id":172,"date":"2022-05-20T22:45:38","date_gmt":"2022-05-20T19:45:38","guid":{"rendered":"http:\/\/www.cuneytbayrak.com\/?p=172"},"modified":"2025-02-20T22:45:56","modified_gmt":"2025-02-20T19:45:56","slug":"vba-multiselect-listboxda-belirli-bir-sarta-gore-secim-yaptirmamak","status":"publish","type":"post","link":"http:\/\/www.cuneytbayrak.com\/?p=172","title":{"rendered":"VBA MultiSelect ListBox\u2019da Belirli Bir \u015earta G\u00f6re Se\u00e7im Yapt\u0131rmamak"},"content":{"rendered":"<p>&nbsp;<\/p>\n<div class=\"wp-block-codemirror-blocks code-block \">\n<pre class=\"CodeMirror\" data-setting=\"{&quot;mode&quot;:&quot;vb&quot;,&quot;mime&quot;:&quot;text\/x-vb&quot;,&quot;theme&quot;:&quot;material&quot;,&quot;lineNumbers&quot;:true,&quot;lineWrapping&quot;:false,&quot;styleActiveLine&quot;:false,&quot;readOnly&quot;:true,&quot;align&quot;:&quot;&quot;}\">Private Sub Lstcap_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)\r\n \r\nDim a As Integer\r\n \r\nFor i = 0 To Me.Lstcap.ListCount - 1\r\nIf Me.Lstcap.Selected(i) Then\r\na = a + 1\r\nEnd If\r\nNext\r\nIf a &gt;= 41 Then\r\nMsgBox \"Maksimum se\u00e7im adedine ula\u015ft\u0131n\u0131z!\"\r\nMe.Lstcap.Selected(Me.Lstcap.ListIndex) = False\r\nEnd If\r\n \r\nEnd Sub<\/pre>\n<\/div>\n<p>Kodlar\u0131 incelerseniz ne oldu\u011funu anlars\u0131n\u0131z.<\/p>\n<p>Kolay gele&#8230;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>&nbsp; Private Sub Lstcap_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim a As Integer For i = 0 To Me.Lstcap.ListCount -&#8230;<\/p>\n<div class=\"more-link-wrapper\"><a class=\"more-link\" href=\"http:\/\/www.cuneytbayrak.com\/?p=172\">Devam\u0131n\u0131 Oku<span class=\"screen-reader-text\">VBA MultiSelect ListBox\u2019da Belirli Bir \u015earta G\u00f6re Se\u00e7im Yapt\u0131rmamak<\/span><\/a><\/div>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"iawp_total_views":0,"footnotes":""},"categories":[5],"tags":[45],"class_list":["post-172","post","type-post","status-publish","format-standard","hentry","category-excel-vba","tag-multiselectlistboxconditionnotselect","excerpt"],"_links":{"self":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/172","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=172"}],"version-history":[{"count":1,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/172\/revisions"}],"predecessor-version":[{"id":173,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/172\/revisions\/173"}],"wp:attachment":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=172"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=172"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=172"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}