1. VBA Editörünü Açma: Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications editör penceresini açın 14.
2. Modül Ekleme: Ekle > Modül menüsüne giderek yeni bir modül oluşturun 14.
3. Kod Ekleme: Aşağıdaki VBA kodunu bu pencereye yapıştırın 14:

Sub BirdenFazlaSayfadaArama()
    Dim sayfa As Worksheet
    Dim aramaKelimesi As String
    Dim hucre As Range

    aramaKelimesi = InputBox("Aranacak Kelimeyi Girin:")
    For Each sayfa In ThisWorkbook.Sheets
        sayfa.Activate
        Set hucre = sayfa.Cells.Find(What:=aramaKelimesi, LookAt:=xlPart)
        If Not hucre Is Nothing Then
            MsgBox "Bulunan Değer: " & hucre.Value & vbNewLine & "Sayfa: " & sayfa.Name & " Hücre: " & hucre.Address
        End If
    Next sayfa
End Sub
Kopyala