Arama Hakkında yardim

[kktcportal]

Merhaba arkadaşlar,

Bir button yaparak A Sutunundaki herhangi bir verilerinin aynısının F sutununda herhangi bir satırda yazilip yazilmadigini arastirmak istiyorum eger yaziliyorsa Bulundu yazilmiyorsa bulunmadi yazmasi gerekiyor. Yardimci olabilirmisiniz.

Private Sub DegerleriBul_Click()
For x = 1 To 65536
For y = 1 To 65536
If Range("f" & y).Value = Range("a" & x).Value Then
Range("b" & x).Value = "Bulundu"
End If
Next
Next
End Sub

böle bir kod yazdim ancak 65536 olduğu için çok geç yapıyor çoğu zamanda kitleniyor ve boş satırlarida bulundu yaziyor. Acaba bunu Girilen son değere göre yapabilme şansımız varmi? yardimci olursaniz sevinirim. Simdiden tesekkurler.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub DegerleriBul_Click()
For x = 1 To [a65536].end(3).row
say=worksheetfunction.countif(columns("f"),range("a" & x))
If say>0 Then Range("b" & x).Value = "Bulundu"
Next
End Sub

 

[kktcportal]

teşekkürler

arkadaşım teşekkür ederim. çalıştı. iyi günler dilerim. iyi çalışmalar