Sorgu için arama sonuçları: dictionary

...Dim sayi As Variant Dim ortakDict As Object Dim ws As Worksheet Dim cSatir As Long Set dict = CreateObject("Scripting.Dictionary") Set ortakDict = CreateObject("Scripting.Dictionary") Set ws = ThisWorkbook.Sheets(1) ' sonA = ws.Cells(ws.Rows.Count...

...ÖZET sayfasında son satırı bul sonSatir = wsOzet.Cells(wsOzet.Rows.Count, "A").End(xlUp).Row ' Tekrarsız liste için Scripting.Dictionary kullan Set dict = CreateObject("Scripting.Dictionary") ' ÖZET sayfasında dolaş For i = 3 To sonSatir If wsOzet.Cells(i...

Merhaba, 1. Yöntem (Dictionary) ; Option Explicit Sub Listele_Dictionary() Dim s1 As Worksheet, s2 As Worksheet, wsRapor As Worksheet Dim d As Object, v1, v2, out(), r&, i&, j& Set s1 = Sheets("Sheet1") Set s2 = Sheets("Sheet2") On Error Resume Next Set wsRapor =...

...Dim i&, son&, kisa$, grup, d As Object, liste As Object, item, fark, sonuc$ Set d = CreateObject("Scripting.Dictionary") son = Cells(Rows.Count, "A").End(xlUp).Row ' Grupla For i = 2 To son If Trim(Cells(i, 1).value) <> "" And Trim(Cells(i, 2).value) <> ""...

Function TekilKelimeler(ByVal Metin As String) As String Dim D As Object: Set D = CreateObject("Scripting.Dictionary") Dim Kelimeler() As String: Kelimeler = Split(Metin, " ") Dim K As Variant, Sonuc As String For Each K In Kelimeler If Len(K) > 0 Then If Not...

Merhaba, Değişik yöntemler kullanılabilinir. Scripting.Dictionary bilmeyenler için alternatif olsun. Sub Duzenle() Dim i As Long Dim j As Integer Dim arr As Variant Dim col As Integer Dim t As Variant col = Cells(1, Columns.Count).End(1).Column + 1 Application.ScreenUpdating = False...

...Range("W2:W" & Rows.Count)) Is Nothing Then Application.EnableEvents = False Dim dict Set dict = CreateObject("Scripting.Dictionary") Dizim = Split(Target.Value) For i = LBound(Dizim) To UBound(Dizim) If Not dict.Exists(Dizim(i)) Then dict.Add Dizim(i)...

...Dim veri As Variant Dim dict As Object Dim i As Long, j As Long Dim k As Long Set dict = CreateObject("Scripting.Dictionary") veri = Range("A1:C22").Value 'Benzersiz değerleri topla For i = 1 To UBound(veri, 1) For j = 1 To UBound(veri, 2)...

...As Boolean) Dim i As Long, j As Long, rowCount As Long Dim grupDict As Object Set grupDict = CreateObject("Scripting.Dictionary") ' Sütun indekslerini bul Dim colMap As Object: Set colMap = CreateObject("Scripting.Dictionary") colMap("Tarih") = 3 ' C sütunu...

...Dim rng As Range, r, ky, rSil As Range Set rng = Range("A2:D" & Cells(Rows.Count, 1).End(3).Row) With CreateObject("Scripting.Dictionary") For Each r In rng.Rows ky = Left(r.Cells(1).Value, 3) & vbTab & r.Cells(4) If Not .exists(ky) Then...

...As Long, say As Long, krt As String Dim i As Long, y As Byte, ds As Object Set sh1 = Sheets("Sayfa1") Set dc = CreateObject("scripting.dictionary") Set ds = CreateObject("scripting.dictionary") son = sh1.Range("A" & Rows.Count).End(3).Row a = sh1.Range("A1:L" & son).Value For i = 2 To...

...Object Dim son As Long, say As Long, krt As String Dim i As Long, y As Byte Set sh1 = Sheets("Sayfa1") Set dc = CreateObject("scripting.dictionary") son = sh1.Range("A" & Rows.Count).End(3).Row a = sh1.Range("A1:L" & son).Value ReDim b(1 To UBound(a), 1 To UBound(a, 2)) For i = 2 To...

...Dim rng As Range, r, ky, rSil As Range Set rng = Range("A2:D" & Cells(Rows.Count, 1).End(3).Row) With CreateObject("Scripting.Dictionary") For Each r In rng.Rows ky = Left(r.Cells(1).Value, 3) & vbTab & r.Cells(4) If Not .exists(ky) Then...

...= "" Then MkDir yol ' Veriyi Array'e al veri = S1.Range("A1:L" & S1.Cells(S1.Rows.Count, "B").End(xlUp).Row).Value ' Benzersiz değerleri Dictionary ile bul Set benzersiz = CreateObject("Scripting.Dictionary") For i = 2 To UBound(veri) If Not benzersiz.exists(veri(i, 2)) And veri(i, 2)...

...= S1.Cells(S1.Rows.Count, "B").End(xlUp).Row veri = S1.Range("A1:L" & son).Value Set benzersizDegerler = CreateObject("Scripting.Dictionary") For i = 2 To UBound(veri, 1) deger = veri(i, 2) If Not benzersizDegerler.exists(deger) Then...

üstadım elinize sağlık açıkcası veri seti (sql bağlantılı tablo) yoğun formulu sutun ekleyip girdiğimde tamamlaması çok zaman alıyor..power query ile daha hızlı olurmu acaba ? yoksa direk vba (scripting dictionary,diziler) kullanarak yapacağım...

Merhabalar ; Zaman ayırıp Cevap verdiğiniz için teşekkürler, https://dosya.co/1ixale7r68jg/15.04.2025_Tarihli_Ekran_görüntüsü.jpg.html Ana Dosyadan verileri aktardığımda ekran görüntüsünde de görüleceği üzere toplamlar hatalı gelmekti. Sorumluluk merkezine girişi yapılan faturanın içeriğindeki...

...Sheets("Raporlar") son = ws1.Range("E" & Rows.Count).End(3).Row arr = ws1.Range("E1:AB" & son).Value Set dc = CreateObject("scripting.dictionary") Set ds = CreateObject("scripting.dictionary") Set dz = CreateObject("scripting.dictionary") ReDim b(1 To UBound(arr), 1 To 2) For i = 2 To...

@Korhan Ayhan Hocam, kod çalışmıyor, diğer sayfalara aktarım yapmıyor ama baka bilir misiniz?

...As Integer Application.ScreenUpdating = False Set S1 = Sheets("Sayfa1") Set My_Array = VBA.CreateObject("Scripting.Dictionary") My_Data = S1.Range("A1").CurrentRegion.Value For X = 2 To UBound(My_Data) My_Array.Item(My_Data(X, 1)) =...