Iki tabloyu karşılaştırma

[tar23]

iki tabloyu karşılaştırıp olmayan kodları bulmak istiyorum veriler çok fazla yaklaşık 30000 kod var olmayanları tespit etmem gerekiyor yardımlarınız için teşekkürler

tablo 1 b1 hücresinden başlıyor 4 sütün
0010011190160
0010011190190
0010011190250
0010011190280
0010011190320

tablo 2 g2 hücresinden başlıyor 4 sütün
0010011190160
0010011190190
0010011190250
0010011190280
0010011190320
0010011190380
0010011190500
0010011200130
0010011200160
0010011200190

 

[Mahmut Kök]

Aşağıdaki gibi bir kod kullanabilirsiniz. Sayı çok fazla ise işlemin tamamlanması biraz vakit alabilir.

Private Sub CommandButton1_Click()
For a = 1 To 4 '4 sütun olduğu için
    For b = 1 To Cells(65536, a).End(3).Row 'her sütundaki son satıra kadar bakacak.
    Set bak = Range("g2:j65536").Find(Cells(b, a), lookat:=xlWhole)
    If bak Is Nothing Then Cells(b, a).Interior.Color = vbRed
set bak=nothing
    Next
Next
MsgBox "bitti"
End Sub

 

[tar23]

Merhaba ilginize teşekkrüler fakat makrolama konusunda fazla bilgim yok
ekteki dosyayı inceleyeyip bir dosya hazırlayabilirmisiniz
teşekkürler

 

[Mahmut Kök]

Sayın tar23, sadece kodları karşılaştırsak yeterli olur mu? Yoksa adetlere kadar karşılaştırma yapılacak mı?

 

[tar23]

evet sadece kodlar yeterli
fakat kodları tamamladıktan sonrada kodları aynı ama isimleri farklı olanları aramam gerekiyor size zahmet olmassa iki şekilde de bir çalışma yaparmısınız.
teşekkürler

 

[Mahmut Kök]

Ekli dosyaya bakınız. Kodlar uymazsa isimlere bakmaksızın hücreyi kırmızıya boyuyor, kod tuttuğu halde isim tutmazsa, isim kısmını maviye boyuyor. Siz boyamak yerine başka şeyler de yaptırabilirsiniz tabii ki.

 

[tar23]

Sayın Mahmut Kök,
çok teşekkür ederim size zahmet verdim. 1. tabloda olmayan ve kırmızıya boyanan hücrelerin yanına a sütününa 1 maviye bayanan hücrelerin yanına a sütununa 2 yazılabilirse olmayan kayıtları sırayalarak aradan çeker ve sadece olmayan kayıtları görebilirim çünkü bu bilgileri muhasebe praoğramına yüklemem gerekiyor.herşey için çok teşekkürler.

 

[tar23]

Sayın Kök,
Hazırladığınız makroyu biraz karıştırarak deneme yanılma yolu ile sorunu hallettim
yardımlarınız için çok teşekkürler