Sorgu için arama sonuçları: dictionary

Çok teşekkür ederim. Oldu. Sağolun

...x As Long Dim s As Object Dim ayr As String Set s1 = Worksheets("Sayfa1") Set s2 = Worksheets("Sayfa2") Set s = CreateObject("Scripting.Dictionary") ayr = "; " sn = s1.Cells(Rows.Count, "B").End(3).Row ReDim dz(1 To sn, 1 To 10) For a = 2 To sn If s.exists(s1.Cells(a, "B").Value) Then...

...Dim Q As Integer Dim vArray As Variant Dim strNew As String Application.ScreenUpdating = False Set objDict = CreateObject("Scripting.Dictionary") Tmax = ActiveDocument.Tables(1).Rows.Count For I = 1 To Tmax strCell = ActiveDocument.Tables(1).Cell(I, 1).Range.Text strQ = Left(strCell...

...veri(i + 1, 2) End If Next i 'Sheets("Sayfa2").Range("J2").Resize(say2, 4).Value = veri With CreateObject("Scripting.Dictionary") For i = 1 To say gun = veri(i, 1) saat = veri(i, 2) hiz = veri(i, 3) If hiz > 0 Then...

...veri(i, 4) = veri(i + 1, 2) End If Next i 'Range("J2").Resize(say2, 4).Value = veri With CreateObject("Scripting.Dictionary") For i = 1 To say gun = veri(i, 1) saat = veri(i, 2) hiz = veri(i, 3) If hiz > 0 Then...

Sy. @dost ; Hocam Google E tablolarda nasıl kullanacağım bunu bu kod orada çalışmıyor. Q sütununa gelen km. şartına sadece Mazot olanlarının şartını getire bilir miyiz.

...As Double, totalKm As Double Dim k Application.ScreenUpdating = False Set s1 = Sheets("Sayfa2") Set oDict = VBA.CreateObject("Scripting.Dictionary") myData = s1.Range("A2:P" & s1.Cells(s1.Rows.Count, "C").End(3).Row).Value For i = LBound(myData, 1) To UBound(myData, 1) If Not...

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