Karşılaştırma

resurrection · 3 Kasım 2006

Merhabalar,

ilk defa bir forumdan yardım isteyeceğim, hatam olursa mazur görün lütfen. benim problemim makro hazırlama ile ilgili. makro yazma adına bilgim yok denecek kadar az ve işyerim için bir şeyler hazırlamam gerekiyor. öğlenden beri forumlardan serseri mayın gibi geziyorum, benim problemime en yakın olarak excel.we. tr ' deki okudum. listeler arası yada datalar arası karşılaştırma konusunda gerçekten yardıma ihtiyacım var.

A firması B firması
no Z numarası Y numarası Tarih no Z numarası Y numarası Tarih
1 12345679 987654321 15.02.2001 05:25:12 1 234567890 345678901 14.06.2001 05:25:12
2 456789912 456789912 16.02.2001 05:25:12 2 345678901 456789912 15.06.2001 05:25:12
3 567900923 567900923 17.02.2001 05:25:12 3 456789912 567900923 16.06.2001 05:25:12
4 679011934 679011934 18.02.2001 05:25:12 4 567900923 679011934 17.06.2001 05:25:12
5 790122945 790122945 19.02.2001 05:25:12 5 679011934 790122945 18.06.2001 05:25:12
6 901233956 901233956 20.02.2001 05:25:12 6 790122945 901233956 19.06.2001 05:25:12
7 123446789 101234967 21.02.2001 05:25:12 7 901233956 101234967 20.06.2001 05:25:12
8 934565978 112345978 22.02.2001 05:25:12 8 123446789 112345978 21.06.2001 05:25:12
9 123456989 123456989 23.02.2001 05:25:12 9 934565978 123456989 22.06.2001 05:25:12
10 901233956 134567800 24.02.2001 05:25:12 10 123456989 134567800 23.06.2001 05:25:12

2 şirketin ( A ve B firması ) kayıtları 4 sütun halinde yujarıdaki gibi yer alıyor. amacım şu : a firması kayıtlarında 1.sırada bulunan kayıdın ( Z numarası Y numarasını X tarihte ve X saatte aramış ) B firmasının kayıtlarında olup olmadığını bütün B firması kayıtları içinde olup olmadığınız süzmek ( ama aynı şartlar çerçevesinde yani Z numarasının Y numarasını X tarihte ve X saatte aramış olmalı ) ve aynı kayıdı bulunca renkli yazdırmak yada başka bir sayfaya o satırı oldugu gibi atmak bulamazsa da bulunamadı yada farklı bir renkle yazdırmak vb. bir sonuç ile işlemi bitirmek. Problemimi tam olarak anlatabildimmi bilemiyorum ama genel hatları ile bundan ibaret. iyi çalışmalar.

Levent Menteşoğlu · 3 Kasım 2006

Her iki firma kayıtları aynı sayfadamı? Bir örnek dosyada eklerseniz sorunuza cevap vermek kolaylaşacaktır.

Selçuk1 · 3 Kasım 2006

sn. resurrection;

sanırım probleminiz benim bir kaç gün önce çözmeye çalştığım soruna benziyor... aşağıdaki linki inceler misiniz? ayrıca forumun arama butonunu da kullanarak benzeri bir çok örnek bulabilirsiniz. ve eğer yine çözüm bulamadı iseniz sorunuza bir örnek dosya eklerseniz çözüme daha kolay gidileceğini düşünüyorum..

http://www.excel.web.tr/showthread.php?t=21718

resurrection · 3 Kasım 2006

karşılaştırma

sn: cellchuq

sizin yazdıklarınız okudum işte 2 saat uğraştım beceremedim

benimki elimde var olan veriler üzerinden olması yeterli.

sayın leventm ;
aslında hangi sayfada oldugunun bir önemi yok. yani aynı sayfadada olabilir farklı sayfada da olur. eke koyuyuorum dosyayı. teşekkür ederim ilginiz için

Levent Menteşoğlu · 3 Kasım 2006

Ekli dosyayı inceleyin. Mükerrer olan kayıtın bulunduğu satırın rengi sarı olmaktadır.

Dosyada kullanılan kod aşağıdakidir.

Sub SMS()
[a:d].Interior.ColorIndex = xlNone
son = [f65536].End(3).Row
For a = 4 To [a65536].End(3).Row
say = Evaluate("=SUMPRODUCT((B" & a & "=G4:G" & son & ")*(C" & a & "=H4:H" & son & ")*(D" & a & "=I4:I" & son & "))")
If say > 0 Then Range("a" & a & ":d" & a).Interior.ColorIndex = 6
Next
MsgBox "işlem tamamlandı."
End Sub

resurrection · 3 Kasım 2006

Sn Leventm;

sizin gönderdiğiniz makroyu denedim. şöyle bir birşey gözlemledim. benim kullanacağım veri adedi 65536 ama içlerinden çok az bir kısmını boyuyor. daha fazla olması gerekmezmi ? aşağıdaki komut satırlarını ekledim. eşleşmeyen çağrıları maviye boyuyor değilmi, doğrumu anladım? peki aynı mantıkla hareket ederek mesela 1.şirketin verilerini1. sayfadan 2. şirketin verilerini 2.sayfadan alıp karşılaştırıp, eşleşen verileri 3.sayfaya yazdırma şeklinde olabilirmi?teşekkür ederim ilginiz için.

