Aranan degerin bulundugu tum satirlar

[etobus]

Merhaba,

Ben bir degeri bir sutunda arayip o degerin bulundugu her satiri bir sutunda tek tek yazdirmak istiyorum.

Fonksiyonlarla yapildiginda cok yavasliyor acaba bu makro ile nasil yapilabilir? Ekte daha ayrintili bir dosya ekledim.

Tesekkurler.

 

[Recep İpek]

Sayın etobus,

Sanırım bu kodlar işinize yarar.

[vb:1:7afbb415b2]
Sub BulYaz()
Dim veri, s As Variant
Dim alan As Range
Range("B1:B50").ClearContents
veri = [A1].Value
s = 0
For Each alan In Sheets(1).Range("A1:A1000")
If alan.Value = veri Then
s = s + 1
Cells(s, 2).Value = alan.Row
End If
Next
End Sub
[/vb:1:7afbb415b2]