Sorgu için arama sonuçları: dictionary

...xlNone End With My_Data = Range("A1:A" & Cells(Rows.Count, 1).End(3).Row).Value Set X_Rng = CreateObject("Scripting.Dictionary") Set Y_Rng = CreateObject("Scripting.Dictionary") For X = LBound(My_Data) To UBound(My_Data) If My_Data(X, 1) > 0 And X Mod 2...

...yeniden düzenledim. Bu şekilde, hem C hem de E sütunlarındaki filtreleme işlemi doğru şekilde yapabilir umuyorum. Bu kod yine scripting.dictionary temelli , size zahmet kopya uzerinde deneyiniz ve verimi gozlemleyiniz. Yine sorun verirse de kopyayı siliniz ve calısan dosyada devam ediniz...

Sorununuz cozuldu ancak buyuk veri kumeleri ile çalıştıgınızı varssayımladığımda merak ettiğim için aynı sorunun scripting.dictionary yontemi ile cozulup cozulmeyeceği konusunu araştırmak için bir kopya dosyanızda musait oldugunuzda denemenizi istesem ve sonucu da paylaşırsanız memnun olurum...

Veysel hocam üyeliğiniz gibi çok özelsiniz.Saat gibi çalışıyor..bu çözümü gördükten sonra mesleği bırakıyorum, bir ipte 2 canbaz oynamaz :) sağlıcakla kalın ...sağolun varolun harikasınız...

...Set sV = Sheets("veri") sSat = sV.Cells(Rows.Count, 2).End(3).Row ReDim liste(1 To sSat, 1 To 8) With CreateObject("Scripting.Dictionary") For i = 3 To sSat If sV.Cells(i, 2).Interior.Color = vbRed Then krt = sV.Cells(i, 3).Value...

Çok teşekkür ederim. Şöyle bir hata alıyorum. "Compile Error: compile error for each control variable must be variant or object"

...Dim S1 As Worksheet Set S1 = Sheets("KADEME_FATURA") Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") With ListBox2 .Clear .ColumnCount = 5 .ColumnWidths = "100;70;170;80;80" End With Dim i As Long Dim faturaNo As String...

Cevap için teşekkürler. Kodlar sanırım sadece ilk satır değerlerini getirmekte. Kodlarda toplama işlemi yoksa , benzersiz değerleri oluşturma konusunda doğru çalışıyor. Toplam aldırma işlemi varsa eksik / hatalı çalışıyor, yanlış anlamadıysam.

...Dim wsSonuc As Worksheet ' Sözlük oluştur (benzersiz kelimeleri saymak için) Set kelimeDic = CreateObject("Scripting.Dictionary") ' Çalışılan sayfa Set ws = ThisWorkbook.Sheets("Sayfa1") ' Sayfa adını ihtiyacınıza göre değiştirin ' Son satırı bul...

...As Long Dim ilSayiToplam As Long ' İllere ve sayılarına göre bir sözlük oluştur Set ilSayi = CreateObject("Scripting.Dictionary") ' Dosyaların bulunduğu yol (Klasör yolu) dosyaYolu = "C:\DosyaYolu\" ' Kendi klasör yolunuza göre düzenleyin ' Klasördeki...

...Cells(1, 13).Value = "Adres" Cells(1, 14).Value = "Notlar" currentRow = 2 ' VCF verilerini işle Set dict = CreateObject("Scripting.Dictionary") For i = LBound(lines) To UBound(lines) If InStr(lines(i), "BEGIN:VCARD") > 0 Then dict.RemoveAll ElseIf InStr(lines(i), "END:VCARD") > 0 Then '...

...= veri(ii, 2): veri(ii, 2) = veri(i, 2): veri(i, 2) = tmp End If Next ii Next i With CreateObject("Scripting.Dictionary") For i = 1 To UBound(veri) .Item(veri(i, 1)) = .Item(veri(i, 1)) & Format(veri(i, 2), "000") Next i kys =...

...saklayabilirsiniz. Bu, kodun bakımını ve yönetimini kolaylaştırabilir. Dim userPages As Object Set userPages = CreateObject("Scripting.Dictionary") ' Kullanıcıya göre sayfa eşleştirmelerini yapın userPages.Add "Kullanici1", "Sayfa2" userPages.Add "Kullanici2", "Sayfa3" ' Diğer kullanıcılar...

vba ile değil de hücreye formul girerek yapabilir miyiz acaba? işyeri pc sinde office 2016 yüklü vba da yok

...bul lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row ' Sözlük nesnesi oluştur Set kazalar = CreateObject("Scripting.Dictionary") ' Kazaları numaralandır For i = 2 To lastRow sicil = ws.Cells(i, 2).Value If Not kazalar.exists(sicil) Then...

Bir scripting.dictionary önerisi , bunu da başka bir kopyada deneyin sonucu bilmiyorum dosyanız yok Excel'de verileri daha verimli bir şekilde işlemek için bir Scripting.Dictionary nesnesi kullanabilirsiniz. Scripting.Dictionary, verileri anahtar-değer çiftleri olarak saklamanızı sağlar ve...

---------------------------------------------------------------------------------------------------------------------------------------------------------------- Detaylı ve ivedi cevap için teşekkür ederim. Malesef veriyi azaltıp (194 kb) 1140 satıra kadar düşürdüm. Yine tam istediğim olmadı...

...ws.Cells(i - 1, 1).Value Then ws.Rows(i).Delete End If Next i End Sub Not: Kodun çalışması için Excel VBA editorüne (Alt + F11) yapıştırıp, F5 ile çalıştırmanız gerekecek. Ya da script.dictionary bilen bir usta farklı oneri de getirebilir.Ancak dosyanız...

...aşağıdaki kodu da deneyebilirsiniz. Sub kod() Dim s As Object Dim ilk As Date, son As Date Dim a As Long Set s = CreateObject("Scripting.Dictionary") ilk = Range("B1").Value son = Range("B2").Value For a = 2 To Cells(Rows.Count, "C").End(3).Row If Cells(a, "C").Value >= ilk And Cells(a...

şimdi görme fırsatım oldu, tam istediğim şekilde çalışıyor, Ubound tam olarak ne işe yarıyor