Sorgu için arama sonuçları: dictionary

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

...As Range) Dim dict As Object, arrList As Object, Dizi, Liste, i As Long, k As Long Set dict = CreateObject("Scripting.Dictionary") Set arrList = CreateObject("System.Collections.ArrayList") Dizi = Kaynak.Value For i = 1 To UBound(Dizi, 1) For k = 2 To UBound(Dizi...

Select Case ile yaptığım örnek ektedir. Kodlar Combobox12 nin içinde

Sayın veyselemre bey gönderdiğiniz kodda söyle bir sorun oluyor. Sadece BO ve BM sütunları için seçenek yapılmış. Hangi sütunlarda işlem yapacağı Combobox12 den seçilen değere göre oluyor. Mesela, Combobox12 den, "TEMEL EĞİTİM GENEL MÜDÜRLÜĞÜ" seçilince BJ-BL sütunlarında, "ORTAÖĞRETİM GENEL...

veyselemre bey çok teşekkür ederim. Elinize sağlık.

...v2 = .Range(.Cells(2, sut2), .Cells(Rows.Count, sut2).End(3)).Value End With With CreateObject("Scripting.Dictionary") For Each elem In IIf(IsArray(v1), v1, Array(v1)) If elem <> "" Then .Item(elem) = Null Next elem For Each elem In IIf(IsArray(v2)...

...Sheets("Sayfa1") veri = .Range("G2:J" & .Cells(Rows.Count, "A").End(3).Row).Value End With With CreateObject("Scripting.Dictionary") For i = 1 To UBound(veri) For ii = 1 To 4 Step 3 v = veri(i, ii) If v <> "" And IsNumeric(v)...

@veyselemre hocam. Elinize sağlık. Ayrıca, öğrenmemize katkıda bulunduğunuz için çok teşekkür ederim. Saygılar

..."N").End(3).Row).Value ReDim liste(1 To UBound(veri), 1 To UBound(veri, 2) * 2) End With With CreateObject("Scripting.Dictionary") For i = 1 To UBound(veri, 2) .RemoveAll For ii = 1 To UBound(veri) If veri(ii, i) <> "" Then...