sütunda arama yapmak

[gencoglu27]

merhaba arkadaşlar,

Elimde 1000 satırda oluşan veriler var.."C" sütununda ise 1 ile 100 arası random olarak seilen sayılar var.
"C" sutununda bin satırda diyelim 35 adet "8" rakamı var.. Bana sadece 8 rakamına denk gelen satırları yada satır numaralarını veren (D sütununa yazan..146...274..658..992..gibi) bir formül var mı ? Gerçi bunu "süzgeç" ile yapınca bulunuyor..fakat veri sayısı 100.000 gibi olunca kilitlenme olmakta..Bana sadece C sütununda arama yapcak ve çıkan 8 sayılarını D sütunuda satır numaralarını yazdırazak bir fonksiyon lazım..

Teşekkür ederim..

 

[İhsan Tank]

Merhaba
Dosya eklerseniz makro ile sorunuzu çözebilirim sanırım

 

[gencoglu27]

istediğiniz dosyayı ekte gönderiyorum

no: random sayı aralığı 1-10 arası

Teşekkürler

 

[İhsan Tank]

istediğiniz dosyayı ekte gönderiyorum

no: random sayı aralığı 1-10 arası

Teşekkürler

Merhaba
Boş bir module kopyalayın ve deneyin

Option Explicit
Sub seçimi_ayır_61()
Dim ts, kaplan, trabzonspor, bordo
bordo = InputBox("Değer Giriniz", "Değer Girişi")
If bordo = "" Then Exit Sub
trabzonspor = MsgBox(bordo & " Değeri Çıkartıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
Range("C:C").ClearContents
bordo = bordo * 1
kaplan = 1
For ts = 1 To Cells(1048576, "B").End(xlUp).Row
If Cells(ts, "B") = bordo Then
Cells(kaplan, "C") = Cells(ts, "A")
kaplan = kaplan + 1
End If
Next
Application.ScreenUpdating = True
MsgBox bordo & " Verilerini Çıkarttım", vbInformation, "Bitiş"
End Sub

Bir kutu çıkacak oraya hangi değeri istiyorsanız giriniz

 

[gencoglu27]

Teşekkürler İhsan Tank, Makro güzel çalışıyor.. Fakat eğer mümkünse A sütununa göre değil de satır numarasına göre listelemesi sanırım benim için daha kullanışlı olacak..

Teşekkürler.

 

[gencoglu27]

Teşekkürler İhsan Tank, Makro güzel çalışıyor.. Fakat eğer mümkünse A sütununa göre değil de satır numarasına göre listelemesi sanırım benim için daha kullanışlı olacak..

Teşekkürler.

Değerli İhsan Tank..Yanıtınız için teşekkürler.:mutlu: Ayrıca satır numarası olarak çıktı/sıralama almak için verdiğiniz kodu nasıl modife edebilirim ?

Cells(kaplan, "C") = Cells(ts, "A")

buradaki "A" yerine ne yazmalıyım ki satır nosu gelsin ?:yardim:

teşekkürler.

 

[İhsan Tank]

Değerli İhsan Tank..Yanıtınız için teşekkürler.:mutlu: Ayrıca satır numarası olarak çıktı/sıralama almak için verdiğiniz kodu nasıl modife edebilirim ?


buradaki "A" yerine ne yazmalıyım ki satır nosu gelsin ?:yardim:

teşekkürler.

Satır numarasından kastınız mesela A5 gibi mi_?

 

[gencoglu27]

Satır numarasından kastınız mesela A5 gibi mi_?

Evet A5...A 580.000 gibi.. Excelin solundaki default olan 1.2.3.4.5...gibi olan sayılar..:redface: