Hücre Değeri Dizi İçinde Varsa Komut Çalışsın.

[askm]

Kolay gelsin.
Aşağıdaki kodlar ile bir dizi oluşturuyorum. Dizi içinde hücredeki değer var mı yok mu kontrol etmek istiyorum. Nasıl yapabilirim.

Sub dizim()
Dim dizi()

Set veri = Sheets("Sayfa2")
son = veri.Cells(65536, 1).End(3).Row

For i = 2 To son
dizi() = Array(veri.Cells(i, "B"))
Next

for x=1 to 100
'Eğer Sheets("Sayfa1").Cells(i,"A")=dizi de varsa
Sheets("Sayfa1").Cells(i,"B")="Var" Yazsın
next

End Sub

 

[Ömer BARAN]

Merhaba.

VBA'da dizi olaylarını pek bilemiyorum ama istediğiniz işlem aşağıdaki şekilde gerçekleşmez mi?
.

Sub VAR_MI()
For x = 1 To 100
If WorksheetFunction.CountIf(Sheets("Sayfa2").Range("B:B"), _
    Sheets("Sayfa1").Cells(x, "A")) > 0 Then Sheets("Sayfa1").Cells(x, "B") = "VAR"
Next
End Sub

 

[askm]

Bu şekilde biliyorum. Bende sizin gibi dizi olayını öğrenmeyi amaçladığım için sordum.Yine döngü ile olur mu. Veya daha kısa yolu var mı?

for x=1 to 100
for x=0 to UBound(Dizi())+ 1
 if Sheets("Sayfa1").Cells(i,"A")=dizi(x) then
     Sheets("Sayfa1").Cells(i,"B")="Var" Yazsın
  end if
next
next

 

[Korhan Ayhan]

Linki inceleyiniz.

http://excel-macro.tutorialhorizon.com/vba-excel-array-functions-filter/