Excel yardım
- Konbuyu başlatan mblky
- Başlangıç tarihi
- Mesajlar
- 4,628
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