Istenen ve gönderilen sütunlarını karşılaştırma

[el-vis]

Istenen ve gönderilen sütunlarını karşılaştırıp eksik ve fazla olanları bulmak itiyorum.tablo ektedir.teşekkürler

 

[tlgsri88]

ETOPLA formülünü kullanabilirsin.
mesela bir satırda barkodları yazıp altlarınada formül yazabilirsin.
örneğin 123 barkodlu ürün için =EĞERSAY(A2:A7;"123")-EĞERSAY(C2:C7;"123") yazdığın zaman 1 adet eksik olduğunu görebilirsin.

 

[el-vis]

Burada binlerle ifade edilen barkod vardır.onların hepsi için bunu uygulamak mümkün değildir.

 

[Muhammet Okumuş]

Merhaba,

Sub Karşılaştır()
Application.ScreenUpdating = False
Range("A2:C10000").Interior.ColorIndex = 2
son = Cells(Rows.Count, "A").End(3).Row
son1 = Cells(Rows.Count, "C").End(3).Row
For i = 2 To son
istenen = WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, 1))
gönderilen = WorksheetFunction.CountIf(Range("C2:C" & son1), Cells(i, 1))
If istenen <= gönderilen Then Cells(i, 1).Interior.ColorIndex = 5
Next
For i = 2 To son1
gönderilen = WorksheetFunction.CountIf(Range("C2:C" & i), Cells(i, 3))
istenen = WorksheetFunction.CountIf(Range("A2:A" & son), Cells(i, 3))
If gönderilen <= istenen Then Cells(i, 3).Interior.ColorIndex = 5
Next
End Sub

kodları deneyiniz.

 

[el-vis]

çok teşekkür ederim,elinize sağlık.çok güzel olmuş

 

[turist]

Alternatif olarak Formülle çözümleniş dosya eklidir.
İnceleyiniz.

 

[el-vis]

Sayın turist bey.sizede çok teşekkür ediyorum.Her zaman yardımıma koşuyorsunuz.Çok şey öğrendim sizden.Sağolun...