If say = 0 Then Range("a" & a & ":d" & a).Interior.ColorIndex = 5
If say < 0 Then Range("a" & a & ":d" & a).Interior.ColorIndex = 4

Levent Menteşoğlu · 3 Kasım 2006

resurrection' Alıntı:
şöyle bir birşey gözlemledim. benim kullanacağım veri adedi 65536 ama içlerinden çok az bir kısmını boyuyor. daha fazla olması gerekmezmi ?

Yani kod bütün satırları taramıyormu demek istiyorsunuz? Eğer tarayıp az sayıda satırı renklendiriyorsa bu durumda mükerrer kayıt sayınız az demektir.

aşağıdaki komut satırlarını ekledim. eşleşmeyen çağrıları maviye boyuyor değilmi, doğrumu anladım?

Bu doğru

peki aynı mantıkla hareket ederek mesela 1.şirketin verilerini1. sayfadan 2. şirketin verilerini 2.sayfadan alıp karşılaştırıp, eşleşen verileri 3.sayfaya yazdırma şeklinde olabilirmi?teşekkür ederim ilginiz için.

Bu elbette yapılabilir. Mükerre olan kayıtlar 3.sayfaya yazılırken 1.sayfadan silinecekmi?

resurrection · 3 Kasım 2006

karşılaştırmA

sn Leventm;

1. şirketin verileri 1.sayfada olsun, 2. şirketin verileri 2. sayfada olsun, makro ise 1. ve 2. sayfadaki verileri ilk mesajımda belirttiğim şartlar altında eşleştirerek, eşleşenleri 3.sayfada, eşleşmeyenleri 4. sayfada yazdırsın ve veriler silinmesin. böyle bir şey mümkün olabilirmi? ayrıca veri boyutunun max olduğu durum üzerinden hareket edebiliriz. ayrıca size çok teşekkür ediyorum inanın ne kadar yardımcı oldunuz bilemezsiniz..

resurrection · 6 Kasım 2006

kerşılaştırma

sn Leventm:

tekrar iyi günler diliyorum. en son yazdığım mesaja bir yorum bekliyorum cuma gününden beri. o mesajda kullandığım ifadelerden rahatsız olduysanız özür dilerim. sanırım yanlış analşılmaya sebep oldu. kelime sonlarındaki -sun ifadeleri mantıksal durumu anlatmak için kullanılmıştı. Eğer son mesajıma cevap veremeyeceksiniz( yogunluk,vs..) bilmek isterim. tekrar çok teşekkür ederim. iyi günler

İdris SERDAR · 6 Kasım 2006

http://www.excel.web.tr/showthread.php?t=20306

Bu eklentiyi incelediniz mi?

resurrection · 6 Kasım 2006

karşılaştırmA

merhaba;

dosyayı indirdim ama nasıl kullanacağım konusunuda biraz yardıma ihtiyacım var sanırım.

İdris SERDAR · 6 Kasım 2006

Dosyayı eklentilerin Add-Inns' bulunduğu dizininizin içine koyduktan sonra Tools/Add Ins/ Browse'tan ekleyin.

Ya da dosyanızı açın ve daha sonra bu eklenti dosyasını çalıştırın.

Tools'a (Araçlar) bakarsanız orada onu göreceksiniz. Bunu çalıştırdığınızda o sizi yönlendirecek.

Levent Menteşoğlu · 6 Kasım 2006

resurrection' Alıntı:
tekrar iyi günler diliyorum. en son yazdığım mesaja bir yorum bekliyorum cuma gününden beri. o mesajda kullandığım ifadelerden rahatsız olduysanız özür dilerim. sanırım yanlış analşılmaya sebep oldu. kelime sonlarındaki -sun ifadeleri mantıksal durumu anlatmak için kullanılmıştı. Eğer son mesajıma cevap veremeyeceksiniz( yogunluk,vs..) bilmek isterim. tekrar çok teşekkür ederim. iyi günler

Rica ederim. Yanlış anlaşılacak bir durum söz konusu değil. Sorun sadece benim unutkalnlığımdan kaynaklandı. İlk fırsatta sorunuzla ilgileneceğim. Gecikme içim lütfen kusuruma bakmayın.

resurrection · 6 Kasım 2006

kerşılaştırma

sn: yurttas;

söylediğiniz gibi yaptım program çalıştı ama verdiği sonuçlar benim ulaşmak istediklerim değil. ilginiz ve yardımınız için çok teşekkür ederim.

sn : levent;

sizede anlayşınız için tşk ederim. siz uygun bir zaman içinde bekliyorum. iyi günler, iyi çalışmalar.

cqners · 6 Kasım 2006

Anladığım kadarıyla sizin yukarıdaki sonuçları elde etmeniz için mükerrer kayıtla ilgili ve ikisayfayı karşılaştırmak için ise koşullu düşeyara mantığını kullanarak çöze bilirsiniz. Tam komutlara hakim olamadığımdan komut yazamıyorum. Site içerisinde arama yaparsanız bir çok örnek bulabilir kendinize göre yorumluya bilirsiniz. Gerçi bu konuda söz hocalarımıza düşer.

