Sorgu için arama sonuçları: dictionary

...Dim dc As Object Set ws1 = Sheets("VERİ GİRİŞİ") Set ws2 = Sheets("TAKVİM") Set dc = CreateObject("scripting.dictionary") h = ws2.[H3] y = ws2.[B2] xx = DateSerial(y, 1, 1) yy = xx - Weekday(xx, 3) + (h - 1) * 7 For j = 1 To 5 ws2.Cells(5, j + 1) =...

...End If Next liste = sV.Range("BI3:BN" & sV.Cells(Rows.Count, 1).End(3).Row).Value Dim w(1 To 3) With CreateObject("Scripting.Dictionary") For i = LBound(liste) To UBound(liste) For ii = 1 To 3 al = Val(liste(i, ii)) If .Exists(al) Then Z = .Item(al) Z(1) = Z(1) + liste(i, 4) .Item(al) = Z...

...As Object, Tarih As Variant, X As Long Application.ScreenUpdating = False Set Tarih_Listesi = VBA.CreateObject("Scripting.Dictionary") Set S1 = Sheets("MUTABIK") On Error Resume Next If S1.AutoFilterMode Then S1.ShowAllData On Error GoTo 0 For X = 2...

...Next liste = sV.Range("BI3:BN" & sV.Cells(Rows.Count, 1).End(3).Row).Value Dim w(1 To 3) With CreateObject("Scripting.Dictionary") For i = LBound(liste) To UBound(liste) For ii = 1 To 3 al = Val(liste(i, ii)) If .Exists(al)...

...= ws.Cells(ws.Rows.Count, "B").End(xlUp).Row Dim cell As Range Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") For Each cell In ws.Range("B2:B" & lastRow) If Not dict.exists(cell.Value) Then dict.Add cell.Value, 1 Else...

...Explicit Sub Benzersiz_Say() Dim X As Integer, Y As Long, Sh As Worksheet, My_Data As Variant With CreateObject("Scripting.Dictionary") For X = 3 To Sheets.Count Set Sh = Sheets(X) My_Data = Sh.Range("T21:AG" & Sh.Cells(Sh.Rows.Count...

...Explicit Sub Benzersiz_Say() Dim X As Integer, Y As Long, Sh As Worksheet, My_Data As Variant With CreateObject("Scripting.Dictionary") For X = 3 To Sheets.Count Set Sh = Sheets(X) My_Data = Sh.Range("T21:T" & Sh.Cells(Sh.Rows.Count...

...rs Sayfa2.Cells.ClearContents Dim dzBaslik As Variant ReDim dzBaslik(1 To rs.Fields.Count) Set dict = CreateObject("Scripting.Dictionary") x = 1 For Each baslik In rs.Fields Sayfa2.Cells(1, x) = baslik.Name dzBaslik(x) = baslik.Name x = x + 1 Next...

Çok teşekkür ederim Halil Hocam iyiki varsınız! şimdi benim bu alagoritmayı iyice bir içselleştirdikten sonra biraz geliştirmek istiyorum. Örnek: şimdiye kadar 2. alanı (x1, x2) kontrol ediyorduk, şimdi bana düşen aynı şekilde 3. alanı da (x3) buraya entegre etmek olacak Selamlar, Saygılar.

...'Dim DzK() As Variant 'DzK = Sayfa3.Range("A1:C4") Set dict = CreateObject("Scripting.Dictionary") dict.Add 1, Array(5, 3) dict.Add 0, Array(2, 4) dict.Add 2, Array(3, 3) '___________________________________________________________ Con.Open "provider=microsoft.ace.oledb.12.0;data...

Müsait olunca ilk fırsaata deneyeceğim Hocam Çok teşekkür ederim, emeğinize sağlık!

...Sayfa2.Cells.ClearContents '___________________________________________________________ Set dict = CreateObject("Scripting.Dictionary") dict.Add 1, Array(5, 3) dict.Add 0, Array(2, 4) dict.Add 2, Array(3, 3) '___________________________________________________________ Con.Open...

...String Dim checkRange As Range Dim definedRanges As Variant Dim r As Variant Set valueCount = CreateObject("Scripting.Dictionary") definedRanges = Array("C3:C50", "C50:C70", "C80:C100") For Each r In definedRanges Set checkRange = Me.Range(r)...

Çok teşekkür ederim tam istediğim gibi oldu ilaveten birşey daha sormak istiyorum. C1:C500 arasında sayılar var fakat bunların başlıkları da var. Yani başlıklar 9 uzunluğunda sayı içermediğinden hata alıyorum. Makro içerisinde şöyle bir aralık belirlemem mümkün mü? Örneğin C3:C50 - C50:C70 -...

...As Object Dim cellValues As Variant Dim i As Long Dim value As String Set valueCount = CreateObject("Scripting.Dictionary") If Not Intersect(Target, Me.Range("A1:A99")) Is Nothing Then For Each cell In Intersect(Target, Me.Range("A1:A99")) If...

...= ThisWorkbook.Sheets("Map").Range("C4").Value Dim filtreSutunlar As Object Set filtreSutunlar = CreateObject("Scripting.Dictionary") filtreSutunlar.Add "Sayfa 1", "Z" ' Sayfa1 için Z sütunu filtreSutunlar.Add "Sayfa 2", "AF" ' Sayfa2 için AF sütunu filtreSutunlar.Add...

...= False Application.Calculation = xlCalculationManual numCount = 8000 Set ws = ActiveSheet ' Dictionary oluştur Set usedNumbers = CreateObject("Scripting.Dictionary") ' Tek seferde yazılacak dizi için boyut belirleme ReDim dataArray(1 To numCount, 1...

...ayr As String ayr = "; " Set s1 = Sheets("Sayfa1") Set s2 = Sheets("Sayfa2") Set s3 = Sheets("Sayfa3") Set s = CreateObject("Scripting.Dictionary") For a = 2 To s1.Cells(s1.Rows.Count, 2).End(3).Row If Not s.exists(s1.Cells(a, "A").Value) Then s.Add s1.Cells(a, "A").Value...

...If outputCell Is Nothing Then Exit Sub On Error GoTo 0 ' Sözlük nesnesini oluştur Set s = CreateObject("Scripting.Dictionary") ' Veri aralığını döngüyle işleme For Each hcr In dataRange cellValue = hcr.Value ' Hücredeki değeri al hArray =...