[Yardım]  Büyük, küçük karakter bulma sorunu

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Büyük, küçük karakter bulma sorunu

İleti#1)  massgrave » 11 Tem 2019 16:48

Arkadaşlar Merhaba;

Ekte göndermiş olduğum dosyada arama gerçekleştirdiğimde Örnek olarak isim verdiğim ELGİN (tümü büyük harf) arama gerçekleştirdiğimde ELGİN yazdığımda veriyi buluyor. fakat elgin (tümü küçük harf) yazdığımda sonuç bulamıyor. Bu konuda bana yardımcı olur musunuz?

Ayrıca;
Dosyayı düzenleyeceğim kendime göre isimleri değiştirerek ayarlayacağım fakat bir ricam var dosyaya bir sıra numarası yeri açıp her yapılan kayıtta otomatik o sıra numarasını gösterip kaydetmesini istiyorum arşiv dosya bulma programı olarak kullanacağız.

Teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
massgrave
Yeni Başlamış
 
Kayıt: 24 Haz 2019 19:50
Meslek: Yok
Yaş: 40
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Büyük, küçük karakter bulma sorunu

İleti#2)  korhan ayhan » 14 Tem 2019 23:30

Merhaba,

Arama butonundaki aşağıdaki satırları bulun ve bir sonraki satır gibi düzenleyin.

Bu satırları;
Kod: Tümünü seç
If UCase(deg1) Like UCase(deg2) & "*" Then


Bu şekilde değiştiriniz.
Kod: Tümünü seç
If UCase(Replace(Replace(deg1, "ı", "I"), "i", "İ")) Like UCase(Replace(Replace(deg2, "ı", "I"), "i", "İ")) & "*" Then
Kullanıcı avatarı
korhan ayhan
Siteye Alışmış
 
Adı Soyadı:Korhan AYHAN
Kayıt: 26 Ağu 2008 22:04
Konum: ANTALYA
Meslek: TURİZM-MALİYET MUHASEBESİ
Yaş: 46
İleti: 173
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA

Cevap: Büyük, küçük karakter bulma sorunu

İleti#3)  massgrave » 29 Tem 2019 08:58

Teşekkürler şkşk
Kullanıcı avatarı
massgrave
Yeni Başlamış
 
Kayıt: 24 Haz 2019 19:50
Meslek: Yok
Yaş: 40
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Cevap: Büyük, küçük karakter bulma sorunu

İleti#4)  massgrave » 30 Tem 2019 13:00

korhan ayhan yazdı:Merhaba,

Arama butonundaki aşağıdaki satırları bulun ve bir sonraki satır gibi düzenleyin.

Bu satırları;
Kod: Tümünü seç
If UCase(deg1) Like UCase(deg2) & "*" Then


Bu şekilde değiştiriniz.
Kod: Tümünü seç
If UCase(Replace(Replace(deg1, "ı", "I"), "i", "İ")) Like UCase(Replace(Replace(deg2, "ı", "I"), "i", "İ")) & "*" Then


Merhaba küçük bir sorun daha çıktı yardımına ihtiyacım var.
Arattığım satırda " FATİH KUL / ÇETİN EĞE " yazıyor. Arama alanına " ÇETİN " yazdığımda ÇETİN EĞE HARİÇ diğerleri çıkıyor. ÇETİN EĞE listelenmiyor. yalnız FATİH KUL yazdığımda FATİH KUL / ÇETİN EĞE olarak listeleniyor.
Nasıl çözebilirim. Kod:

Case "Kisiler"
For sat = 2 To Cells(65536, "d").End(xlUp).row
Set deg1 = Cells(sat, "d")
If UCase(Replace(Replace(deg1, "ı", "I"), "i", "İ")) Like UCase(Replace(Replace(deg2, "ı", "I"), "i", "İ")) & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "A")
ListBox1.List(s, 1) = Cells(sat, "B")
ListBox1.List(s, 2) = Cells(sat, "C")
ListBox1.List(s, 3) = Cells(sat, "D")
ListBox1.List(s, 4) = Cells(sat, "E")
ListBox1.List(s, 5) = Cells(sat, "F")
ListBox1.List(s, 6) = Cells(sat, "G")
ListBox1.List(s, 7) = Cells(sat, "H")
ListBox1.List(s, 8) = Cells(sat, "I")
ListBox1.List(s, 9) = Cells(sat, "J")
ListBox1.List(s, 10) = Cells(sat, "K")
ListBox1.List(s, 11) = Cells(sat, "L")
s = s + 1
End If: Next
Kullanıcı avatarı
massgrave
Yeni Başlamış
 
Kayıt: 24 Haz 2019 19:50
Meslek: Yok
Yaş: 40
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

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

Cevap: Büyük, küçük karakter bulma sorunu

İleti#5)  massgrave » 30 Tem 2019 20:49

Tek bunun için değil hücre içindeki ÖRNEK isim olarak dersek ALİ AKSARAY;
Ali Aksaray olarak aratınca veribulunyor fakat Aksaray olarak aratınca ikinci kelimeyi hiçbir veri bulamıyor.

Kod: Tümünü seç
Case "Kisiler"
For sat = 2 To Cells(65536, "d").End(xlUp).row
Set deg1 = Cells(sat, "d")
If UCase(Replace(Replace(deg1, "ı", "I"), "i", "İ")) Like UCase(Replace(Replace(deg2, "ı", "I"), "i", "İ")) & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "A")
ListBox1.List(s, 1) = Cells(sat, "B")
ListBox1.List(s, 2) = Cells(sat, "C")
ListBox1.List(s, 3) = Cells(sat, "D")
ListBox1.List(s, 4) = Cells(sat, "E")
ListBox1.List(s, 5) = Cells(sat, "F")
ListBox1.List(s, 6) = Cells(sat, "G")
ListBox1.List(s, 7) = Cells(sat, "H")
ListBox1.List(s, 8) = Cells(sat, "I")
ListBox1.List(s, 9) = Cells(sat, "J")
ListBox1.List(s, 10) = Cells(sat, "K")
ListBox1.List(s, 11) = Cells(sat, "L")
s = s + 1
End If: Next
Kullanıcı avatarı
massgrave
Yeni Başlamış
 
Kayıt: 24 Haz 2019 19:50
Meslek: Yok
Yaş: 40
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Büyük, küçük karakter bulma sorunu

İleti#6)  Feyzullah » 30 Tem 2019 21:03

Saygı değer Sayın Korhan AYHAN hocamın müsaadesiyle;


If UCase(Replace(Replace(deg1, "ı", "I"), "i", "İ")) Like UCase(Replace(Replace(deg2, "ı", "I"), "i", "İ")) & "*" Then Bu kodu aşağıdaki gibi değiştirin.

Kod: Tümünü seç
If UCase(Replace(Replace(deg1, "ı", "I"), "i", "İ")) Like "*" & UCase(Replace(Replace(deg2, "ı", "I"), "i", "İ")) & "*" Then
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 733
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Büyük, küçük karakter bulma sorunu

İleti#7)  massgrave » 30 Tem 2019 21:10

Teşekkür ederim.
Kullanıcı avatarı
massgrave
Yeni Başlamış
 
Kayıt: 24 Haz 2019 19:50
Meslek: Yok
Yaş: 40
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Büyük, küçük karakter bulma sorunu

İleti#8)  Feyzullah » 30 Tem 2019 21:11

İyi çalışmalar
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 733
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], Google Adsense [Bot], Yandex[Bot] ve 2 misafir

Bumerang - Yazarkafe