Sorgu için arama sonuçları: dictionary

...Dim oiv, kdv As Double lRow = Cells(Rows.Count, "B").End(3).Row myData = Range("B2:C" & lRow).Value Set myArr = CreateObject("Scripting.Dictionary") ReDim myList(1 To lRow, 1 To 2) oiv = 10 kdv = 20 For i = LBound(myData) To UBound(myData) say = say + 1 matrah = 0 If Not...

..."D") = Cells(i, "C") / 1.2 Cells(i, "E") = Cells(i, "C") * 0.2 End If Next i MsgBox "İşlem tamam..." End Sub Scripting.Dictionary ile (daha hızlı); Sub Test2() Dim i, lRow, say As Long Dim myData As Variant Dim myArr As Object lRow = Cells(Rows.Count, "B").End(3).Row myData...

...Dim aranan As String Set sh = Sheets("VADEYE GÖRE SATIŞLAR") ss = sh.Range("C" & Rows.Count).End(4).Row Set z = CreateObject("Scripting.Dictionary") z.comparemode = vbTextCompare ReDim b(1 To 5, 1 To 1) n = 0 a = sh.Range("C2:G" & ss).Value For i = 1 To UBound(a, 1)...

...Range("bs2:bs" & Rows.Count).ClearContents son = Range("c" & Rows.Count).End(xlUp).Row With CreateObject("Scripting.Dictionary") For i = 2 To son If Cells(i, "c").Value = Cells(i, "c").Value Then .RemoveAll...

...Range("bU2:bU" & Rows.Count).ClearContents son = Range("c" & Rows.Count).End(xlUp).Row With CreateObject("Scripting.Dictionary") For i = 2 To son If Cells(i, "c").Value = Cells(i, "c").Value Then .RemoveAll For ii = i To son...

...String Set sh = Sheets("VADE") ss = sh.Range("C" & sh.Rows.Count).End(xlUp).Row ' Hatalı satır düzeltildi Set z = CreateObject("Scripting.Dictionary") z.comparemode = vbTextCompare ReDim b(1 To 2, 1 To 1) n = 0 a = sh.Range("A2:E" & ss).Value ' Bitiş sütunu E olacak şekilde güncellendi For...

...Long, n As Long Dim aranan As String Set sh = Sheets("VADE") ss = sh.Range("C" & Rows.Count).End(3).Row Set z = CreateObject("Scripting.Dictionary") z.comparemode = vbTextCompare ReDim b(1 To 3, 1 To 1) n = 0 a = sh.Range("A2:b" & ss).Value For i = 1 To UBound(a, 1)...

...Each Rng In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row) If Rng.Value <> "" Then With VBA.CreateObject("Scripting.Dictionary") For Each My_Data In Split(Rng.Value, ",") If Not .Exists(My_Data) Then .Add...

...test() son = Range("A" & Rows.Count).End(3).Row If son < 2 Then Exit Sub a = Range("A1:D" & son).Value Set dc = CreateObject("scripting.dictionary") Set ds = CreateObject("scripting.dictionary") ReDim b(1 To UBound(a), 1 To 2) ReDim v1(1 To UBound(a), 1 To 3) ReDim v2(1 To UBound(a), 1 To 3)...

...son = Range("B" & Rows.Count).End(xlUp).Row veri = Range("B1:E" & son).Value With CreateObject("Scripting.Dictionary") For i = 1 To UBound(veri) .Item(veri(i, 1)) = .Item(veri(i, 1)) & "," & veri(i, 4) Next i For i = 1 To UBound(veri)...

...Sub işlem() Dim son& Range("H2:H" & Rows.Count).ClearContents son = Range("B" & Rows.Count).End(xlUp).Row With CreateObject("Scripting.Dictionary") For i = 2 To son If Cells(i, "B").Value = Cells(i , "B").Value Then .RemoveAll For ii = i To son If Cells(i, "B").Value = Cells(ii, "B").Value...

vba => dediğinizi yükledim ama Power Query =>dediğiniz kod parçasını nereye yazacağımı bilemedi. size kolay bana zor , cahilliğimi mazur görün lütfen yüklediğiniz dosyaları altın üye değilim indiremedim. mümkünse dosya.tc ye yükleyebilirmisiniz. teşekkür ederim elinize sağlık..

Sub test() Dim v, i With CreateObject("Scripting.Dictionary") v = Sheets("TumListe").Range("A1").CurrentRegion For i = 2 To UBound(v) .Item(v(i, 3)) = v(i, 2) Next i v = Sheets("Data").Range("A1").CurrentRegion For i = 2 To UBound(v)...

...Dim v, i, say, ky, ky1, ky2, sira v = Range("A2:D" & Cells(Rows.Count, 1).End(3).Row).Value With CreateObject("Scripting.Dictionary") For i = 1 To UBound(v) If v(i, 4) = 23 Then ky1 = Trim(v(i, 2)) ky2 = "23" Else...

Sn. cems makro toplamlarında hatalar var , manuel topladıklarımda uyuşmadı, ek olarak stok kodunu ilave edebilirmisiniz teşekkür ederim. altta sonuçları karşılaştırdım, gerçi biraz karışık oldu :( https://s6.dosya.tc/server20/7cw8fa/frm.png.html

...ThisWorkbook.Sheets("STOK") lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row Set dict = CreateObject("Scripting.Dictionary") For i = 2 To lastRow If ws.Cells(i, "D").Value = 23 Then If Not dict.exists(ws.Cells(i...

Ben bu tür konularda Necdet üstadın önerdiğine benzer bir şekilde sözlük oluşturarak: CreateObject("Scripting.Dictionary") fonksiyonuyla değişmesi gereken cümle öbekleri veya kelimeleri düzeltiyorum. Burada püf noktası, istisna olacak durumları belirleyip sözlüğün başına almak. Örneğin: CAM ve...

...Dim strSQL$, rs As Object, r, dosya(1 To 2), sat, i, ii, dic As Object, adoCon As Object, ky$, w Set dic = CreateObject("Scripting.Dictionary") Set adoCon = CreateObject("AdoDB.Connection") With Sheets("Dosyalar") dosya(1) = .Range("A2").Value & "\" & .Range("B2").Value...

...Set ws1 = ThisWorkbook.Sheets("Sayfa1") Set ws2 = ThisWorkbook.Sheets("Sayfa2") Set dict = CreateObject("Scripting.Dictionary") lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row For i = 1 To lastRow cellValue = ws1.Cells(i, "A").Value...

...3).End(3).Row Next i End With tSut = Array("AL", "AM", "AL", "AM", "AL", "AM", "AM") With CreateObject("Scripting.Dictionary") For i = 6 To 12 For ii = 4 To son(i) If sh(i).Cells(ii, tSut(i - 6)).Value > 0 Then ky =...