Sorgu için arama sonuçları: dictionary

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

Hocam çok teşekkür ederim çok işimi gördü sağolun. Emeğinize sağlık.

Aynı hata verdi. Type mismatch (Error 13)

...Object, elem, a, pattern, say Dim dic As Object Set reg = CreateObject("VBScript.Regexp") Set dic = CreateObject("Scripting.Dictionary") reg.pattern = "(^\D{3})([\D]*)(\d+$)" With Sheets("Sayfa1") For Each elem In .Range("A2:A" & .Cells(Rows.Count...

...Biraz karmaşık oldu gibi ama aşağıdaki kodları dener misiniz? Sub kod() bul = "BSIOZ" deg = "85102" Set d = CreateObject("Scripting.Dictionary") For a = 1 To Cells(Rows.Count, "A").End(3).Row m = Cells(a, "A").Text ReDim dz(1 To Len(m), 1 To 2) For b = 1 To Len(m) dz(b, 1)...

...b, ky, miktar, sut, s, uz, alan, son Set alan = Range("B4") son = Cells(Rows.Count, 2).End(3).Row With CreateObject("Scripting.Dictionary") For Each rng In Range("B5:B" & son).SpecialCells(xlCellTypeVisible).Areas For Each b In rng.Cells Set...

Private Sub UserForm_Initialize() Dim rng, veri, liste, i, ii, say, bb, b, ky, miktar, sut, s, uz With CreateObject("Scripting.Dictionary") For Each rng In Range("B5:B" & Cells(Rows.Count, 2).End(3).Row).SpecialCells(xlCellTypeVisible).Areas If rng.Address = "$B$4"...

...Then ReDim veri(1, 1): veri(1, 1) = Selection.Value ReDim liste(1 To UBound(veri) + 2, 1 To 1) With CreateObject("Scripting.Dictionary") For i = 1 To UBound(veri) For Each bb In Split(veri(i, 1), ",") b = Split(Trim(bb), " ") ky =...

Çok teşekkür ederim yardımlarınız için

Teşekkürler

Merhaba... Private Sub CommandButton1_Click() Dim i With CreateObject("Scripting.Dictionary") If ListBox2.ListCount > 0 Then For Each i In ListBox2.List .Item(i) = Null Next i End If If ListBox1.ListCount > 0 Then...

Sub test() Dim elem, bbb, bb, b, ky, i, ii With CreateObject("Scripting.Dictionary") For Each elem In Range("B6:B8").Value For Each bbb In Split(elem, "/") bb = Split(bbb, " (", 2)(0) b = Split(bb, " - ") ky =...

Teşekkür ederim Ömer Faruk hocam emeğinize sağlık iyi günler dilerim selamlar Allaha emanet olun