Soru VBA istenilen sayfada arama yaptırma hk

[balanar]

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim aranan As String
Dim alan As Range
Dim sayfa As String
Dim i As Integer
aranan = Sheets("Toplam").TextBox1.Text
If aranan = "" Then Exit Sub
For Each ws In Worksheets
Set alan = ws.Cells.Find(What:=aranan)
If Not alan Is Nothing Then
    i = i + 1
    If i = 1 Then
sayfa = alan.Worksheet.Name
Sheets(sayfa).Select
alan.Select
End If
End If
Next ws
If i = 0 Then: MsgBox "Aranan değer Sayfalarda YOK", vbInformation
End Sub

sadece Toplam adlı sayfada arama yapmasını istiyorum. Ama bu exceldeki tüm sayfalarda arama yapıyor. Yardımcı olabilirmisiniz

 

[alicimri]

Galiba böyle bir kod olması gerekiyor

Set s1 = Sheets("Toplam")
aranan = s1.TextBox1.Text
Set alan = s1.Cells.Find(What:=aranan)
If Not alan Is Nothing Then
alan.Activate
Else
MsgBox "aranan yok"
End If

 

[balanar]

teşekkürler hocam..

 

[balanar]

Burada türkçe karakter ile ilgili bir çözüm üretilebilir mi?

Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(CharacterArray(Mid(TextLine, 1, 300)), "ç", "c"), "ğ", "g"), "ı", "i"), "ö", "o"), "ş", "s"), "ü", "u"), "Ç", "C"), "Ğ", "G"), "İ", "I"), "Ö", "O"), "Ş", "S"), "Ü", "U")

Yani c ile ç a ı ile i gibi gibi.

Son güncel kodum şöyle;

Private Sub CommandButton1_Click()
Set s1 = Sheets("Toplam")
aranan = s1.TextBox1.Text
Set alan = s1.Cells.Find(What:=aranan, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

If Not alan Is Nothing Then
alan.Activate
Else
MsgBox "aranan yok"
End If
End Sub

 

[Korhan Ayhan]

Türkçe karakterlerle ilgili ne olmasını istediğinizi belirtmemişsiniz.