Sorgu için arama sonuçları: dictionary

Merhaba Ömer bey, Yazmış olduğunuz makroda seçili hücreler olan "(C2:F32)" yerine sayfada yazılı olan bütün alanları otomatik seçim nasıl yaptıra biliriz? Örneğin benim şu anki dosyamda (a1: Eu7) her dosyamda sütun sayısı farklı olacağı için otomatik seçim nasıl yaptırabilirz?

...lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row renkDönüşümü = True Set faturaNumaraları = CreateObject("Scripting.Dictionary") For Each cell In ws.Range("E2:E" & lastRow) faturaNo = cell.Value If Len(faturaNo) > 0 Then If Not...

...= ThisWorkbook.Sheets("Görevler") Set wsPuantaj = ThisWorkbook.Sheets("Puantaj") Set PuantajDict = CreateObject("Scripting.Dictionary") ' Görev tablosundaki son satırı bul SonSatır = wsGörevler.Cells(wsGörevler.Rows.Count, 1).End(xlUp).Row ' Görev değerlerini...

Merhaba, Bu da başka bir seçenek olsun. Biraz Filtre, biraz dictionary Kod sayfa yoksa açar, varsa içini temizler, sonra aktarır. Dolayısayla defalarca çalıştırılsa bile hata alınmaz. Referanslardan Microsoft Scripting Runtime seçili olmalı. Sub Deneme() Dim arr As Variant Dim dic As New...

ayrıca uzun uğraşlar sonucu Dictionary kullanarak alltaki kodu başardım bende, biraz karmaşık kod ama aynı işlemi yapıyor. alternatif olarak kalsın. Option Explicit Sub DesArrCities() If Cells(1, 2) = "" Then Rows("1:1").Select Selection.Delete Shift:=xlUp End If Dim lastRow As...

...onun bilgilerini kopyalaması ve bu şekilde diğerlerini filtreleyerek kopyalama yapması mümkün mü? Valla sabahtan beri Array lar ile dictionary ile yapmaya çalıştım, dic kaydetsem bile autofilter da kriter olarak getirmeyi beceremedim, Array tam olarak uymadı. Elinde benzer bir proje...

...Dim i As Long Dim isim As String Set ws2 = ThisWorkbook.Sheets("Sayfa2") Set geciciVeri = CreateObject("Scripting.Dictionary") For i = 1 To ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row isim = ws2.Cells(i, 1).Value If isim <> "" Then...

Merhaba, Deneyiniz... Sub kod() Dim s As Object Dim hcr As Range Set s = CreateObject("Scripting.Dictionary") For Each hcr In Range("C2:F32") For Each h In Split(hcr.Value, ", ") If Not s.Exists(h) Then s.Add h, 1 Else s(h) = s(h) + 1 Next Next Range("H2").Resize(s.Count...

Merhaba, Sub test() Set dc = CreateObject("scripting.dictionary") Set dz = CreateObject("scripting.dictionary") son = 0 son = Range("O" & Rows.Count).End(3).Row a = Range("O2:P" & son).Value For i = 2 To UBound(a) dc(a(i, 1)) = a(i, 2) Next i...

...As String, grup As String Dim kodlarDict As Object ' Sözlük nesnesini oluştur Set kodlarDict = CreateObject("Scripting.Dictionary") ' Sayfaları tanımlayın Set veriWS = ThisWorkbook.Sheets("veri") Set listeWS = ThisWorkbook.Sheets("liste") ' veri...

...referanslarınızda bu kütüphaneyi etkinleştirmeniz gerekebilir. VBA'da, ArrayList yerine daha yaygın olarak Collection veya Scripting.Dictionary gibi daha basit veri yapıları kullanılır. ArrayList yerine şu yapıları kullanmayı deneyebilirsiniz: Şöyle ki ; Dim km As Object Set km =...

bu şekilde yapıştırdım hocam fakat, ctrl+f ile arama yapınca bulduğu hücre ve satırı vs. renklendirmiyor.

...ürün modeli ve 7 farklı ebat arasından otomatik fiyat bulduruyordum ve sıkıntı yoktu sonradan siparişte gelen veriler aynı olduğunda dictionary üzerinden toplatıp aynı olan verilerin satırlarıyla sildirme üzerine makro yazdım ve başarılı oldu ama o sırada fiyat listesi 8. satırdan...

...xlNone End With My_Data = Range("A1:A" & Cells(Rows.Count, 1).End(3).Row).Value Set X_Rng = CreateObject("Scripting.Dictionary") Set Y_Rng = CreateObject("Scripting.Dictionary") For X = LBound(My_Data) To UBound(My_Data) If My_Data(X, 1) > 0 And X Mod 2...

...yeniden düzenledim. Bu şekilde, hem C hem de E sütunlarındaki filtreleme işlemi doğru şekilde yapabilir umuyorum. Bu kod yine scripting.dictionary temelli , size zahmet kopya uzerinde deneyiniz ve verimi gozlemleyiniz. Yine sorun verirse de kopyayı siliniz ve calısan dosyada devam ediniz...

Sorununuz cozuldu ancak buyuk veri kumeleri ile çalıştıgınızı varssayımladığımda merak ettiğim için aynı sorunun scripting.dictionary yontemi ile cozulup cozulmeyeceği konusunu araştırmak için bir kopya dosyanızda musait oldugunuzda denemenizi istesem ve sonucu da paylaşırsanız memnun olurum...

Veysel hocam üyeliğiniz gibi çok özelsiniz.Saat gibi çalışıyor..bu çözümü gördükten sonra mesleği bırakıyorum, bir ipte 2 canbaz oynamaz :) sağlıcakla kalın ...sağolun varolun harikasınız...

...Set sV = Sheets("veri") sSat = sV.Cells(Rows.Count, 2).End(3).Row ReDim liste(1 To sSat, 1 To 8) With CreateObject("Scripting.Dictionary") For i = 3 To sSat If sV.Cells(i, 2).Interior.Color = vbRed Then krt = sV.Cells(i, 3).Value...

Çok teşekkür ederim. Şöyle bir hata alıyorum. "Compile Error: compile error for each control variable must be variant or object"

...Dim S1 As Worksheet Set S1 = Sheets("KADEME_FATURA") Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") With ListBox2 .Clear .ColumnCount = 5 .ColumnWidths = "100;70;170;80;80" End With Dim i As Long Dim faturaNo As String...