Aranan degerin bulundugu tum satirlar

Katılım
14 Nisan 2006
Mesajlar
71
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.
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
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]
 
Üst