Sorgu için arama sonuçları: dictionary

şimdi görme fırsatım oldu, tam istediğim şekilde çalışıyor, Ubound tam olarak ne işe yarıyor

...& .Cells(Rows.Count, 1).End(3).Row).Value End With Set s2 = Sheets("olmasını istediğim") With CreateObject("Scripting.Dictionary") s2.Cells.ClearContents For i = 1 To UBound(veri) bol = Split(veri(i, 1), "\") ky = bol(0) If Not...

...da sağda solda başka sütunlar varsa revize edilmelidir Dizi = Range("A4").CurrentRegion.Value Set Dict = CreateObject("Scripting.Dictionary") ReDim Liste(1 To UBound(Dizi, 1), 1 To 1) For i = 1 To UBound(Dizi, 1) Liste(i, 1) = Dizi(i, 3) If Dizi(i, 1) <> ""...

...Dim s As Object Dim ayr As String Set s1 = Worksheets("ORJİNAL") Set s2 = Worksheets("OLMASI İSTENEN") Set s = CreateObject("Scripting.Dictionary") ayr = ", " sn = s1.Cells(Rows.Count, "C").End(3).Row ReDim dz(1 To sn, 1 To 10) For a = 4 To sn If s.exists(s1.Cells(a, "C").Value) Then...

Ömer Bey tekrar merhabalar, Ben dışarıdan veri alma işlemi yapmaktayım.. Uyarlarım diye düşündüm ama yapamadım. Ben 1 nolu dosya içerisinde örnek veriyi, projem adlı dosyasında yer alan Örnek Aktarim adlı sayfaya aktarılmış haliyle "Data" adlı sayfaya aktarmak istiyorum. Bir noktaya kadar...

Ömer Bey merhaba Ellerinize sağlık. Teşekkür ederim

...s2 As Worksheet Dim a As Long Dim k As String Set s1 = Sheets("Ham Data") Set s2 = Sheets("Data") Set s = CreateObject("Scripting.Dictionary") For a = 2 To s1.Cells(Rows.Count, 1).End(3).Row If s1.Cells(a, "C") = "" Then k = Split(s1.Cells(a, "A").Value, "-")(0) ElseIf Not...

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

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