veri sayfasında alan karşılaştırması

[kartal1a]

sayın arkadaşlar değerli hocalarmız,
Sub alan()
Dim fn As Integer
For fn = 2 To 10
If Range("j1,k1,l1,o1") = Range("a" & fn & ",b" & fn & ",c" & fn & ",f" & fn) Then
MsgBox "oldu"
End If
Next fn

şeklinde arama yapmak istedim sadece j1 deki değeri buluyor.

Sub alan()
Dim fn As Integer
For fn = 2 To 10
If Range("ara!j1,k1,l1,o1") = Range("veri!a" & fn & ",b" & fn & ",c" & fn & ",f" & fn) Then
MsgBox "oldu"
End If
Next fn

şeklinde yazınca hata yapıyor.
Benim istediğim ara sayfasındaki j1,k1,l1,o1 hücrelerindeki verilerin tümünün, veri sayfasındaki a,b,c,f sütunundaki verilerle karşılaştırıp tam eşleşmede satır numarasını bulmak ve o satırda işlem yapmak.Silmek yada değiştirmek.
Bunun için yardımlarınızı bekliyorum.Hepinize teşekkürler.

 

[ceyrek]

If Range("j1,k1,l1,o1") = Range("a" & fn & ",b" & fn & ",c" & fn & ",f" & fn) Then satırını,
If Range("j1") = Range("a" & fn) And Range("k1") = Range("b" & fn) And Range("l1") = Range("c" & fn) And Range("o1") = Range("f" & fn) Then
şeklinde yazıp da denermisiniz.
İyi çalışmalar..