{"id":180,"date":"2022-05-13T22:56:20","date_gmt":"2022-05-13T19:56:20","guid":{"rendered":"http:\/\/www.cuneytbayrak.com\/?p=180"},"modified":"2025-02-20T22:56:36","modified_gmt":"2025-02-20T19:56:36","slug":"vba-textboxa-gore-listbox-icinde-arama-yapmak-searchable-listbox","status":"publish","type":"post","link":"http:\/\/www.cuneytbayrak.com\/?p=180","title":{"rendered":"VBA TextBox\u2019a G\u00f6re Listbox \u0130\u00e7inde Arama Yapmak (Searchable Listbox)"},"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 TextBox1_Change()\r\n \r\nDim strText As String\r\nDim i As Long\r\n \r\nMe.TextBox1.Text = UCase(Me.TextBox1.Text)\r\n \r\nstrText = Me.TextBox1.Text\r\n \r\nWith Me.ListBox1\r\nFor i = 0 To .ListCount - 1\r\nIf UCase(Left$(.List(i), Len(strText))) = strText Then Exit For\r\nNext\r\nIf i = .ListCount Then\r\n.ListIndex = -1\r\nElse\r\n.ListIndex = i\r\nEnd If\r\nEnd With\r\n \r\nEnd Sub<\/pre>\n<\/div>\n<p>Listbox\u2019\u0131n i\u00e7inde binlerce veri olabilir. Bu durumda scrollbar\u2019\u0131 a\u015fa\u011f\u0131 yukar\u0131 kayd\u0131rarak Listbox i\u00e7inde arama yapmak bir hayli zahmetli olacakt\u0131r. Yukar\u0131da ki kodlar\u0131 incelerseniz, bu zahmetten sizi kurtaracak bir y\u00f6ntem \u00f6\u011frenmi\u015f olacaks\u0131n\u0131z. Textbox nesnesi i\u00e7ine girdi\u011finiz de\u011ferlere g\u00f6re Listbox i\u00e7inde arama yapar.<\/p>\n<p>Kolay gele&#8230;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>&nbsp; Private Sub TextBox1_Change() Dim strText As String Dim i As Long Me.TextBox1.Text = UCase(Me.TextBox1.Text) strText = Me.TextBox1.Text With Me.ListBox1 For i = 0 To .ListCount &#8211; 1 If UCase(Left$(.List(i),&#8230;<\/p>\n<div class=\"more-link-wrapper\"><a class=\"more-link\" href=\"http:\/\/www.cuneytbayrak.com\/?p=180\">Devam\u0131n\u0131 Oku<span class=\"screen-reader-text\">VBA TextBox\u2019a G\u00f6re Listbox \u0130\u00e7inde Arama Yapmak (Searchable Listbox)<\/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":3,"footnotes":""},"categories":[5],"tags":[49],"class_list":["post-180","post","type-post","status-publish","format-standard","hentry","category-excel-vba","tag-searchablelistbox","excerpt"],"_links":{"self":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/180","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=180"}],"version-history":[{"count":1,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/180\/revisions"}],"predecessor-version":[{"id":181,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/180\/revisions\/181"}],"wp:attachment":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=180"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=180"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=180"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}