Sorgu için arama sonuçları: dictionary

Sub test() Dim dic As Object, i&, ky$, kalan, borc Set dic = CreateObject("Scripting.Dictionary") With Sheets("Mizan") For i = 2 To .Cells(Rows.Count, 1).End(3).Row dic.Item(.Cells(i, 1).Value) = .Cells(i, 2).Value Next i End With With...

...kod() Dim s1 As Worksheet, s2 As Worksheet Dim s As Object Dim a As Long Dim son As Long Dim tc As String Set s = CreateObject("Scripting.Dictionary") Set s1 = Sheets("Banka") Set s2 = Sheets("Eşleştir") son = s1.Cells(Rows.Count, "H").End(3).Row ReDim dz(1 To son, 1 To 5) For a = 2 To son...

Hocam Mükemmel Çalışıyor. Bir şey daha sorcam bunları ayrı bir excel dosyası olarak açan hatta bu dosyaların nereye kaydededeceğini soran başka bir versiyonuda olabilirmi.yani sekme yerine tek başına excel dosyası olsunlar anlamında..olmadı ben o açılan sekmeleri tek tek farklı kaydet deyip...

...s = Sheets("Sayfa2").Range("A2:B" & Sheets("Sayfa2").Cells(Rows.Count, 2).End(3).Row).Value Set dic = CreateObject("Scripting.Dictionary") For i = 1 To UBound(s) If s(i, 1) <> "" Then dic.Item(s(i, 1)) = s(i, 2) Next i With Sheets("Sayfa1") For i = 2 To...

...ky, s1 As Worksheet, son& Set s1 = Sheets("TÜM ÇEKLER") son = s1.Cells(Rows.Count, 1).End(3).Row With CreateObject("Scripting.Dictionary") For Each ky In s1.Range("K2:K" & son).Value If ky <> "" And Not .Exists(ky) Then .Item(ky) = Null...

Dizin daha hızlı.

her şey için teşekkür ederim Hocam dictionary çözüm olmaz mı acaba?

...ws = ThisWorkbook.Sheets("Sayfa1") lastRow = ws.Cells(ws.Rows.count, "A").End(xlUp).Row Set dict = CreateObject("Scripting.Dictionary") For i = 1 To lastRow value1 = ws.Cells(i, 1).Value value2 = ws.Cells(i, 2).Value...

...Sub test3() Range("B:Z").ClearContents Dim huc As Range, say&, i&, numeric As Boolean, a, al With CreateObject("Scripting.Dictionary") For Each huc In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row) al = huc.Value If al <> "" Then...

...Integer 'On Error Resume Next SatırSay = 177 Range("A2:XFD" & Rows.Count).ClearContents Set Dict = CreateObject("Scripting.Dictionary") Set DictSayfa = CreateObject("Scripting.Dictionary") For Each Sh In Worksheets If Sh.Name Like "S##" Then DictSayfa.Add...

...baslangicSatiri = 10 sonSatir = sayfa.Cells(sayfa.Rows.Count, "C").End(xlUp).Row Set dict = CreateObject("Scripting.Dictionary") If Not Intersect(Target, sayfa.Range("C:E")) Is Nothing Then Application.EnableEvents = False For i = baslangicSatiri To...

...Say As Long, son As Long Set s1 = Sheets("satıs") Set s2 = Sheets("Gider") Set s3 = Sheets("rapor") Set dc = CreateObject("scripting.dictionary") trh1 = TextBox1 trh2 = TextBox2 If trh1 > trh2 Then MsgBox "Hatalı Tarih, Tarih kısımları boş veya ilk tarih son tarih aralığı uyumsuz."...

Necdet Bey merhaba; Ömer Bey'in kodlarına yaptığınız düzenlemeyi test edebilmek adına rica etsem Progress Bar eklemeniz mümkün olur mu acaba? Hızı böylece test edebilirim. Teşekkür ederim.

...sil As Range Dim bsTimer As Double Dim adt As Long Dim arr As Variant Dim deg As String bsTimer = Timer Set s = CreateObject("Scripting.Dictionary") With Application .Calculation = xlCalculationManual .ScreenUpdating = False End With For Each sh In Sheets arr =...

Hocam merhaba; elinize sağlık test dosyasında 100'er adet veri üzerinde denedim ve düzgün çalıştığını gözlemledim. Orjinal dosyamda birkaç milyon veri mevcut, orada deneyeyim dedim, 15-20dk denedim. Galiba işlem devam ediyor ama Progress Bar ekleyebilir misiniz rica etsem? Bu tarz büyük boyutlu...

Ömer Bey'in çözümü çok güzel. Problem olabilecek bir detay var. A ve H arası sütunların hepsini kontrol etmiyor. Karşılaştırmaya A ve H olarak iki sütun alıyor. Bu iki sütun yeterli ise problem yok.

...sonradan da eklenebilir. Sub kod() Dim s As Object Dim sh As Worksheet Dim a As Long Dim sil As Range Set s = CreateObject("Scripting.Dictionary") Application.Calculation = xlCalculationManual Application.ScreenUpdating = False For Each sh In Sheets Set sil = sh.Cells(Rows.Count, "A")...

@veyselemre Hocam kodlarda ki renkli kısmı anlayamadım zahmet olmazsa açıklayabilir misiniz?

...Dim a(), b(), dc As Object Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet Set s2 = Sheets("STOK") Set dc = CreateObject("Scripting.Dictionary") dc.comparemode = vbTextCompare syf = Array("DepoGırıs", "CIKIS", "SATIS") ReDim b(1 To Rows.Count, 1 To 12) For Each sh In syf Set s1 =...

Ziynettin bey tekrar merhaba, Yapmış olduğunuz kodlarla çalışmaya başladığımda bir hususta sorun yaşadım. Şöyle ki , kodlarda ilgili tarih aralıklarını ilgili sayfalarda arayıp buluyor ve ilgili verileri ilgili hücrelere alıyor. Yalnız arama yapılan sayfalarda aranan tarih 1 adet olduğunda...