2 sayfadan 2. sayfa

Cevap: Excel Kapalı Dosyadan Karşılaştırma Yapma

İletiTarih: 12 Oca 2021 13:06
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.

Cevap: Excel Kapalı Dosyadan Karşılaştırma Yapma

İletiTarih: 12 Oca 2021 13:13
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.

Cevap: Excel Kapalı Dosyadan Karşılaştırma Yapma

İletiTarih: 12 Oca 2021 13:19
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

Cevap: Excel Kapalı Dosyadan Karşılaştırma Yapma

İletiTarih: 12 Oca 2021 14:34
halily
dosyanın düzenlenmiş hali
KapaliExcelVeriKarsilastirma_hy2.rar

Cevap: Excel Kapalı Dosyadan Karşılaştırma Yapma

İletiTarih: 13 Oca 2021 09:29
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.

Cevap: Excel Kapalı Dosyadan Karşılaştırma Yapma

İletiTarih: 13 Oca 2021 10:14
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

Cevap: Excel Kapalı Dosyadan Karşılaştırma Yapma

İletiTarih: 13 Oca 2021 10:19
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

Cevap: Excel Kapalı Dosyadan Karşılaştırma Yapma

İletiTarih: 13 Oca 2021 12:42
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

Cevap: Excel Kapalı Dosyadan Karşılaştırma Yapma

İletiTarih: 13 Oca 2021 12:46
halily
işlemden sayfada kaç satır veri oluyor

Cevap: Excel Kapalı Dosyadan Karşılaştırma Yapma

İletiTarih: 13 Oca 2021 14:11
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

Cevap: Excel Kapalı Dosyadan Karşılaştırma Yapma

İletiTarih: 13 Oca 2021 14:15
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.

Cevap: Excel Kapalı Dosyadan Karşılaştırma Yapma

İletiTarih: 13 Oca 2021 14:21
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.

Cevap: Excel Kapalı Dosyadan Karşılaştırma Yapma

İletiTarih: 13 Oca 2021 14:57
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ı

Cevap: Excel Kapalı Dosyadan Karşılaştırma Yapma

İletiTarih: 13 Oca 2021 15:23
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ı