Sorgu için arama sonuçları: dictionary

@veyselemre öncelikle elinize sağlık hem kodlar kısa hem de süre kısa. Yalnız, sizin kodlarınızda 1 defa tekrar edenler de listeleniyor. sadece 1 den fazla tekrar edenleri listelemek için kodlarınızda nasıl bir değişiklik yapılabilir?

..."N").End(3).Row).Value ReDim liste(1 To UBound(veri), 1 To UBound(veri, 2) * 2) End With With CreateObject("Scripting.Dictionary") For i = 1 To UBound(veri, 2) .RemoveAll For ii = 1 To UBound(veri) If veri(ii, i) <> "" Then...

...= Range("A2:B" & Range("A2").End(xlDown).Row).Value ReDim Liste(1 To UBound(Veri), 1 To 1) Set Dic = CreateObject("Scripting.Dictionary") For i = 1 To UBound(Veri) If Not Dic.Exists(Veri(i, 2)) Then Dic.Add Veri(i, 2), Veri(i, 1) ElseIf Veri(i, 1) >...

...Veri = Range("A2:B" & Range("A2").End(xlDown).Row).Value ReDim Liste(1 To UBound(Veri), 1 To 1) Set Dic = CreateObject("Scripting.Dictionary") For i = 1 To UBound(Veri) If Not Dic.Exists(Veri(i, 2)) Then Dic.Add Veri(i, 2), i & "-x" ElseIf Veri(i, 1) <...

...donanım gerekiyor. Benim sistem fazla kaldırmıyor. Benim için bilgisayarın %90 ı Excel demek. Excel'in de %90 ı VBA. Vba nın da % 50 si dictionary. İşin özeti halen dictionary bile kullanan sayısı çok az. Yani biz burada körler sağırlar birbirini ağırlar yapıyoruz. Dön dolaş aynı şeyler...

...Dim a As Long, sn As Long, x As Long Dim s As Object Dim ayr As String Set s1 = Worksheets("Sayfa3") Set s = CreateObject("Scripting.Dictionary") ayr = ", " sn = s1.Cells(Rows.Count, "A").End(3).Row ReDim dz(1 To sn, 1 To 3) For a = 1 To sn If s.exists(s1.Cells(a, "A").Value) Then...

Dostum, al benden de o kadar ..... Bazen birşeyler soruyorum, aldığım cevapların %80'i işe yaramıyor. Belki de adamın veri tabanında olmayan şeyler sormuşumdur ? .

@Haluk Bey; bir ara bana da önermişlerdi... Kan uyuşmazlığı nedeniyle yapay zeka ile bi' ben anlaşamadım galiba. 8-10 satırlık Dictionary kodunu kendim yazarım diyerek muhalefet çıkardım. :) .

...Dim S1 As Worksheet Dim dict As Object, deger As Long Set S1 = Sheets("ada") Set dict = CreateObject("Scripting.Dictionary") For i = 1 To S1.Range("b65536").End(3).Row dict(S1.Cells(i, "D").Value) = dict(S1.Cells(i, "D").Value) + 1 Next For i = 1 To...

...Dim son& Range("H2:H" & Rows.Count).ClearContents son = Range("B" & Rows.Count).End(xlUp).Row With CreateObject("Scripting.Dictionary") For i = 2 To son If Cells(i, "B").Value = Cells(i + 1, "B").Value Then .RemoveAll For ii = i...

...son = s2.Range("A" & Rows.Count).End(xlUp).Row If son > 2 Then a = s2.Range("A1:B" & son).Value Set dc = CreateObject("scripting.dictionary") Set dv = CreateObject("scripting.dictionary") For i = 2 To UBound(a) If a(i, 1) <> "" Then dc(a(i, 1)) = dc(a(i...

...için teşekkürler, bildiğim kadarıyla dizi içine object nesnesi alınamıyordu, dizi içine sadece string ve nümerik ifadeler alınabilir diye biliyordum. nesneler sadece collection ve dictionary içinde tanımlanır diye biliyordum ama; bu konuda da aydınlatırsanız çok memnun olurum. iyi akşamlar.

...klasör\DB.accdb;" conn.Open ' Set up recordset Set rs = CreateObject("ADODB.Recordset") ' Create dictionary to store unique records and their most recent shift dates Set dict = CreateObject("Scripting.Dictionary") ' Execute SQL query to get unique records...

Çok teşekkür ederim. Oldu. Sağolun

...x As Long Dim s As Object Dim ayr As String Set s1 = Worksheets("Sayfa1") Set s2 = Worksheets("Sayfa2") Set s = CreateObject("Scripting.Dictionary") ayr = "; " sn = s1.Cells(Rows.Count, "B").End(3).Row ReDim dz(1 To sn, 1 To 10) For a = 2 To sn If s.exists(s1.Cells(a, "B").Value) Then...

...Dim Q As Integer Dim vArray As Variant Dim strNew As String Application.ScreenUpdating = False Set objDict = CreateObject("Scripting.Dictionary") Tmax = ActiveDocument.Tables(1).Rows.Count For I = 1 To Tmax strCell = ActiveDocument.Tables(1).Cell(I, 1).Range.Text strQ = Left(strCell...

...veri(i + 1, 2) End If Next i 'Sheets("Sayfa2").Range("J2").Resize(say2, 4).Value = veri With CreateObject("Scripting.Dictionary") For i = 1 To say gun = veri(i, 1) saat = veri(i, 2) hiz = veri(i, 3) If hiz > 0 Then...

...veri(i, 4) = veri(i + 1, 2) End If Next i 'Range("J2").Resize(say2, 4).Value = veri With CreateObject("Scripting.Dictionary") For i = 1 To say gun = veri(i, 1) saat = veri(i, 2) hiz = veri(i, 3) If hiz > 0 Then...

Sy. @dost ; Hocam Google E tablolarda nasıl kullanacağım bunu bu kod orada çalışmıyor. Q sütununa gelen km. şartına sadece Mazot olanlarının şartını getire bilir miyiz.

...As Double, totalKm As Double Dim k Application.ScreenUpdating = False Set s1 = Sheets("Sayfa2") Set oDict = VBA.CreateObject("Scripting.Dictionary") myData = s1.Range("A2:P" & s1.Cells(s1.Rows.Count, "C").End(3).Row).Value For i = LBound(myData, 1) To UBound(myData, 1) If Not...