- Katılım
- 7 Temmuz 2007
- Mesajlar
- 111
- Excel Vers. ve Dili
- Office 2003 Tr
Merhaba arkadaşlar.. Ben bir userform hazırladım ve bir adet text box koydum bir adette arama butonu. şimdi bu textboxtaki girdiğim veriyi buldu ama aynı sayfadakileri.. ben bunu bütün kitaba yapmasını istiyorum bide bulduğu sayfayı aktif yapmasını yani o sayfaya gitmes istiyorum.. Yardımlarınızı beklerim kod aşağıda...Ayrıca bu text boxtan birtane daha koymak isiyorum mesela birtanesi isimle arama birtaneside tc kimlikle arama olacak bu mümkünmü???
Kod:
Private Sub CommandButton5_Click()
Dim i As Byte
If Len(TextBox3) > 0 Then
For i = 1 To Worksheets.Count
Call Myxxrt(Worksheets(i).Name)
Next
End If
End Sub
Private Function Myxxrt(ShName As String)
Dim MyRng As Range
On Error Resume Next
Set MyRng = Range(Sheets(ShName).Cells.Find(TextBox3, LookAt:=xlWhole).Address)
MsgBox "Aranılan Kişi " & ShName & " Sayfasında " & MyRng.Address(False, False) & " Hücresinde Bulundu !"
Set MyRng = Nothing
End Function