Çoklu karşılaştırma ve işaretleme hk.

[honestman]

Merhaba,

Ben belirli koşullara göre 4 sutunu karşılaştırıp işaretlemek istiyorum. Dosyamda sadece 2 sutunu karşılaştırabiliyorum. Numaralarla numaralar, tutarlarla tutarların aynı anda eşleştirilmesi, tutarların tutmayıp sadece numaraların tutması halinde * her ikisinin de tutması halinde X işareti koymasını istiyorum.

Açıklamalı dosya ektedir, şimdiden yardımınıza teşekkürler...

 

[honestman]

güncel....

 

[honestman]

güncelliyorum ama olmuyor sanırım..

 

[excel03]

merhaba;

Sub Karşılaştır()
'Veri1=Veri2 ise X, değilse *
'Veri1-1=Veri2-2 ise X,değilse *
Dim alanK As Range
Set alanK = Range("b2:g" & Cells(65536, 2).End(3).Row)
For i = 1 To alanK.Rows.Count
If alanK.Rows(i).Cells(1).Value = alanK.Rows(i).Cells(4).Value Then
alanK.Rows(i).Cells(3).Value = "X"
Else
alanK.Rows(i).Cells(3).Value = "*"
End If
If alanK.Rows(i).Cells(2).Value = alanK.Rows(i).Cells(5).Value Then
alanK.Rows(i).Cells(6).Value = "X"
Else
alanK.Rows(i).Cells(6).Value = "*"
End If
Next i
End Sub

 

[honestman]

çok teşekkür ederim.

 

[honestman]

merhaba,

malesef olmadı 4 veri de birbirini tutmasına rağmen tutmamış gibi işaretlendiriyor...

 

[honestman]

Güncel..............

 

[honestman]

yardım ....