Sorgu için arama sonuçları: dictionary

Cevap için teşekkürler. Kodlar sanırım sadece ilk satır değerlerini getirmekte. Kodlarda toplama işlemi yoksa , benzersiz değerleri oluşturma konusunda doğru çalışıyor. Toplam aldırma işlemi varsa eksik / hatalı çalışıyor, yanlış anlamadıysam.

...Dim wsSonuc As Worksheet ' Sözlük oluştur (benzersiz kelimeleri saymak için) Set kelimeDic = CreateObject("Scripting.Dictionary") ' Çalışılan sayfa Set ws = ThisWorkbook.Sheets("Sayfa1") ' Sayfa adını ihtiyacınıza göre değiştirin ' Son satırı bul...

...As Long Dim ilSayiToplam As Long ' İllere ve sayılarına göre bir sözlük oluştur Set ilSayi = CreateObject("Scripting.Dictionary") ' Dosyaların bulunduğu yol (Klasör yolu) dosyaYolu = "C:\DosyaYolu\" ' Kendi klasör yolunuza göre düzenleyin ' Klasördeki...

...Cells(1, 13).Value = "Adres" Cells(1, 14).Value = "Notlar" currentRow = 2 ' VCF verilerini işle Set dict = CreateObject("Scripting.Dictionary") For i = LBound(lines) To UBound(lines) If InStr(lines(i), "BEGIN:VCARD") > 0 Then dict.RemoveAll ElseIf InStr(lines(i), "END:VCARD") > 0 Then '...

...= veri(ii, 2): veri(ii, 2) = veri(i, 2): veri(i, 2) = tmp End If Next ii Next i With CreateObject("Scripting.Dictionary") For i = 1 To UBound(veri) .Item(veri(i, 1)) = .Item(veri(i, 1)) & Format(veri(i, 2), "000") Next i kys =...

...saklayabilirsiniz. Bu, kodun bakımını ve yönetimini kolaylaştırabilir. Dim userPages As Object Set userPages = CreateObject("Scripting.Dictionary") ' Kullanıcıya göre sayfa eşleştirmelerini yapın userPages.Add "Kullanici1", "Sayfa2" userPages.Add "Kullanici2", "Sayfa3" ' Diğer kullanıcılar...

vba ile değil de hücreye formul girerek yapabilir miyiz acaba? işyeri pc sinde office 2016 yüklü vba da yok

...bul lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row ' Sözlük nesnesi oluştur Set kazalar = CreateObject("Scripting.Dictionary") ' Kazaları numaralandır For i = 2 To lastRow sicil = ws.Cells(i, 2).Value If Not kazalar.exists(sicil) Then...

Bir scripting.dictionary önerisi , bunu da başka bir kopyada deneyin sonucu bilmiyorum dosyanız yok Excel'de verileri daha verimli bir şekilde işlemek için bir Scripting.Dictionary nesnesi kullanabilirsiniz. Scripting.Dictionary, verileri anahtar-değer çiftleri olarak saklamanızı sağlar ve...

---------------------------------------------------------------------------------------------------------------------------------------------------------------- Detaylı ve ivedi cevap için teşekkür ederim. Malesef veriyi azaltıp (194 kb) 1140 satıra kadar düşürdüm. Yine tam istediğim olmadı...

...ws.Cells(i - 1, 1).Value Then ws.Rows(i).Delete End If Next i End Sub Not: Kodun çalışması için Excel VBA editorüne (Alt + F11) yapıştırıp, F5 ile çalıştırmanız gerekecek. Ya da script.dictionary bilen bir usta farklı oneri de getirebilir.Ancak dosyanız...

...aşağıdaki kodu da deneyebilirsiniz. Sub kod() Dim s As Object Dim ilk As Date, son As Date Dim a As Long Set s = CreateObject("Scripting.Dictionary") ilk = Range("B1").Value son = Range("B2").Value For a = 2 To Cells(Rows.Count, "C").End(3).Row If Cells(a, "C").Value >= ilk And Cells(a...

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