{"id":44,"date":"2020-07-02T23:42:40","date_gmt":"2020-07-02T20:42:40","guid":{"rendered":"http:\/\/www.cuneytbayrak.com\/?p=44"},"modified":"2025-02-21T00:42:08","modified_gmt":"2025-02-20T21:42:08","slug":"dizilerde-ki-benzersiz-degerleri-elde-etme","status":"publish","type":"post","link":"http:\/\/www.cuneytbayrak.com\/?p=44","title":{"rendered":"VBA Dizilerde ki Benzersiz De\u011ferleri Elde Etme"},"content":{"rendered":"

Bir projemde dizinin i\u00e7inde ki de\u011ferlerden benzersiz olanlar\u0131 elde etmem gerekiyordu. A\u015fa\u011f\u0131da kodlar\u0131n\u0131 payla\u015faca\u011f\u0131m \u00e7\u00f6z\u00fcm i\u015fime bir hayli yaram\u0131\u015ft\u0131. \u0130\u00e7inde t\u00fcm de\u011ferlerin oldu\u011fu diziyi ba\u015fka bir dizi i\u00e7ine benzersiz de\u011ferler olacak \u015fekilde atabildim. Umar\u0131m sizin de i\u015finize yarar.<\/p>\n

\n
Sub GtipGetir()\r\n \r\nDim ws1 As Worksheet\r\nDim ws2 As Worksheet\r\nDim ws3 As Worksheet\r\nDim arr As New Collection, a\r\nDim aFirstArray() As String\r\nDim dolu As Integer\r\n \r\nSet ws1 = Sheets(\"KN\u00c7\")\r\nSet ws2 = Sheets(\"LG\")\r\nSet ws3 = Sheets(\"PR\")\r\n \r\nws1.Range(\"d31:j37\") = \"\"\r\n \r\nFor i = 1 To 40\r\nIf ws3.Range(\"R\" & i + 13) <> \"\" Then\r\ndolu = dolu + 1\r\nEnd If\r\nNext\r\n \r\nIf dolu = 0 Then\r\nExit Sub\r\nEnd If\r\n \r\nReDim aFirstArray(dolu - 1)\r\n \r\nFor j = 1 To 2\r\n \r\nFor i = 1 To dolu\r\n \r\naFirstArray(i - 1) = WorksheetFunction.VLookup(Left(ws3.Range(\"R\" & i + 13), 4), ws2.Range(\"B:E\"), j + 2, False)\r\n \r\nNext\r\n \r\nOn Error Resume Next\r\nSet arr = Nothing\r\nFor Each a In aFirstArray\r\narr.Add a, a\r\nNext\r\n \r\nFor i = 1 To arr.Count\r\nIf j = 2 Then\r\nj = 6\r\nEnd If\r\nws1.Cells(i + 30, j + 4) = arr(i)\r\nNext\r\n \r\nNext\r\n \r\nFor i = 1 To arr.Count\r\nws1.Range(\"d\" & i + 30) = WorksheetFunction.VLookup(arr(i), ws2.Range(\"E:F\"), 2, False)\r\nNext\r\n \r\nEnd Sub<\/pre>\n<\/div>\n
Bu kodlarda ki kilit nokta;<\/p>\n
\n
For Each a In aFirstArray\r\narr.Add a, a\r\nNext<\/pre>\n<\/div>\n
tamamen buras\u0131. Konumuzun kahraman\u0131 asl\u0131nda buras\u0131. Di\u011fer kodlar \u00e7okta \u00f6nemli de\u011fil \u015fu an i\u00e7in. B\u00fct\u00fcnl\u00fc\u011f\u00fc bozmas\u0131n diye kodlar\u0131n hepsini payla\u015ft\u0131m.<\/p>\n
Kolay gele…<\/p>\n","protected":false},"excerpt":{"rendered":"
Bir projemde dizinin i\u00e7inde ki de\u011ferlerden benzersiz olanlar\u0131 elde etmem gerekiyordu. A\u015fa\u011f\u0131da kodlar\u0131n\u0131 payla\u015faca\u011f\u0131m \u00e7\u00f6z\u00fcm i\u015fime bir hayli yaram\u0131\u015ft\u0131. \u0130\u00e7inde t\u00fcm de\u011ferlerin oldu\u011fu diziyi ba\u015fka bir dizi i\u00e7ine benzersiz de\u011ferler…<\/p>\n
Devam\u0131n\u0131 OkuVBA Dizilerde ki Benzersiz De\u011ferleri Elde Etme<\/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":[14],"class_list":["post-44","post","type-post","status-publish","format-standard","hentry","category-excel-vba","tag-arrayuniq","excerpt"],"_links":{"self":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/44","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=44"}],"version-history":[{"count":2,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/44\/revisions"}],"predecessor-version":[{"id":63,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/44\/revisions\/63"}],"wp:attachment":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=44"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=44"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=44"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}