EXCEL VBADA SEARCHBAR YAPIMI

 

Adım 1: UserForm Oluşturma

1. Excel'de ALT + F11 tuşlarına basarak VBA editörünü açın.

2. Insert > UserForm seçeneği ile yeni bir UserForm ekleyin.

3. Toolbox'tan TextBox (Metin Kutusu) ve CommandButton (Komut Düğmesi) ekleyin.

Adım 2: UserForm Kontrollerini Düzenleme

1. TextBox'ı arama çubuğu olarak kullanacağız. Bu nedenle, uygun bir yerleştirme yapın ve uygun bir ad verin (örneğin txtSearch).

2. CommandButton'a tıklanıldığında arama işlemi gerçekleştireceğiz. Bu butona uygun bir ad verin (örneğin cmdSearch) ve üzerine "Ara" gibi bir açıklama ekleyin.

Adım 3: Arama İşlevini Kodlama

UserForm'unuza çift tıklayın ve aşağıdaki kodları ekleyin:

Private Sub cmdSearch_Click()

    Dim ws As Worksheet

    Dim rng As Range

    Dim cell As Range

    Dim searchTerm As String

    Dim firstAddress As String

    ' Aranacak terimi al

    searchTerm = txtSearch.Text

    ' Aktif sayfada arama yap

    Set ws = ActiveSheet

    Set rng = ws.UsedRange

    ' İlk bulunan hücre adresini bul ve hatırlayarak döngüye gir

    Set cell = rng.Find(What:=searchTerm, LookIn:=xlValues, LookAt:=xlPart)

    If Not cell Is Nothing Then

        firstAddress = cell.Address

        Do

            ' Hücreyi vurgula veya bir işlem gerçekleştir

            cell.Select

            MsgBox "Bulundu: " & cell.Address

            ' Sonraki bulguyu ara

            Set cell = rng.FindNext(cell)

        Loop While Not cell Is Nothing And cell.Address <> firstAddress

    Else

        MsgBox "Arama sonucu bulunamadı."

    End If

End Sub

Adım 4: UserForm'u Göstermek İçin Bir Makro Yazın

UserForm'u göstermek için bir makro oluşturalım:

Sub ShowSearchForm()

    SearchForm.Show

End Sub

Adım 5: Excel'de Bir Butona Makro Atayın

1. Excel sayfasında Developer sekmesine gidin (File > Options > Customize Ribbon ile Developer sekmesini etkinleştirin).

2. Insert > Button (Form Control) seçeneği kullanarak bir buton ekleyin.

3. Butona tıkladığınızda, makrolar listesinden ShowSearchForm makrosunu seçin ve butona atayın.

Bu adımları tamamladığınızda, oluşturduğunuz butona tıkladığınızda arama çubuğunu içeren UserForm açılacak ve arama işlemi gerçekleştirilecektir. Arama sonucunu bulduğunda hücreyi seçer ve bir mesaj kutusu gösterir.