Çözüldü arama yaparken büyük küçük harf duyarsız olarak arama yapma

[Ayt22]

Selam Üstadlarım,

aşağıdaki kodu yazdım fakat buradaki sıkıntım arama yaparken büyük küçük harfe duyarlı olarak arama yapıyor. bunu nasıl duyarsız olarak arama yaptırabilirim.
şimdiden cevaplarınız için teşekkür ederim.

Private Sub TextBox9_Change()

On Error Resume Next
Dim sonsat As Integer
Dim i As Integer
Dim sonsatgecici As Integer
ThisWorkbook.Activate
sonsat = Sheets("FİRMA EKLE").Range("B100000").End(xlUp).Row
Sheets("FRMSUZ").Range("A2:B100000").ClearContents
For i = 2 To sonsat
If Sheets("FİRMA EKLE").Range("B" & i) Like "*" & TextBox9 & "*" Then
sonsatgecici = Sheets("FRMSUZ").Range("A100000").End(xlUp).Row + 1
Sheets("FRMSUZ").Range("A" & sonsatgecici) = Sheets("FİRMA EKLE").Range("A" & i)
Sheets("FRMSUZ").Range("B" & sonsatgecici) = Sheets("FİRMA EKLE").Range("B" & i)

End If
Next

Call Yenile

End Sub

 

[volki_112]

Selam Üstadlarım,

aşağıdaki kodu yazdım fakat buradaki sıkıntım arama yaparken büyük küçük harfe duyarlı olarak arama yapıyor. bunu nasıl duyarsız olarak arama yaptırabilirim.
şimdiden cevaplarınız için teşekkür ederim.

Private Sub TextBox9_Change()

On Error Resume Next
Dim sonsat As Integer
Dim i As Integer
Dim sonsatgecici As Integer
ThisWorkbook.Activate
sonsat = Sheets("FİRMA EKLE").Range("B100000").End(xlUp).Row
Sheets("FRMSUZ").Range("A2:B100000").ClearContents
For i = 2 To sonsat
If Sheets("FİRMA EKLE").Range("B" & i) Like "*" & TextBox9 & "*" Then
sonsatgecici = Sheets("FRMSUZ").Range("A100000").End(xlUp).Row + 1
Sheets("FRMSUZ").Range("A" & sonsatgecici) = Sheets("FİRMA EKLE").Range("A" & i)
Sheets("FRMSUZ").Range("B" & sonsatgecici) = Sheets("FİRMA EKLE").Range("B" & i)

End If
Next

Call Yenile

End Sub

bu kodu kullanın

Private Sub TextBox9_Change()

    On Error Resume Next
    Dim sonsat As Long
    Dim i As Long
    Dim sonsatgecici As Long
    Dim aramaMetni As String
    Dim firmaAdi As String

    aramaMetni = TextBox9.Value
    ThisWorkbook.Activate
    sonsat = Sheets("FİRMA EKLE").Range("B100000").End(xlUp).Row
    Sheets("FRMSUZ").Range("A2:B100000").ClearContents

    For i = 2 To sonsat
        firmaAdi = Sheets("FİRMA EKLE").Range("B" & i).Value

        ' Türkçe harfleri bozmadan, harf duyarsız karşılaştırma yap
        If InStr(1, firmaAdi, aramaMetni, vbTextCompare) > 0 Then
            sonsatgecici = Sheets("FRMSUZ").Range("A100000").End(xlUp).Row + 1
            Sheets("FRMSUZ").Range("A" & sonsatgecici).Value = Sheets("FİRMA EKLE").Range("A" & i).Value
            Sheets("FRMSUZ").Range("B" & sonsatgecici).Value = firmaAdi
        End If
    Next i

    Call Yenile

End Sub

 

[Ayt22]

bu kodu kullanın

Private Sub TextBox9_Change()

    On Error Resume Next
    Dim sonsat As Long
    Dim i As Long
    Dim sonsatgecici As Long
    Dim aramaMetni As String
    Dim firmaAdi As String

    aramaMetni = TextBox9.Value
    ThisWorkbook.Activate
    sonsat = Sheets("FİRMA EKLE").Range("B100000").End(xlUp).Row
    Sheets("FRMSUZ").Range("A2:B100000").ClearContents

    For i = 2 To sonsat
        firmaAdi = Sheets("FİRMA EKLE").Range("B" & i).Value

        ' Türkçe harfleri bozmadan, harf duyarsız karşılaştırma yap
        If InStr(1, firmaAdi, aramaMetni, vbTextCompare) > 0 Then
            sonsatgecici = Sheets("FRMSUZ").Range("A100000").End(xlUp).Row + 1
            Sheets("FRMSUZ").Range("A" & sonsatgecici).Value = Sheets("FİRMA EKLE").Range("A" & i).Value
            Sheets("FRMSUZ").Range("B" & sonsatgecici).Value = firmaAdi
        End If
    Next i

    Call Yenile

End Sub

ilginiz için teşekkür ederim Maalesef denedim olmadı

 

[volki_112]

ilginiz için teşekkür ederim Maalesef denedim olmadı

dosyanızı paylaşınız. dosya.tc dosya.co gibi paylaşım sitelerine dosyanızı yükleyip buraya link verebilirsiniz.

 

[antonio]

Merhaba,
Volki_112'nin kodlarında firmaAdi, ve aramaMetni değişkenlerin tanımlarını aşağıdaki şekilde değiştirerek deneyiniz:

firmaAdi = UCase(Replace(Replace(Sheets("FİRMA EKLE").Range("B" & i).Value, "i", "İ"), "ı", "I"))
aramaMetni = UCase(Replace(Replace(TextBox9.Value, "i", "İ"), "ı", "I"))

 

[Ayt22]

Merhaba,
Volki_112'nin kodlarında firmaAdi, ve aramaMetni değişkenlerin tanımlarını aşağıdaki şekilde değiştirerek deneyiniz:

firmaAdi = UCase(Replace(Replace(Sheets("FİRMA EKLE").Range("B" & i).Value, "i", "İ"), "ı", "I"))
aramaMetni = UCase(Replace(Replace(TextBox9.Value, "i", "İ"), "ı", "I"))

Çok teşekkür ederim yazmış olduğunuz kod çalıştı.
UCase i kaldırınca büyük küçük yazıları da görme imkanı oldu.
emeğinize sağlık çok çok teşekkür ederim.

kodların son hali:

aramaMetni = Replace(Replace(TextBox9.Value, "i", "İ"), "ı", "I")
firmaAdi = Replace(Replace(Sheets("FİRMA EKLE").Range("B" & i).Value, "i", "İ"), "ı", "I")