Hücreler arası eşitlik karşılaştırmaları

[anotia]

bilen için oldukça basit olsa gerek ama henüz işin başında olan biri açısından zor. kaldı ki makro yazmayı da bilmiyorsan.

ekteki dosyada örneklerle beraber 3 basit sorum var. yardım ederseniz sevinirim.

 

[Emir Hüseyin Çoban]

. . .

D1 hücresi için

=EĞER(A1=B1;"EŞİT";"EŞİT DEĞİL")& "/"&EĞER(EĞERSAY(C:C;C1)>1;"VAR";"")

. . .

 

[sadobay]

böyle bir şey mi istemiştin..

 

[anotia]

verdiğiniz bilgiler için çok teşekkürler. ama şöyle bir sorun var, bu fonksiyonu 100000 satıra uygulayınca excel kasılıyor.

 

[Emir Hüseyin Çoban]

. . .

100,000 satırlık verisi olan bir excel dosyasının hantal çalışması normal.

Sub kod()
Application.ScreenUpdating = False
son = [a1048570].End(3).Row

For i = 1 To son

If Cells(i, "a") = Cells(i, "b") Then
Cells(i, "d") = "Eşit"
Else
Cells(i, "d") = "Eşit Değil"
End If

egersay = Application.WorksheetFunction.CountIf(Sheets("sayfa1").Range("c1:C" & son), Cells(i, "c"))

If egersay > 1 Then
Cells(i, "d") = Cells(i, "d") & " / Var"
Else
End If

Next i
Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .