Lİstede Olmayan Ya da İki defa Olan Sayıların Gösterilmesi

[leventyarali]

Arkadaşlar merhaba,

Elimde 75000 satırlık bir liste var. Bu listenin G sütununda sırası ile numaralar yer alıyor. (07/00001, 07/00002, 07/00003, 07/00005 gibi.) Amacım listede 07/00004 listede yok ise bunun ayrı bir sayfada gözükmesi. Yada 07/00003'den iki tane var ise farkına varabilmem için birisinin sarı olması.

Yardımcı olabilecek arkadaşlara şimdiden çok teşekkür ederim.

 

[leumruk]

Merhaba,

Sub dene()
Set s2 = Sheets("Sayfa2")
s2.Columns(1).ClearContents
Sat = 1
Range("g2:g" & [g65536].End(3).Row).Interior.ColorIndex = xlNone
For x = 3 To [g65536].End(3).Row
[ıv1] = Split(Cells(x, "g"), "/")
arl = Len([ıv1]) + 2
deger1 = Mid(Cells(x - 1, "g").Value, arl, Len(Cells(x - 1, "g").Value))
deger2 = Mid(Cells(x, "g").Value, arl, Len(Cells(x, "g").Value))
knt = [ıv1] & "/" & deger1 + 1
Say = WorksheetFunction.CountIf(s2.Range("a1:a" & s2.[a65536].End(3).Row), knt)
If Val(deger1) <> Val(deger2 - 1) And Say = 0 Then
s2.Cells(Sat, "a") = knt
Sat = Sat + 1
End If
If WorksheetFunction.CountIf(Range("g2:g" & [g65536].End(3).Row), Cells(x, "g")) > 1 Then
Cells(x, "g").Interior.ColorIndex = 6
End If
Next
[ıv1].ClearContents
End Sub

NOT: Başta bulunan sıfırları aldıramadım. Toplama işlemi yaptırdığımdan baştaki sıfırları etkisiz eleman olarak iptal ediyor.

 

[leventyarali]

Eksikler

Öncelikle ilginiz için çok teşekkürler. Listede bir sıkıntı var ancak.

Listede aşağıdaki sayılar yok mesela. Sayfa 2'de sadece bunların olması gerekirdi.

07/010008
07/010010
07/010012
07/010113

Bunun yerine
07/010007
07/010009
07/010011
07/010113
07/010114
07/010115
07/010116
07/010117
07/010118
07/010119
07/010120
07/010121
çıkmış ki bunların çoğu Ana listede zaten var. Olmayanlar değil yani bunlar. Ayrıca 07/010008 gibi olmayan saytı da Sayfa 2'de yok.

Yardımlarınız için çok teşekkürler.

 

[leumruk]

Kodları ve dosyayı güncelledim.