Korhan Ayhan · 6 Kasım 2006

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeyi yaptım incelermisiniz.

cqners · 6 Kasım 2006

Sn. Cost Control,

Vermiş olduğunuz örnekte Firma 2 sayfasındaki Eşleşmeyenler gelmemekte.

Onun dışında süper olmuş.

Korhan Ayhan · 6 Kasım 2006

Selamlar,

Eğer istenen her iki sayfanında kontrolü ise kodu aşağıdaki şekilde uygularsanız sanırım istediğiniz sonuca ulaşırsınız.

Kod:

Sub LİSTELERİ_KARŞILAŞTIR()
    Set S1 = Sheets("FİRMA 1")
    Set S2 = Sheets("FİRMA 2")
    Set S3 = Sheets("EŞLEŞENLER")
    Set S4 = Sheets("EŞLEŞMEYENLER")
    S3.[A2:E65536].ClearContents
    S4.[A2:E65536].ClearContents
    S = 1
    S1.Select
    For X1 = 4 To [A65536].End(3).Row
    Cells(X1, 6) = Cells(X1, 2) & Cells(X1, 3) & Cells(X1, 4)
    Next
    S2.Select
    For X2 = 4 To [A65536].End(3).Row
    Cells(X2, 6) = Cells(X2, 2) & Cells(X2, 3) & Cells(X2, 4)
    Next
    S3.Select
    For X3 = 4 To S1.[A65536].End(3).Row
    Say = WorksheetFunction.CountIf(S2.[F4:F65536], S1.Cells(X3, 6))
    If Say > 0 Then
    S = S + 1
    S3.Cells(S, 1) = S1.Cells(X3, 1)
    S3.Cells(S, 2) = S1.Cells(X3, 2)
    S3.Cells(S, 3) = S1.Cells(X3, 3)
    S3.Cells(S, 4) = Format(S1.Cells(X3, 4), "dd.mm.yyyy hh:mm:ss")
    S3.Cells(S, 5) = S1.Name
    End If
    Next
    S = 1
    S4.Select
    For X4 = 4 To S1.[A65536].End(3).Row
    Say = WorksheetFunction.CountIf(S2.[F4:F65536], S1.Cells(X4, 6))
    If Say = 0 Then
    S = S + 1
    S4.Cells(S, 1) = S1.Cells(X4, 1)
    S4.Cells(S, 2) = S1.Cells(X4, 2)
    S4.Cells(S, 3) = S1.Cells(X4, 3)
    S4.Cells(S, 4) = Format(S1.Cells(X4, 4), "dd.mm.yyyy hh:mm:ss")
    S4.Cells(S, 5) = S1.Name
    End If
    Next
    For X5 = 4 To S2.[A65536].End(3).Row
    Say = WorksheetFunction.CountIf(S1.[F4:F65536], S2.Cells(X5, 6))
    If Say = 0 Then
    S = S + 1
    S4.Cells(S, 1) = S2.Cells(X5, 1)
    S4.Cells(S, 2) = S2.Cells(X5, 2)
    S4.Cells(S, 3) = S2.Cells(X5, 3)
    S4.Cells(S, 4) = Format(S2.Cells(X5, 4), "dd.mm.yyyy hh:mm:nn")
    S4.Cells(S, 5) = S2.Name
    End If
    Next
    S1.[F4:F65536] = ""
    S2.[F4:F65536] = ""
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

cqners · 6 Kasım 2006

Sn. Cost Control,

Sn. resurrection istediği böyle birşey ise gerçekten harika.

resurrection · 6 Kasım 2006

kerşılaştırma

sn : Cost control;

son yaptığınız düzenleme ile varmak istediğim sonuçlara ulaştım. çok güzel olmuş emeğinize ve ellerinize sağlık. 1-2 nokta var sormak istediğim;

1- S4.Cells(S, 4) = Format(S1.Cells(X4, 4), "dd.mm.yyyy hh:mm:nn")
kod satırında yer alan format komutu saat kısmını farklı oluşuyor sanırım. saniye kısmında 10 -15 saniyelik farklılıklar oluştu. ayrıca format komutunu kaldırıp çalıştırdığımda ise bu farklılıklar kayboldu. bu konudaki fikirleriniz nedir?

2- aynı tarihteki kayıtlar için aynı saniye değil de saniye aralığı olmasını istersek nasıl bir durum ortaya çıkabilir ya da gerçekleşme şansı varmı?

çok teşekkür ederim.

Karşılaştırma

resurrection

Levent Menteşoğlu

Administrator

Selçuk1

resurrection

Levent Menteşoğlu

Administrator

resurrection

Levent Menteşoğlu

Administrator

resurrection

resurrection

İdris SERDAR

Moderatör

resurrection

İdris SERDAR

Moderatör

Levent Menteşoğlu

Administrator

resurrection

cqners

Korhan Ayhan

Administrator

cqners

Korhan Ayhan

Administrator

cqners

resurrection