Farklı sayfalardaki değerleri karşılaştırma

[mehmetf]

Sa
arkadaşlar 10 numara bir sorum olacak!
aşağıda ek'te bulunan excel dosyasına bir formül veya bir vb yazılımı ile basit bir işlem yaptırmak istiyorum.

Olayı kısaca anlatayım.

A çalışma sayfasında bulunan erbik numaraları ile b sayfasında bulunan erbik numaraları arasında bir çakışma yani aynı numaralar var ise çakışanlar sayfasına çalışma sayfası ismi ile beraber çakışan numaraları atması gerektiği,

ve çakışanlar sayfasında bulunan satırlara herhangibir numara otomatik olarak geldiğinde ise ana sayfadaki çakışma var-yok satırı karşına uyarı amaçlı olarak renk ifade etmesini.

Bu işlemi makro kullanarak yapamadım. En azından kendi bilgim işe yapamadığıma kanaat getirdiğim için siz değerli üstadlarımdan yardım almayı daha uygun gördüm.
Umarım fazla bir şey istememişimdir.
Selam dua ile

 

[fedeal]

Tam anladıgımı söyleyemem ama bir deneme istediginiz bu olabilirmi?

Sub n()
Set sf1 = Sheets("A")
Set sf2 = Sheets("B")
Set sf = Sheets("ÇAKIŞANLAR")
Sheets("ANA SAYFA").Range("c6:c7").Interior.ColorIndex = xlNone
sf.Range("b7:d65000").ClearContents
For i = 2 To sf1.Range("A65536").End(xlUp).Row
For s = 2 To sf2.Range("A65536").End(xlUp).Row
If sf1.Cells(i, 1).Value = sf2.Cells(s, 1).Value Then
satır = sf.Range("b65536").End(xlUp).Row + 1
sf.Cells(satır, 2).Value = "A"
sf.Cells(satır, 3).Value = sf1.Cells(i, 1).Value
sf.Cells(satır, 4).Value = sf1.Cells(i, 2).Value
sf.Cells(satır + 1, 2).Value = "B"
sf.Cells(satır + 1, 3).Value = sf2.Cells(i, 1).Value
sf.Cells(satır + 1, 4).Value = sf2.Cells(i, 2).Value
Sheets("ANA SAYFA").Cells(6, 3).Interior.ColorIndex = 3
End If
Next
Next
If sf.Range("b65536").End(xlUp).Row = 6 Then Sheets("ANA SAYFA").Cells(6, 3).Interior.ColorIndex = 50
End Sub

 

[fedeal]

üstteki mesajı düzelttim

 

[mehmetf]

hocam ilgine çok teşekkür eredim, dosyadaki gerekli değişikliği yaptım
tekrar kontrol etmen ricası ile
Allaha emanet ol

 

[fedeal]

dosyanız ekte;

Sub n()
Set sf1 = Sheets("A")
Set sf2 = Sheets("B")
Set sf = Sheets("ÇAKIŞANLAR")
Sheets("ANA SAYFA").Range("c6:c7").Interior.ColorIndex = xlNone
sf.Range("b7:d65000").ClearContents
For i = 3 To sf1.Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf(sf2.Range("b:b"), sf1.Cells(i, 2)) > 0 Then
Set bul = sf2.Range("b:b").Find(sf1.Cells(i, 2))
If Not bul Is Nothing Then
satır = sf.Range("B65536").End(xlUp).Row + 1
sf.Cells(satır, 2).Value = "A"
sf.Cells(satır, 3).Value = sf1.Cells(i, 1).Value
sf.Cells(satır, 4).Value = sf1.Cells(i, 2).Value
sf.Cells(satır + 1, 2).Value = "B"
sf.Cells(satır + 1, 3).Value = sf2.Cells(bul.Row, 1).Value
sf.Cells(satır + 1, 4).Value = sf2.Cells(bul.Row, 2).Value
End If
End If
Next
If sf.Range("b65536").End(xlUp).Row > 6 Then
Sheets("ANA SAYFA").Cells(6, 3).Interior.ColorIndex = 3
Else
Sheets("ANA SAYFA").Cells(7, 3).Interior.ColorIndex = 50
End If
End Sub