Sorgu için arama sonuçları: dictionary

Emeğiniz için teşekkür ederim ?. Denedim lakin yine 2000satırı kesiyor ve ayırıyor.Ancak: benim yapmak istediğim şey @Korhan Ayhan hocanın kodunu kullanarak diğer stünlardaki verileri getirebilmek nasıl yapabilirim? Entegre etmeye çalıştım olmadı...

Merhabalar; Kod olarak değil ama formül ile çözebileceğimiz bir yöntem yok mu acaba

...My_List() As Variant Application.ScreenUpdating = False Set S1 = Sheets("Sayfa1") Set My_Array = VBA.CreateObject("Scripting.Dictionary") My_Data = S1.Range("A1:E" & S1.Cells(S1.Rows.Count, 1).End(xlUp).Row).Value For X = 2 To UBound(My_Data, 1)...

...As Integer Application.ScreenUpdating = False Set S1 = Sheets("Sayfa1") Set My_Array = VBA.CreateObject("Scripting.Dictionary") My_Data = S1.Range("A1:E1").CurrentRegion.Value For X = 2 To UBound(My_Data) My_Array.Item(My_Data(X, 1)) =...

hocam b hocam bu kodda ilk sayfadaki sicil 1756.satırda bitiyor diğer sayfaya 1757.satırdaki sicilden devam etmesi gerekirken atlayıp 2069.satırdan devam ediyor. Yani arada bir sicil noyu atlıyor. her sayfada bu şekilde 2000.satıra a denk gelen sicili atlayıp işleme devam ediyor.

Siciller kayboluyor ve diğer sayfalara taşımıyor? 1.Bölüm sayfası ve diğerleri boş, Yanlış mı yapıştırdım acaba? Örneğini yükledim..

...As Integer Application.ScreenUpdating = False Set S1 = Sheets("Sayfa1") Set My_Array = VBA.CreateObject("Scripting.Dictionary") My_Data = S1.Range("A1").CurrentRegion.Value For X = 2 To UBound(My_Data) My_Array.Item(My_Data(X, 1)) =...

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