2 sütün arasındaki farkı bulmak

[deasn]

Selam arkadaşlar ek dosyada sarı ile boyalı olan tablo1 de olup tablo2 de olmayan müşteri kodlarını ve isimlerini bulmak istiyorum yardımcı olursanız sevinirim.
Not: 2si arasındaki farkı sadece müşteri kodlarından bulmamız gerekiyor isim o kadar önemli değil..Kısaca özetlemem gerekirse tablo1 de olup tablo2 de olmayan müşterileri bulmak istiyorum..Teşekkür ederim

http://www.dosya.tc/server26/gnlHcm/MUSTERI_SABLON_AMASYA-2.rar.html

 

[1Al2Ver]

Merhaba,

Sitede "mükerrer" ismiyle arama yaparsanız, makrolu ve formüllü bir çok örnek ve çözülmüş dosya bulabilir siniz.

 

[deasn]

inanın bulamadım bu konu hakkında bir yardımcı olurmusunuz.

 

[deasn]

excellde daha yeniyim büyük heves var öğrenmek için verdiğim dosya üzerinde bir örnekleme yaparsanız çok sevinirim

 

[ZorBey_]

Merhaba iyi çalışmalar
Sayın deasn
Ekli dosyayı denermisiniz.

http://s3.dosya.tc/server20/iGpbAa/M.Kodu-01.rar.html

 

[1Al2Ver]

Merhaba,

Sonuç ne olmalı, yani "2 Sİ ARASINDAKİ FARK" sayfasında kaç kayıt olmalı ?

 

[Murat OSMA]

Merhaba,

Sonuç ne olmalı, yani "2 Sİ ARASINDAKİ FARK" sayfasında kaç kayıt olmalı ?

497 Kayıt olmalı.
______________________________________________
Sn. deasn,
ADO ile basitçe yapabilirsiniz.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
http://yadi.sk/d/eT_F7UWOKz52x

Sub KOD()
    Application.ScreenUpdating = False
    Dim i      As Integer
    Dim sat    As Integer
    Dim S1     As Worksheet
    Dim S2     As Worksheet
    Dim SF     As Worksheet
    Set S1 = Sheets("1 TABLO")
    Set S2 = Sheets("2 TABLO")
    Set SF = Sheets("2Sİ ARASINDAKI FARK")
    sat = 2

    SF.Range("A2:R65536").ClearContents

    For i = 2 To S1.[A65536].End(3).Row
        If WorksheetFunction.CountIf(S2.Range("A1:A65536"), "*" & S1.Cells(i, "A") & "*") = 0 Then
            S1.Range("A" & i & ":R" & i).Copy SF.Cells(sat, "A")
            sat = sat + 1
        End If
    Next i

    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[deasn]

olay budur allah razı olsun hocam cok saol