Çözüldü Arama yaptırırken türkçe karakter sorunu

Birde mesela 159 arıyorum buluyor. İkinci 159'a geçmesi için tekrar butona bastığımda ikinci değere gitmiyor. İlk buldugunda kalıyor tekrar buda çözülebilir mi

Merhaba,
"NVIDIA" kaydını bulamamanızın sebebi bu string'de "I" var oysa siz "i" arıyorsunuz. "NVİDİA" yazarsanız o zaman bulur. Yada ararken "nvıdıa" yazın.
İkinci aynı aranan değerini bulmanız içi de "find" fonksiyonunda "SearchDirection" parametresini kullanıp bu parametreyi "xlNext" e eşitlemelisiniz. O zaman diğer aynı değerleri de sırasıyla bulacaktır.

Size şöyle bir kod dizesi yazayım ve siz de bunu kendinize uyarlamaya çalışın:


Private Sub CommandButton1_Click()

Dim S1 As Worksheet
Set S1 = Sheets("toplam")

Dim Aranan As Variant
Aranan = TextBox1.Text

On Error Resume Next

Dim Alan As Range
Set Alan = S1.Cells.Find(What:=Aranan, After:=ActiveCell, LookAt:=xlWhole, SearchDirection:=xlNext)

Alan.Select

End Sub

Halledemedim hocam malesef