2 listeyi karşılaştırma (Yardım)

[snaykeder]

1. sayımda olupta 2. sayımda olanları ve 2.sayımda olupta 1. sayımda olanları bana Sonuç sheet bölümünde Listeyi oluştur dediğim zaman farkı versin

1. sayımda var 2. sayımda yok
2.sayımda var 1. sayımda yok gibi

Yada daha kolay nasıl yapılır bilgi verebilirmisiniz sabahtan beri uğrasıyorum aramadık yer kalmadı yardımcı olabilir misiniz.

 

[Huseyinkis]

2 sayım sayfası b2: hücresine

=EĞERSAY('1. Sayım Fark Raporu Fifo'!$A$2:$A$4936;A2)

1 sayım sayfası b2: hücresine

=EĞERSAY('2. Sayım Fark Raporu Fifo'!$A$2:$A$4936;A2)

yukarıdaki formülleri yazıp aşağı doğru kopyalayınız. Daha sonra B2 hücresinde 0 olanlar 1.sayım için 2 sayımda olmayanlar 2.sayım için 1. sayımda olmayanlar olacaktır.

 

[snaykeder]

2 sayım sayfası b2: hücresine

=EĞERSAY('1. Sayım Fark Raporu Fifo'!$A$2:$A$4936;A2)

1 sayım sayfası b2: hücresine

=EĞERSAY('2. Sayım Fark Raporu Fifo'!$A$2:$A$4936;A2)

yukarıdaki formülleri yazıp aşağı doğru kopyalayınız. Daha sonra B2 hücresinde 0 olanlar 1.sayım için 2 sayımda olmayanlar 2.sayım için 1. sayımda olmayanlar olacaktır.

Teşekkürler yapamadım sanırım #Name yazıyor dediğiniz gibi 0 diye bilgi vermiyor

 

[snaykeder]

Makro ile yazılış olarak yardımcı olabilecek varmı?

 

[snaykeder]

Teşekkürler yapamadım sanırım #Name yazıyor dediğiniz gibi 0 diye bilgi vermiyor

Resimde görüldüğü gibi Her iki aydada olan müşteriler kısmındaki

Mayısta girişi olan bir kişinin nisan'da yoksa beyaz olarak görülüyor ve Nisanta olupta Mayısta olmaması gibi

formül olarak alttaki resim gibi vermiş ama anlam çıkaramadı

 

[snaykeder]

Konu için yardım edebilecek olan varmı?

 

[snaykeder]

Güncel konu yardımlarınızı bekliyorum

 

[apocalyt]

şu makroyu kullanın...sonuç sayfasında c sutununda oluşacak değerler 1 inci sayfada olupta ikinci sayfada olmıyanlar.. d sutununda oluşacak değerler ise 2 sayfada olupta 1 inci sayfada olmıyanlardır..

Sub daylight()
Application.ScreenUpdating = False
For x = 2 To Sheets(1).[a10000].End(3).Row
If WorksheetFunction.CountIf(Sheets(2).Range("a2:a" & Sheets(2).[a10000].End(3).Row), Sheets(1).Cells(x, 1)) = 0 Then
Sheets(3).Cells(Sheets(3).[c10000].End(3).Row + 1, 3) = Sheets(1).Cells(x, 1)
End If
Next x
For x = 2 To Sheets(2).[a10000].End(3).Row
If WorksheetFunction.CountIf(Sheets(1).Range("a2:a" & Sheets(1).[a10000].End(3).Row), Sheets(2).Cells(x, 1)) = 0 Then
Sheets(3).Cells(Sheets(3).[d10000].End(3).Row + 1, 4) = Sheets(2).Cells(x, 1)
End If
Next x
Application.ScreenUpdating = True
MsgBox "İşleminiz bitmiştir.", vbInformation
End Sub

 

[snaykeder]

Teşekkürler ama beceremedim
sanırım dosyamın üzerinde yapıp gönderebilirmisiniz.

 

[apocalyt]

dosya ektedir.

 

[snaykeder]

Çok teşekkürler
Ellerinize yüreğinize sağlık

 

[apocalyt]

sizde saolun..

 

[mgurten]

makrosuz alternatif olsun

 

[snaykeder]

Çok tesekkürler arkadaslar baya işime yaradı
yönetim dilinden kurtuldum