Iki Ayri Tablo Ve Farklari

senuyurken · 1 Eylül 2008

Merhaba Arkadaslar Oncelikle Hayirli Ramazanlkar Dilerim

Ekte Vermis Oldugum Ornek Dosyama Bakarsaniz Cok Cok Memnun Olurum... Sayfa 1 De Gerekli Aciklamayi Yazdim ...

Insallah Yardimci Olursunuz

Not : Lutfen Excel Dosyasi Olarak Upload Edin.. Sirket Tarafindan Zipli Dosyalar Inidiremiyoruz...

Selametle

senuyurken · 1 Eylül 2008

Arkadaslar sabah 6 dan bu yana ugrasiyorum. Mumkunse bir bakarmisiniz yardimci olurmusunuz....

Tesekkurler

hayri tekin · 1 Eylül 2008

senuyurken' Alıntı:
Arkadaslar sabah 6 dan bu yana ugrasiyorum. Mumkunse bir bakarmisiniz yardimci olurmusunuz....

Tesekkurler

Merhaba,
Senin adına çok üzüldüm arkadaşım.Ama geç de olsa işini görecek tablo ekte.
Kolay gelsin..

senuyurken · 1 Eylül 2008

tekintek' Alıntı:
Merhaba,
Senin adına çok üzüldüm arkadaşım.Ama geç de olsa işini görecek tablo ekte.
Kolay gelsin..

Cok tesekkur ederim dostum. Hemen deneyecem sonucu bildirecem..

Selametle

senuyurken · 2 Eylül 2008

Galiba Yapamadim... Yardimm edermisiniz lutfen

Tekintek kardesim sorunlarimla ilgilendigin icin tesekkur ederim...

Galiba ben sizin yapmis oldugunuzu ben uygulayamadim...

Tekrar dosya ekledim buna gore bakip iki dosya arasindaki farklari bulabilirmisin...

Tesekkur ederim.... Saat 0rda 7 :20 burda 10:20

Selametle

Necdet · 2 Eylül 2008

Merhaba,

Makro ile çözüm isterseniz eğer :

Not : Benim için excelin ilk dolu hücresi A1 dir, çok çok zorunlu olmadıktan sonra. Aşağıdaki kodları da ona göre düzenledim.

Kod:

Sub Karsilastir()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Set s3 = Sheets("Sayfa3")
s3.Range("A2:D65536").ClearContents
Dim i As Long, Sat As Long
Dim Adet As Integer
Application.ScreenUpdating = False
Sat = 1
For i = 2 To s1.[A65536].End(3).Row
    Set Bul = s2.Columns(1).Find(s1.Cells(i, "A"))
    If Bul Is Nothing Then
        Sat = Sat + 1
        Adet = Adet + 1
        s3.Cells(Sat, "A") = s1.Cells(i, "A")
        s3.Cells(Sat, "B") = s1.Cells(i, "B")
        s3.Cells(Sat, "C") = s1.Cells(i, "C")
        s3.Cells(Sat, "D") = s1.Cells(i, "D")
    End If
Next i
MsgBox " Sayfa2 de Olmayan " & Adet & " Kişi Buldum ......"
s3.Select
End Sub

Not 2 : Yavaşlıktan dolayı dosyayı ekleyemedim.

hayri tekin · 2 Eylül 2008

senuyurken' Alıntı:
Tekintek kardesim sorunlarimla ilgilendigin icin tesekkur ederim...

Galiba ben sizin yapmis oldugunuzu ben uygulayamadim...

Tekrar dosya ekledim buna gore bakip iki dosya arasindaki farklari bulabilirmisin...

Tesekkur ederim.... Saat 0rda 7 :20 burda 10:20

Selametle

Dosyanız ekte.
Yapmanız gereken sadece hücre başvurularını değiştirmekti.
İyi çalışmalar

senuyurken · 2 Eylül 2008

Necdet Yeşertener' Alıntı:
Merhaba,

Makro ile çözüm isterseniz eğer :

Not : Benim için excelin ilk dolu hücresi A1 dir, çok çok zorunlu olmadıktan sonra. Aşağıdaki kodları da ona göre düzenledim.

Kod:

