Excel yardım

Kodla Büyü

mblky

Site Gezgini
Mesajlar
34
Arkadaşlar excel de ilk sayfada textbox ve arama butonu olacak. Butona tıkladığımızda Textbox ın içeriğine yazılan ifade, sayfalardaki A1 hücesine eşitse; eşit olan sayfa açılacak. Yardımlarınızı bekliyorum.
 

Ekli dosyalar

  • Kitap1.rar
    15.6 KB · Görüntüleme: 27
Aşağıdaki kodu Anasayfa isimli sayfanın adına sağ tıklayıp, kodu görüntüle dedikten sonra gelen pencereye yapıştırın. Ardından arama işlemini yapın.
Kod:
Private Sub CommandButton1_Click()
aranan = TextBox1.Text
If aranan <> "" Then
    For i = 2 To Worksheets.Count
        If aranan = Worksheets(i).Range("A1").Value Then
            Worksheets(i).Activate
            Exit Sub
        End If
    Next i
End If
End Sub
 
Geri
Üst