Ara-Bul Komutu

[renklikedi]

SElamlar....
Ã?ğrenci listeleri hazırladığım bir excel çalışma kitabı var.
Ã?ğrencileri ada göre, soyada göre, ad ve soyada göre, sınıflara göre aramak istiyorum.
Bununla ilgili userform veya macro kadlor konusunda yardımcı olabilir misiniz?

 

[Hüseyin]

http://www.excel.web.tr/viewtopic.php?t=858
http://www.excel.web.tr/viewtopic.php?t=741
http://www.excel.web.tr/viewtopic.php?t=460

Yukarıdaki adreslerde arama-bulma ile ilgili bazı çalışmlar var. Bunlara da bir göz atarsanız, belki tam istediğiniz cevap yer almasada bir fikir verip sizi yönlendirmesi açısından faydası olur.

 

[holifera]

Sorunuzu Makro başlığı altında yazmışsınız ama hazır bir çözüm önerebilirim.
Listeniz
Ad Soyad Sınıf
Ali Ak 3
Veli Kara 2 şeklinde ise
"VERİ>SÜZ>OTOMATİK SÜZ" ile süzerek aradığınız başlıklar altında sınıflandırabilirsiniz.

 

[xxrt]

UserForma Bir TextBox1 ve CommandButton1 ekliyerek aşağıdaki kodları CommandButtonu clikliyerek açacağınız kod sayfasına yazın.

Private Sub CommandButton1_Click()
Dim i As Byte
If Len(TextBox1) > 0 Then
For i = 1 To Worksheets.Count
Call Myxxrt(Worksheets(i).Name)
Next
End If
End Sub


Private Function Myxxrt(ShName As String)
Dim MyRng As Range
On Error Resume Next
Set MyRng = Range(Sheets(ShName).Cells.Find(TextBox1, LookAt:=xlWhole).Address)
MsgBox "Aranılan değer " & ShName & " sayfasında " & MyRng.Address(False, False) & " hücresinde bulundu !"
Set MyRng = Nothing
End Function

Formu Çalıştırdığınızda İstediğiniz olması gerek..Kolay Gelsin.

 

[renklikedi]

Gönderilen makrolar için tşk. Peki, excel menüsünde bulunan Bul komutunu çalıştıracak veya Bul komutunun "çalışma kitabında ara seçeğini kullanacak" bir makro/ form mevcut mu? Çünkü Bul komutu tam olarak aranılan kelimeyi arıyor?..

 

[Haluk]

"çalışma kitabında ara seçeğini kullanacak"

Office2000 için böyle bir şey yok, sanırım...

Ama aşağıdaki ufak kod, mükemmel olmasa da işinize yarayabilir....

Sadece aktif sayfada "Find - Bul" komutunu çalıştırmak için:

Sub Test()
    ActiveSheet.UsedRange.Select
    Application.CommandBars.FindControl(ID:=1849).Execute
End Sub

Sırasıyla bütün sayfalarda "Find - Bul" komutunu çalıştırmak için:

Sub Test2()
    For i = 1 To Worksheets.Count
        Sheets(i).Select
        Sheets(i).UsedRange.Select
        Application.CommandBars.FindControl(ID:=1849).Execute
    Next
End Sub