Sub Karsilastir() Set s1 = Sheets("Sayfa1") Set s2 = Sheets("Sayfa2") Set s3 = Sheets("Sayfa3") s3.Range("A2:D65536").ClearContents Dim i As Long, Sat As Long Dim Adet As Integer Application.ScreenUpdating = False Sat = 1 For i = 2 To s1.[A65536].End(3).Row Set Bul = s2.Columns(1).Find(s1.Cells(i, "A")) If Bul Is Nothing Then Sat = Sat + 1 Adet = Adet + 1 s3.Cells(Sat, "A") = s1.Cells(i, "A") s3.Cells(Sat, "B") = s1.Cells(i, "B") s3.Cells(Sat, "C") = s1.Cells(i, "C") s3.Cells(Sat, "D") = s1.Cells(i, "D") End If Next i MsgBox " Sayfa2 de Olmayan " & Adet & " Kişi Buldum ......" s3.Select End Sub

Not 2 : Yavaşlıktan dolayı dosyayı ekleyemedim.

merhaba necdet bey

dosyanizii indiremiyorum... Daha oncede demistim zip olan dosyalari indiremiyoruz sirkette. xls veya rar olursa indirebiliyoruz...

O nedenle dosyanizi inceleyemedim... Mumkunse tekrar upload dermisiniz.

Not : verdiginiz makroyu calistir bir kac kisi degistirdim tabloda ama her defasinda 0 kisi buldum diyor...

Selametle...

senuyurken · 2 Eylül 2008

tekintek' Alıntı:
Dosyanız ekte.
Yapmanız gereken sadece hücre başvurularını değiştirmekti.
İyi çalışmalar

Tejikntek kardes sizin vermis oldugunuz ornege gore sadece listeleri yapistirdim formulleri asagi dogru kopyaladim yapamadim...

Analayamadim ben size zahmet tekrar aciklarmisiniz... tesekkurler...

hayri tekin · 2 Eylül 2008

Dosyanızı ekleyemiyorum,bir sorun var ama alnmaya çalışıyorum???

Necdet · 2 Eylül 2008

Merhaba,

Özür dosyayı xls olarak istediğinizi unutmuşum.

senuyurken · 2 Eylül 2008

Necdet Yeşertener' Alıntı:
Merhaba,

Makro ile çözüm isterseniz eğer :

Not : Benim için excelin ilk dolu hücresi A1 dir, çok çok zorunlu olmadıktan sonra. Aşağıdaki kodları da ona göre düzenledim.

Kod:

Sub Karsilastir() Set s1 = Sheets("Sayfa1") Set s2 = Sheets("Sayfa2") Set s3 = Sheets("Sayfa3") s3.Range("A2:D65536").ClearContents Dim i As Long, Sat As Long Dim Adet As Integer Application.ScreenUpdating = False Sat = 1 For i = 2 To s1.[A65536].End(3).Row Set Bul = s2.Columns(1).Find(s1.Cells(i, "A")) If Bul Is Nothing Then Sat = Sat + 1 Adet = Adet + 1 s3.Cells(Sat, "A") = s1.Cells(i, "A") s3.Cells(Sat, "B") = s1.Cells(i, "B") s3.Cells(Sat, "C") = s1.Cells(i, "C") s3.Cells(Sat, "D") = s1.Cells(i, "D") End If Next i MsgBox " Sayfa2 de Olmayan " & Adet & " Kişi Buldum ......" s3.Select End Sub

Not 2 : Yavaşlıktan dolayı dosyayı ekleyemedim.

OZUR DILERIM A1 HUCRESINI DIKKATE ALMAMISIM.. A1 DEN BASLAYINCA 53 KISI BULDU TESEKKURLER...

senuyurken · 2 Eylül 2008

Necdet Yeşertener' Alıntı:
Merhaba,

Özür dosyayı xls olarak istediğinizi unutmuşum.

TESEKKURLER

NECDET BEY ISTEDIGIM GIBI OLMUS COK SAOLLLL

:hey: :hey: :hey: :hey: :hey:

NECDET BEY MERHABA YINE BEN COK RAHATSIZ ETTIM INAN....

YA BENDE BIRSEYLER VAR GALIBA..... KARSILASTIRMA ISLEMINDE ISIM VE TUTARLARIDA KONTROL ETMESI LAZIM....

YAPTIGINIZA GORE TAMAM OLMAYAN KISILERI BULUYOR.. AYNI ZAMANDA YANLIS OLAN TUTARLARIDA DA CIKARMASI LAZIM...

