Karşılaştırma

[cemshan]

Sevgili arkadaslar
iki sutunda yazan rakamlarin eşlemesini yapip hatayi tespit etmek için forumdan bir tablo bulmustum sizden ricam bu tabloyu güncelleye bilirmisiniz ? Simdiden teşekürler

 

[fedeal]

Selam,liste makrosunun son iki satırını silmek yeterli olacak,

Sub listele()
For a = 3 To [b65536].End(3).Row
eski = Cells(a, "b")
yeni = Cells(a, "e")
If WorksheetFunction.CountIf([e:e], eski) = 0 Then Cells(a, "b").Interior.ColorIndex = 6
If WorksheetFunction.CountIf([b:b], yeni) = 0 Then Cells(a, "e").Interior.ColorIndex = 38
Next
End Sub

iyi çalışmalar.

 

[cemshan]

Selam,liste makrosunun son iki satırını silmek yeterli olacak,

Sub listele()
For a = 3 To [b65536].End(3).Row
eski = Cells(a, "b")
yeni = Cells(a, "e")
If WorksheetFunction.CountIf([e:e], eski) = 0 Then Cells(a, "b").Interior.ColorIndex = 6
If WorksheetFunction.CountIf([b:b], yeni) = 0 Then Cells(a, "e").Interior.ColorIndex = 38
Next
End Sub

iyi çalışmalar.

Syn fedeal
Teşekür Ederim çok saolun