bul makrosu

[Serbulent_1512]

30 çalışma kitabından oluşan bir excel dosyası var. her sayfada telefon numaralı yazılı

ben ilk sayfada bul makrosu ile istediğim numarayı bulmak istiyorum..

nasıl yapabilirim. (user form gibi)

 

[Serbulent_1512]

Sub Düğme1_Tıklat()
On Error Resume Next
bul = Application.InputBox("Aranılan Kelimeyi Yazın", Application.UserName)
Cells.Find([bul]).Select
For s = 1 To 4000
ActiveCell.Interior.ColorIndex = 40
Next
ActiveCell.Interior.ColorIndex = 0
End Sub

bu kod ile sayfa sayfa arayabiliyorum. ben ilk sayfada aranacak kelimeyi girince tüm sayfalarda arayacak...