Arama Makrosu

[Guest]

Selamlar;
A sütunundan N sütununa kadar ve 10.000 satırın üzerinde veri bulunan bir çalışma sayfasında A sütünü esas alınarak arama makrosu yapılmak suretiyle A hücresinde bulunan verinin karşılığında tüm satır gösterilebilir mi ?
Þimdiden Teşekkürlür.

 

[Kemal Demir]

Sub FORM()
For c = 1 To 5000
If Cells(c, 1).Value = "EXCEL" Then
Columns("B:N").Select
Selection.EntireColumn.Hidden = True
Else
Columns("B:N").Select
Selection.EntireColumn.Hidden = False
End If
Next
Range("A1").Select
End Sub

Dosya Ektedir.

Ustadlar Daha iyisini Sunar muhakkak.

Burada Değişken EXCEL

Siz Değiştirebilirsiniz.
Dosya yoluyorum ınceleyin.

 

[Guest]

Teşekkürler Rakkas
Peki bunun Userform üzerinden aratmak mümkünmüdür. Ayrıca istenen bu değil.
Userform üzerindeki combobox lara girilecek verilerin aranması istenmektedir.
Bu ayrıntıyı atladım için özür. dosya ektedir.

 

[teknik]

İstediğiniz şey sanırım bu userform da comboboxlarda arama sayfadaki ilgili sütünları doldurunca işlem tamam daha önce formda yayınlanmıştı ben biraz daha ekledim. ayni userfomda bulduğun bilgileri tekrar dayfaya ekleme yapıldı.

 

[Kemal Demir]

Sn

Teşekkürler Rakkas
Peki bunun Userform üzerinden aratmak mümkünmüdür. Ayrıca istenen bu değil.
Userform üzerindeki combobox lara girilecek verilerin aranması istenmektedir.
Bu ayrıntıyı atladım için özür. dosya ektedir

Arkadas Zannedersem Yardımcı olamadım ama solebirşey daha sunabilirim.
Değerli Ustadlar Tabi Daha iyisini sunarlar