BUNU YAPMANIZ MUMKUNMU ... YANI SICILLER DOGRU ISIMLER DOGRU FAKAT BIR KAC KISININ TUTARI YANLIS BU SEKILDE ISTIYORUM MUMKUNSE ONUDA YAPARMISINIZ.....

SELAMETLE..........

hayri tekin · 2 Eylül 2008

Tutar Kontrolü işin içine girince bu işiniz Sn.Necdet hocama kalıyor..
Ama o halleder,eminim..
Saygılar..

senuyurken · 2 Eylül 2008

tekintek' Alıntı:
Tutar Kontrolü işin içine girince bu işiniz Sn.Necdet hocama kalıyor..
Ama o halleder,eminim..
Saygılar..

Tesekkurler Tekintek bey kardasim....

Elimde bu sekil karsilastirilmasi geren cok dosya var...
Dunden bu yana ugrasiyorum... Beceremedim ya ...

Necdet Hocanin online olmasini bekliyecez....

Selametle....

Necdet · 2 Eylül 2008

Merhaba,

Kodlara küçük birer ekle ad, soyad ve tutarlarda kontrol edild.

Kod:

Sub Karsilastir()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Set s3 = Sheets("Sayfa3")
s3.Range("A2:D65536").ClearContents
Dim i As Long, Sat As Long
Dim Adet As Integer
Application.ScreenUpdating = False
Sat = 1
For i = 2 To s1.[A65536].End(3).Row
    Set Bul = s2.Columns(1).Find(s1.Cells(i, "A"))
    If Bul Is Nothing Then
        Sat = Sat + 1
        Adet = Adet + 1
        s3.Cells(Sat, "A") = s1.Cells(i, "A")
        s3.Cells(Sat, "B") = s1.Cells(i, "B")
        s3.Cells(Sat, "C") = s1.Cells(i, "C")
        s3.Cells(Sat, "D") = s1.Cells(i, "D")
    Else
        If s1.Cells(i, "B") <> s2.Cells(Bul.Row, "B") Or _
           s1.Cells(i, "C") <> s2.Cells(Bul.Row, "C") Or _
           s1.Cells(i, "D") <> s2.Cells(Bul.Row, "D") Then
                Sat = Sat + 1
                Adet = Adet + 1
                s3.Cells(Sat, "A") = s1.Cells(i, "A")
                s3.Cells(Sat, "B") = s1.Cells(i, "B")
                s3.Cells(Sat, "C") = s1.Cells(i, "C")
                s3.Cells(Sat, "D") = s1.Cells(i, "D")
        End If
    End If
Next i
MsgBox " Sayfa2 de Olmayan " & Adet & " Kişi Buldum ......"
s3.Select
End Sub

Necdet · 2 Eylül 2008

Merhaba,

Hızlı yanıt vermek isteyince kodlar biraz uzun oldu, yani tekrar vardı.

Kod:

Sub Karsilastir()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Set s3 = Sheets("Sayfa3")
s3.Range("A2:D65536").ClearContents
Dim i As Long, Sat As Long
Dim Adet As Integer
Dim Durum As Boolean
Application.ScreenUpdating = False
Sat = 1
For i = 2 To s1.[A65536].End(3).Row
Durum = 1
Set Bul = s2.Columns(1).Find(s1.Cells(i, "A"))
If Bul Is Nothing Then
Durum = 0
Else
If s1.Cells(i, "B") <> s2.Cells(Bul.Row, "B") Or _
s1.Cells(i, "C") <> s2.Cells(Bul.Row, "C") Or _
s1.Cells(i, "D") <> s2.Cells(Bul.Row, "D") Then
Durum = 0
End If
End If
 
If Durum = False Then
Sat = Sat + 1
Adet = Adet + 1
s3.Cells(Sat, "A") = s1.Cells(i, "A")
s3.Cells(Sat, "B") = s1.Cells(i, "B")
s3.Cells(Sat, "C") = s1.Cells(i, "C")
s3.Cells(Sat, "D") = s1.Cells(i, "D")
End If
Next i
MsgBox " Sayfa2 de Olmayan " & Adet & " Kişi Buldum ......"
s3.Select
End Sub

senuyurken · 2 Eylül 2008

Necdet Yeşertener' Alıntı:

Merhaba,

