Sorgu için arama sonuçları: dictionary

Veysel Bey çözümü benim dosyama da uyarlayabilir misiniz. Teşekkür ederim. Açıklama dosyanın içinde.

Merhaba Veysel bey, Ellerinize sağlık. Raporda aşağıdaki gibi bir hata aldım. Muhtemelen diğer satırda da aynı hata devam edecektir. Power query içinde ayırca teşekkür ederim.

...1).End(3).Row veriSat = .Range("A2:E" & .Cells(Rows.Count, 1).End(3).Row).Value End With With CreateObject("Scripting.Dictionary") For i = 1 To UBound(veriSat) If veriSat(i, 1) <> "" Then yil = Year(veriSat(i, 1)) If Not...

Sub test() Dim s As Worksheet, sut%, veri, i&, ii%, y, ky$, itm, itms, sat& With CreateObject("Scripting.Dictionary") sut = 2 For Each s In Sheets(Array("Sayfa1", "Sayfa2")) veri = s.Range("A2:C" & s.Cells(Rows.Count, 1).End(3).Row).Value For i =...

....ClearContents .Borders.LineStyle = xlNone End With End With With CreateObject("Scripting.Dictionary") With Sheets("MALZEME_GİRİŞİ") veri = .Range("B2:H" & .Cells(Rows.Count, 2).End(3).Row).Value ReDim data(1 To 2 * UBound(veri), 1...

...mevcut en yeni dosyadan yola çıkarak bir örnek çözüm elde etmek istedim, Sayın muygun ve siz, örnek çözümler sundunuz, sağ olun, zaman yaratarak, bunlar üzerinden ve önerdiğiniz ADO ve Dictionary yöntemlerini inceleyerek ilerleme kaydetmek istiyorum. Tekrar teşekkür ederim, Saygılarımla.

...Bence ay-yıl bilgisini kullanmak daha doğru sonuçlar verecektir. Ama siz zaten işlemi makro ile yapmaya karar verdiğiniz için ADO ya da Dictionary gibi çok hızlı sonuç veren yöntemleri tercih edebilirsiniz. Bildiğiniz üzere bunlarla ilgili forumda bolca örnek paylaşıldı. Kodları inceleyip...

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.