Sorgu için arama sonuçları: dictionary

Teşekkürler sayın veyselemre

Dim huc ComboBox7.Clear Sheets("İNTERNET_TELEFON").Select With CreateObject("Scripting.Dictionary") For Each huc In Range("a2:a" & Cells(Rows.Count, 1).End(3).Row).Value If IsDate(huc) Then .Item(Year(huc)) = Null Next huc ComboBox7.List = .keys...

With Sheets satırında hata veriyor Veysel bey ne yapmam gerektıgı konusunda yardımcı olabılırsenız coksevınırım

Sub test() Dim r, sat, dic As Object, sName$ Set dic = CreateObject("Scripting.Dictionary") For Each r In Worksheets dic(r.Name) = Null Next r With Sheets("Yaklaşık Maliyet") For Each r In .Range("C10:C" & .Cells(Rows.Count, 3).End(3).Row).Value If...

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

Sayın veyselemre İstediğim gibi olmuş, ilgi ve yardımınız için çok teşekkür ederim, saygılarımla.

...Dim veri, r, i&, ii& veri = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row).Value With CreateObject("Scripting.Dictionary") For Each r In veri .Item(Year(r)) = Null Next r veri = .keys For i = LBound(veri) To UBound(veri) - 1 For...

...4).End(3).Row).Value End With ReDim liste(1 To UBound(myArr1) + UBound(myArr2), 1 To 5) With CreateObject("Scripting.Dictionary") For i = 1 To UBound(myArr1) If onc <> myArr1(i, 1) Then say = 1 Else say = say + 1...

...As Variant, myData2 As Variant Dim iCounter, Say, iRow As Integer Set s1 = Sheets("Sheet2") Set oDict = VBA.CreateObject("Scripting.Dictionary") myData1 = s1.Range("A2:B" & s1.Cells(s1.Rows.Count, 1).End(3).Row).Value myData2 = s1.Range("D2:E" & s1.Cells(s1.Rows.Count...

...Next Application.DisplayAlerts = True End If Set S1 = Sheets("Ana Sayfa") Set Dizi = CreateObject("Scripting.Dictionary") On Error Resume Next S1.ShowAllData On Error GoTo 0 Son = S1.Cells(S1.Rows.Count, 1).End(3).Row Veri =...

...Sheets("Sql_Stok") veri = .Range("A2:D" & .Cells(Rows.Count, 1).End(3).Row).Value End With With CreateObject("Scripting.Dictionary") For i = 1 To UBound(veri) .Item(veri(i, 1)) = Array(veri(i, 3), veri(i, 4)) Next i With...

Teşekkür ederim. Doğru çalışanlar var ancak mesela bu kodunkiler yanlış gelmiş, bir bakar mısınız.

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

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