Kodlara küçük birer ekle ad, soyad ve tutarlarda kontrol edild.

Kod:

Sub Karsilastir()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Set s3 = Sheets("Sayfa3")
s3.Range("A2:D65536").ClearContents
Dim i As Long, Sat As Long
Dim Adet As Integer
Application.ScreenUpdating = False
Sat = 1
For i = 2 To s1.[A65536].End(3).Row
    Set Bul = s2.Columns(1).Find(s1.Cells(i, "A"))
    If Bul Is Nothing Then
        Sat = Sat + 1
        Adet = Adet + 1
        s3.Cells(Sat, "A") = s1.Cells(i, "A")
        s3.Cells(Sat, "B") = s1.Cells(i, "B")
        s3.Cells(Sat, "C") = s1.Cells(i, "C")
        s3.Cells(Sat, "D") = s1.Cells(i, "D")
    Else
        If s1.Cells(i, "B") <> s2.Cells(Bul.Row, "B") Or _
           s1.Cells(i, "C") <> s2.Cells(Bul.Row, "C") Or _
           s1.Cells(i, "D") <> s2.Cells(Bul.Row, "D") Then
                Sat = Sat + 1
                Adet = Adet + 1
                s3.Cells(Sat, "A") = s1.Cells(i, "A")
                s3.Cells(Sat, "B") = s1.Cells(i, "B")
                s3.Cells(Sat, "C") = s1.Cells(i, "C")
                s3.Cells(Sat, "D") = s1.Cells(i, "D")
        End If
    End If
Next i
MsgBox " Sayfa2 de Olmayan " & Adet & " Kişi Buldum ......"
s3.Select
End Sub

ECDET aBI SIZE NASIL TESEKKUR EDECEGIMI bILEMIYORUM GERCEKTEN HARIKA OLMUS. eLLERINIZE SAGLIK....

Simdi belki kizacan ama sizin hazirladiginiz 2 tabloyuda kullaniyorum

1 ncisinde farkli isimleri bulup listeliyor
2 ncisinde sicil ad soyad tura inceliyor super

ben kodlardan anlamadigim icin son birsey daha istiyorum buyuklugunuze dayanarak

sicil no ve tutar kontrol etsin bu kez mumkunmu

birde dosya yi excel olarak atarsaniz memnun olurum.....

ALLAH RAZI OLSUN

SELAMETLE

Necdet · 2 Eylül 2008

Merhaba,

Son gönderdiğimde Ad ve Soyadı da kontrol ediyordu, şimdi sadece Sicil no ve tutarı mı kontrol etsin istiyorsunuz?

senuyurken · 2 Eylül 2008

Necdet Yeşertener' Alıntı:
Merhaba,

Son gönderdiğimde Ad ve Soyadı da kontrol ediyordu, şimdi sadece Sicil no ve tutarı mı kontrol etsin istiyorsunuz?

Evet necdet abi. Kusura bakma Gercekten cok yardimlarin oldu...

Dedigin gibi sicil ve turalarida kontrol etsin ama ayri.... Kodlardsan anlasam inanki seni zahmete sokmam abi...

1- Iki tablo arasindaki olmayan isimleri sicilleri ile listeledi cok guzel......
2- sicil ad-soyad-tutara gore listeledfi bu da cok cok sahane.....
3- simdide sadece sicil ve tuatara gore listelemesini istiyorum

hepsi ayri ayri excel kitapciginda olacak....

Sebebini sorarsaniz calistigim firmada 1300 turk ve 5000 ne yakin yabanci calisiyor. Yabancilarin isim ve soyisimlerini yazmakta gucluk cekiyoruz kontrol acisindan bu nedenle 2 nolu secenegi istedim sizden 1 istedigim hem turk hem yabanci listlerinde kullanabiliyorum.... 3 ncusu ise sicil ve turalari genel olarak tablonun dogrulugunu yapmak yonunden istiyorum...

cok cok tesekkur ederim..

Selametle

Iki Ayri Tablo Ve Farklari

senuyurken

senuyurken

hayri tekin

senuyurken

senuyurken

Necdet

Moderatör

hayri tekin

senuyurken

senuyurken

hayri tekin

Necdet

Moderatör

senuyurken

senuyurken

hayri tekin

senuyurken

Necdet

Moderatör

Necdet

Moderatör

senuyurken

Necdet

Moderatör

senuyurken