Hücre ile alan karşılaştırmak mümkün mü ?

[Carpintero]

Merhaba Arkadaşlar;
Aşağıda örnekte de görüldüğü üzere
A1:A5 aralığını değişkene atayıp
bu aralığı döngüde hücre değeri ile karşılaştırma
yapmak istiyorum. Lakin hata alıyorum.
Acaba ben alan tanımlamada mı sorun yaşıyorum yoksa
böyle bir şey mümkün değil midir ?
İstediğim şeyi nasıl yaparım acaba.
Bu konuda yardımcı olabilir seniz çok sevinirim.

Sub Deneme()
alan = Range("A1:A5").Value

For i = 3 To 10
If Cells(i, "C").Value = alan Then
Cells(i, "D").Value = "xx"

End If:Next i
End Sub

 

[Muzaffer Ali]

Merhaba.
Belirlediğiniz alandaki hücreleri de tek tek kontrol etmelisiniz. Topluca alan belirleyip değer karşılaştırması yapamazsınız.

Sub Deneme()
    Dim Alan As Range
    Dim Bak As Range
    Dim i As Integer
    Set Alan = Range("A1:A5")
    For i = 3 To 10
        For Each Bak In Alan
            If Cells(i, "C").Value = Bak.Value Then
                Cells(i, "D").Value = "xx"
            End If
        Next Bak
    Next i
End Sub

 

[Korhan Ayhan]

Aslında tek tek kontrol etmeye gerek yok. Alanda saydırma (CountIf) yaparak ya da CTRL+F (Find) yaparak ilgili veri kontrolü yapılabilir.