Sorgu için arama sonuçları: dictionary

Select Case ile yaptığım örnek ektedir. Kodlar Combobox12 nin içinde

Sayın veyselemre bey gönderdiğiniz kodda söyle bir sorun oluyor. Sadece BO ve BM sütunları için seçenek yapılmış. Hangi sütunlarda işlem yapacağı Combobox12 den seçilen değere göre oluyor. Mesela, Combobox12 den, "TEMEL EĞİTİM GENEL MÜDÜRLÜĞÜ" seçilince BJ-BL sütunlarında, "ORTAÖĞRETİM GENEL...

veyselemre bey çok teşekkür ederim. Elinize sağlık.

...v2 = .Range(.Cells(2, sut2), .Cells(Rows.Count, sut2).End(3)).Value End With With CreateObject("Scripting.Dictionary") For Each elem In IIf(IsArray(v1), v1, Array(v1)) If elem <> "" Then .Item(elem) = Null Next elem For Each elem In IIf(IsArray(v2)...

...Sheets("Sayfa1") veri = .Range("G2:J" & .Cells(Rows.Count, "A").End(3).Row).Value End With With CreateObject("Scripting.Dictionary") For i = 1 To UBound(veri) For ii = 1 To 4 Step 3 v = veri(i, ii) If v <> "" And IsNumeric(v)...

@veyselemre hocam. Elinize sağlık. Ayrıca, öğrenmemize katkıda bulunduğunuz için çok teşekkür ederim. Saygılar

..."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...

@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...