Arama Yaparken "İ" ve "I" İçeren Sonuçları Listeleme

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

Arama Yaparken "İ" ve "I" İçeren Sonuçları Listeleme

İleti#1)  emreyigit » 07 Mar 2018 12:23

Merhabalar
Textbox üzerinden sayfa adlarını arayıp listboxta listeleyen bir userform uygulamam var. Ancak eğer mümkünse "i" karakteri ile arama yaptığım zaman, hem "i" hem de "ı" harfini barındıran sonuçları bulsun istiyorum. İlgililere şimdiden teşekkürler.
Kullanıcı avatarı
emreyigit
Yeni Başlamış
 
Kayıt: 12 Şub 2018 16:44
Meslek: Öğrenci
Yaş: 28
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Avcılar

Cevap: Arama Yaparken "İ" ve "I" İçeren Sonuçları Listeleme

İleti#2)  Ozan İLGÜN » 07 Mar 2018 12:46

Mahsuru yoksa dosyanızı paylaşır mısınız?
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2588
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Arama Yaparken "İ" ve "I" İçeren Sonuçları Listeleme

İleti#3)  emreyigit » 07 Mar 2018 13:02

Buyrun
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
emreyigit
Yeni Başlamış
 
Kayıt: 12 Şub 2018 16:44
Meslek: Öğrenci
Yaş: 28
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Avcılar

Cevap: Arama Yaparken "İ" ve "I" İçeren Sonuçları Listeleme

İleti#4)  Ozan İLGÜN » 07 Mar 2018 16:16

Kod: Tümünü seç
Function degistir(char As String) As String
Dim tr
Dim en
Dim i As Integer
tr = Array("Ç", "ç", "Ğ", "ğ", "ı", "İ", "Ö", "ö", "Ş", "ş", "Ü", "ü")
en = Array("C", "c", "G", "g", "i", "I", "O", "o", "S", "s", "U", "u")
  For i = LBound(tr) To UBound(tr)
  char = replace(char, tr(i), en(i))
  Next i
  degistir = char
End Function

Bu fonksiyonu sayfada bir yere ekleyin.
If Worksheets(i).Name Like ("*" + SheetName + "*") Then yerine
If Worksheets(i).Name Like ("*" + SheetName + "*") Or degistir(Worksheets(i).Name) Like ("*" + (SheetName) + "*") Then
şeklinde yazın.
Büyük küçük harf duyarlılığı için kodlarınızın en başındaki Option Compare Text satırını silin.

Eğer sadece tek harf için istiyorsanız şu kod ile halledebilirsiniz.

Kod: Tümünü seç
If Worksheets(i).Name Like ("*" + SheetName + "*") Or Worksheets(i).Name Like ("*" + replace(SheetName, "i", "ı") + "*") Then
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2588
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Arama Yaparken "İ" ve "I" İçeren Sonuçları Listeleme

İleti#5)  emreyigit » 07 Mar 2018 16:41

Ozan Bey ilginiz ve emeğiniz için çok teşekkür ederim. İstediğim gibi i veya I karakteriyle arattımda i, ı, İ, I içeren sonuçlar çıkıyor. Aynısını İ ve ı karakterleriyle arama yaptığımda da sağlayabilir miyiz?
Kullanıcı avatarı
emreyigit
Yeni Başlamış
 
Kayıt: 12 Şub 2018 16:44
Meslek: Öğrenci
Yaş: 28
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Avcılar

Cevap: Arama Yaparken "İ" ve "I" İçeren Sonuçları Listeleme

İleti#6)  Ozan İLGÜN » 07 Mar 2018 18:25

Satırların en başına Option Compare Text yazdığınızda istediğiniz gibi olmuyor mu?
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2588
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Arama Yaparken "İ" ve "I" İçeren Sonuçları Listeleme

İleti#7)  emreyigit » 07 Mar 2018 18:27

Olmuyor maalesef
Kullanıcı avatarı
emreyigit
Yeni Başlamış
 
Kayıt: 12 Şub 2018 16:44
Meslek: Öğrenci
Yaş: 28
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Avcılar


Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe