Sorgu için arama sonuçları: dictionary

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

Emeğiniz için teşekkür ederim ?. Denedim lakin yine 2000satırı kesiyor ve ayırıyor.Ancak: benim yapmak istediğim şey @Korhan Ayhan hocanın kodunu kullanarak diğer stünlardaki verileri getirebilmek nasıl yapabilirim? Entegre etmeye çalıştım olmadı...

Merhabalar; Kod olarak değil ama formül ile çözebileceğimiz bir yöntem yok mu acaba

...My_List() As Variant Application.ScreenUpdating = False Set S1 = Sheets("Sayfa1") Set My_Array = VBA.CreateObject("Scripting.Dictionary") My_Data = S1.Range("A1:E" & S1.Cells(S1.Rows.Count, 1).End(xlUp).Row).Value For X = 2 To UBound(My_Data, 1)...

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

hocam b hocam bu kodda ilk sayfadaki sicil 1756.satırda bitiyor diğer sayfaya 1757.satırdaki sicilden devam etmesi gerekirken atlayıp 2069.satırdan devam ediyor. Yani arada bir sicil noyu atlıyor. her sayfada bu şekilde 2000.satıra a denk gelen sicili atlayıp işleme devam ediyor.

Siciller kayboluyor ve diğer sayfalara taşımıyor? 1.Bölüm sayfası ve diğerleri boş, Yanlış mı yapıştırdım acaba? Örneğini yükledim..

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