ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[ahmttsezer]

Halil Bey merhaba,

Sipariş numarası Metinselİade_12" gibi ifadeler yer almakta. Sanırım bundan dolayı hata veriyor.

Daha hızlı çalışacağını düşündüğünüz kodu çalıştıramadım, sanırım benimle alakalı. Bir yerlerde bir şeyleri yanlış yapıyorum. Microsoft Scripting Runtime eklemiştim. Sanırım sipariş numarasında " bulunmasından dolayı hata alıyorum.

[ahmttsezer]

Halil Bey,

Metinsel İadeler ile başlayan sipariş numaralarını kontrol etmiyor sanırım. Bu sorun çözülse aslında benim için yeterli olacaktır.

Kod: Tümünü seç

kyt = kyt & ", """ & RS(0) & """"

kısmını ekledim fakat sipariş numarası sütununda (")-(*) li değerler bulunabildiğinden sanırım hata alıyorum.

[halily]

hızlı olan kodda sorun çıkmaması gerek, soruna sebep olan kısım IN le ilgili olan kısımıdı
Hızlı olan yöntemde(dictionary yöntemi) ne sorun çıktı

KapaliExcelVeriKarsilastirma_hy.rar

[halily]

dosyanın düzenlenmiş hali

KapaliExcelVeriKarsilastirma_hy2.rar

[ahmttsezer]

Halil Bey,

5-6 kayıt eklediğimde program sağlıklı bir şekilde çalışıyor fakat 650.000 kayıt eklediğimde uzun bir süre beklesem de program yanıt vermiyor.

Sizlere çok zahmet verdim, ilginiz ve desteğiniz için teşekkür ederim.

[halily]

kodun başına

Kod: Tümünü seç

Application.ScreenUpdating = False

sonuna da

Kod: Tümünü seç

Application.ScreenUpdating = True

ekleyip dener misiniz?
793000 kayıt için tüm işlem 11 saniye sürdü gerçi sizde sorun silme işleminden kaynaklanıyor olabilir
kodda yer alan aşağıdaki bloğu silince işlem ne kadar sürüyor
sayfada kaç satır veri oluyor

Kod: Tümünü seç

    For i = SonStr To 2 Step -1
        kriter = sht.Cells(i, 1)
        If dict(kriter) = 1 Then Rows(i).EntireRow.Delete
    Next

[halily]

yalnız sipariş noda neden her türlü karakter kullanılmış onu anlamadım, harf, sayı, alt tire, tire, * tamam da bari " ve ' olmasaydı, en azından sorguyla yapılırdı. son bir defa başka bir yöntem daha kaldı onu da deneyeyim olmazsa artık alıma başka yöntem gelmiyor

[ahmttsezer]

Halil Bey,

Aşağıdaki kod bloğunu silince yaklaşık 35 saniye sürerek mevcut datadaki bütün kayıtlar listeleniyor.

Evet, sanırım silme işleminden kaynaklanıyor. Sipariş no da ne yazık ki bu şekilde bir çok noktalama işareti kullanılmış. Teşekkür ederim destekleriniz için

[halily]

işlemden sayfada kaç satır veri oluyor

[halily]

eğer aşağıdaki dosya da çalışmazsa maalesef aklıma başka bir yöntem gelmiyor
sizin excel dosyanızın özelliklerini bilmiyorum o nedenle sizdeki sonuç ne olur bilmiyorum ama göndermiş olduğunuz son çalışmadaki verileri kopyalayıp 790.000 satırlık sayfa oluşturup verileri oradan hem işlenmiş hem de işlenmemmiş yani tüm verileri olduğu gibi kopyalayıp ekleyen bir deneme yaptım toplamda 33 saniye sürdü.

Karşılaştırma_hy3.rar

[ahmttsezer]

Halil Bey,

Mevcut data da 503.000 adet kayıt bulunmakta ve işlem öncesinde kod bloğunu sildiğimde işlem sonrasında 503.000 kadar kayıt göstermekte. Herhangi bir işlem yapmıyor, listeyi olduğu gibi çekmekte.

[ahmttsezer]

Halil Bey,

Liste üzerinde sadece *MT* ile başlayan ve rakamsal değer içeren sipariş numaralarını karşılaştırıyor fakat AGM1251255, TRTT421421 gibi metinsel ifade ile başlayan sipariş numaralarının karşılaştırmasını yapmamakta. Bilgilerinize.

[halily]

şimdi kontrol ettim bahsettiğiniz verileri ekledim (biri her 13 satırda bir diğeri her 7 satırda bir eklendi) onları da hesapladı

[halily]

eğer işlem yapmıyorsa ya dosyanızdaki alanların yeri farklıdır yada tekrarlayan SİPARİŞ NO + GÖNDERİ NO yok demektir.
yoksa bende çalışan sizde de çalışmalı