too many line continuations hatası?

T

tigiy

Altın Üye
Katılım
31 Aralık 2013
Mesajlar
138
Excel Vers. ve Dili
2019-Türkçe
Altın Üyelik Bitiş Tarihi
11-09-2025
Herkese merhaba

http://www.excel.web.tr/f48/type-missmatch-hatasy-t147978.html

Yukarıdaki linkde verdiğim kodlarda textboxlardan filtreleme yapıyorum. ancak filtre kirterini arttırınca 26 yı falan geçince "too many line continuations" şeklinde hata alıyorum.

Kod: 
If UCase(Replace(Replace(sr.Cells(i, "A").Value, "ı", "I"), "i", "İ")) Like "*" & birim & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "B").Value, "ı", "I"), "i", "İ")) Like "*" & adsoyad & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "C").Value, "ı", "I"), "i", "İ")) Like "*" & tckimlik & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "D").Value, "ı", "I"), "i", "İ")) Like "*" & unvan & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "E").Value, "ı", "I"), "i", "İ")) Like "*" & kisitipi & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "F").Value, "ı", "I"), "i", "İ")) Like "*" & isegiris & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "G").Value, "ı", "I"), "i", "İ")) Like "*" & erpgir & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "H").Value, "ı", "I"), "i", "İ")) Like "*" & istencikis & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "I").Value, "ı", "I"), "i", "İ")) Like "*" & erpcik & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "J").Value, "ı", "I"), "i", "İ")) Like "*" & ayrilisneden & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "K").Value, "ı", "I"), "i", "İ")) Like "*" & calismasure & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "L").Value, "ı", "I"), "i", "İ")) Like "*" & adres & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "M").Value, "ı", "I"), "i", "İ")) Like "*" & il & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "N").Value, "ı", "I"), "i", "İ")) Like "*" & ilce & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "O").Value, "ı", "I"), "i", "İ")) Like "*" & mahalle & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "P").Value, "ı", "I"), "i", "İ")) Like "*" & cadde & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "Q").Value, "ı", "I"), "i", "İ")) Like "*" & sokak & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "R").Value, "ı", "I"), "i", "İ")) Like "*" & kapino & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "S").Value, "ı", "I"), "i", "İ")) Like "*" & daire & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "T").Value, "ı", "I"), "i", "İ")) Like "*" & evtel & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "U").Value, "ı", "I"), "i", "İ")) Like "*" & ceptel & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "V").Value, "ı", "I"), "i", "İ")) Like "*" & ilgilikisi & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "W").Value, "ı", "I"), "i", "İ")) Like "*" & maas2015 & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "X").Value, "ı", "I"), "i", "İ")) Like "*" & maas2014 & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "Y").Value, "ı", "I"), "i", "İ")) Like "*" & maas2013 & "*" Then
Nasıl geçebilirim bu hatayı
 
Son düzenleme:
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,852
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Böyle cevap vermek zor seksenin üzerinde mesajınız olmuş bir örnek dosya ekleseydiniz iyi olurdu.

Ekli dosyada yirmi adet txt nesnesi mevcut bu nesneler her bir sütunu göstermekte ve dikey olarak sıralanmıştır.

yeşil renkli txt nesnelerine bir değer girince anında ilgili sütunu süzmektedir.

buradaki süzme ilk karektere göre veya tam kelimeye göre yapılmaktadır.
 

Ekli dosyalar

T

tigiy

Altın Üye
Katılım
31 Aralık 2013
Mesajlar
138
Excel Vers. ve Dili
2019-Türkçe
Altın Üyelik Bitiş Tarihi
11-09-2025
halit3' Alıntı:
Böyle cevap vermek zor seksenin üzerinde mesajınız olmuş bir örnek dosya ekleseydiniz iyi olurdu.

Ekli dosyada yirmi adet txt nesnesi mevcut bu nesneler her bir sütunu göstermekte ve dikey olarak sıralanmıştır.

yeşil renkli txt nesnelerine bir değer girince anında ilgili sütunu süzmektedir.

buradaki süzme ilk karektere göre veya tam kelimeye göre yapılmaktadır.
Genişletmek için tıkla ...
Halit hocam cevap için teşekkürler örnek ekleme gereği duymadım çünkü yukarıda belirttiğim satırda 25 den fazla satır ekleyince hata alıyorum onu nasıl aşabiliriz dile daha tecrübeli arkadaşlarımızın fikirlerini almak istedim.
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,852
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
tigiy' Alıntı:
Halit hocam cevap için teşekkürler örnek ekleme gereği duymadım çünkü yukarıda belirttiğim satırda 25 den fazla satır ekleyince hata alıyorum onu nasıl aşabiliriz dile daha tecrübeli arkadaşlarımızın fikirlerini almak istedim.
Genişletmek için tıkla ...
2 nolu mesajdaki Benim eklediğim dosyayı irdeledinizmi ?

orada 20 sütunluk örnek listeleme mevcut siz onu yirmiden fazla yapabilirsiniz.
 
T

tigiy

Altın Üye
Katılım
31 Aralık 2013
Mesajlar
138
Excel Vers. ve Dili
2019-Türkçe
Altın Üyelik Bitiş Tarihi
11-09-2025
halit3' Alıntı:
2 nolu mesajdaki Benim eklediğim dosyayı irdeledinizmi ?

orada 20 sütunluk örnek listeleme mevcut siz onu yirmiden fazla yapabilirsiniz.
Genişletmek için tıkla ...
Evet hocam irdeledim o kod benim işimi görmeyecek çünkü ben texbox ya da comboboxlara hep farklı isimler verdim. onun için sizin tarama kodu benim işime yaramıyor. Ben tüm alt yapıyı bu şekilde kurdum

Arama yaparken aşağıdaki kodu kullanıyorum
53 değişken tanımlı ama sadece 24üne göre arama yapabiliyorum. Arttırınca hata alıyorum
Kod: 
Private Sub aramabutonu_Click()
'Textboxlar ile listviewde arama yapıyoruz
Dim i As Long, birim, adsoyad, tckimlik, unvan, kisitipi, isegiris, erpgir, istencikis, erpcik, ayrilisneden, calismasure, adres, il, ilce, mahalle, cadde, sokak, kapino, daire, evtel, ceptel, ilgilikisi, maas2015, maas2014, maas2013, stajunvan, stajbirimi, stajbas, stajbit, stajsure, sinav1, sinav2, basvuru, sozlesme, muvafakatname, agi, isg, fotograf, nufus, vukuatli, ikametgah, sabika, ogrenim, terhis, ehliyet, src, psiko, akciger, hemogram, solunum, odyometri, lumbo, goz, periyodik As String


Application.Calculation = xlCalculationManual

Application.Volatile

Set sr = Sheets("DATA")
ListView1.ListItems.Clear
With ListView1
For i = 2 To sr.Cells(65536, 1).End(xlUp).Row
    If birimcbox.Value = "" Then
        birim = sr.Cells(i, "A").Value
        Else
        birim = birimcbox.Value
    End If
    If adsoyadtbox.Value = "" Then
        adsoyad = sr.Cells(i, "B").Value
        Else
        adsoyad = adsoyadtbox.Value
    End If
    If tckimliktbox.Value = "" Then
        tckimlik = sr.Cells(i, "C").Value
        Else
        tckimlik = tckimliktbox.Value
    End If
    If unvancbox.Value = "" Then
        unvan = sr.Cells(i, "D").Value
        Else
        unvan = unvancbox.Value
    End If
    If kisitipicbox.Value = "" Then
        kisitipi = sr.Cells(i, "E").Value
        Else
        kisitipi = kisitipicbox.Value
    End If
    If isegiristbox.Value = "" Then
        isegiris = sr.Cells(i, "F").Value
        Else
        isegiris = isegiristbox.Value
    End If
        If erpgiriscbox.Value = "" Then
        erpgir = sr.Cells(i, "G").Value
        Else
        erpgir = erpgiriscbox.Value
    End If
        If istenayrilistbox.Value = "" Then
        istencikis = sr.Cells(i, "H").Value
        Else
        istencikis = istenayrilistbox.Value
    End If
    If erpcikiscbox.Value = "" Then
        erpcik = sr.Cells(i, "I").Value
        Else
        erpcik = erpcikiscbox.Value
    End If
    If ayrilisnedenitbox.Value = "" Then
        ayrilisneden = sr.Cells(i, "J").Value
        Else
        ayrilisneden = ayrilisnedenitbox.Value
    End If
    If calismasüresitbox.Value = "" Then
        calismasure = sr.Cells(i, "K").Value
        Else
        calismasure = calismasüresitbox.Value
    End If
    If adrestbox.Value = "" Then
        adres = sr.Cells(i, "L").Value
        Else
        adres = adrestbox.Value
    End If
    If ilcbox.Value = "" Then
        il = sr.Cells(i, "M").Value
        Else
        il = ilcbox.Value
    End If
    If ilcetbox.Value = "" Then
        ilce = sr.Cells(i, "N").Value
        Else
        ilce = ilcetbox.Value
    End If
    If mahalletbox.Value = "" Then
        mahalle = sr.Cells(i, "O").Value
        Else
        mahalle = mahalletbox.Value
    End If
    If caddetbox.Value = "" Then
        cadde = sr.Cells(i, "P").Value
        Else
        cadde = caddetbox.Value
    End If
    If sokaktbox.Value = "" Then
        sokak = sr.Cells(i, "Q").Value
        Else
        sokak = sokaktbox.Value
    End If
    If kapinotbox.Value = "" Then
        kapino = sr.Cells(i, "R").Value
        Else
        kapino = kapinotbox.Value
    End If
    If dairetbox.Value = "" Then
        daire = sr.Cells(i, "S").Value
        Else
        daire = dairetbox.Value
    End If
    If evteltbox.Value = "" Then
        evtel = sr.Cells(i, "T").Value
        Else
        evtel = evteltbox.Value
    End If
     If cepteltbox.Value = "" Then
        ceptel = sr.Cells(i, "U").Value
        Else
        ceptel = cepteltbox.Value
    End If
     If ilgilikisitbox.Value = "" Then
        ilgilikisi = sr.Cells(i, "V").Value
        Else
        ilgilikisi = ilgilikisitbox.Value
    End If
    
    If maas2015tbox.Value = "" Then
        maas2015 = sr.Cells(i, "W").Value
        Else
        maas2015 = maas2015tbox.Value
    End If
    
     If maas2014tbox.Value = "" Then
        maas2014 = sr.Cells(i, "X").Value
        Else
        maas2014 = maas2014tbox.Value
    End If
    
    If maas2013tbox.Value = "" Then
        maas2013 = sr.Cells(i, "Y").Value
        Else
        maas2013 = maas2013tbox.Value
    End If
    
     If stajbirimcbox.Value = "" Then
        stajbirimi = sr.Cells(i, "Z").Value
        Else
        stajbirimi = stajbirimcbox.Value
    End If
    
    If stajbastbox.Value = "" Then
        stajbas = sr.Cells(i, "AA").Value
        Else
        stajbas = stajbastbox.Value
    End If
    
    If stajbitistbox.Value = "" Then
        stajbit = sr.Cells(i, "AB").Value
        Else
        stajbit = stajbitistbox.Value
    End If
    
    If stajsuretbox.Value = "" Then
        stajsure = sr.Cells(i, "AC").Value
        Else
        stajsure = stajbitistbox.Value
    End If
    
    If sinavpuan1tbox.Value = "" Then
        sinav1 = sr.Cells(i, "AD").Value
        Else
        sinav1 = sinavpuan1tbox.Value
    End If
     
     If sinavpuan2tbox.Value = "" Then
        sinav2 = sr.Cells(i, "AE").Value
        Else
        sinav2 = sinavpuan2tbox.Value
    End If
    
      If basvuruformucbox.Value = "" Then
        basvuru = sr.Cells(i, "AF").Value
        Else
        basvuru = basvuruformucbox.Value
    End If
    
      If sozlesmecbox.Value = "" Then
        sozlesme = sr.Cells(i, "AG").Value
        Else
        sozlesme = sozlesmecbox.Value
    End If
    
    If muvafakatnamecbox.Value = "" Then
        muvafakatname = sr.Cells(i, "AH").Value
        Else
        muvafakatname = muvafakatnamecbox.Value
    End If
    
    If agicbox.Value = "" Then
        agi = sr.Cells(i, "AI").Value
        Else
        agi = agicbox.Value
    End If

    If isgcbox.Value = "" Then
        isg = sr.Cells(i, "AJ").Value
        Else
        isg = isgcbox.Value
    End If
    
    If fotografcbox.Value = "" Then
        fotograf = sr.Cells(i, "AK").Value
        Else
        fotograf = fotografcbox.Value
    End If
    
    If nufusfotokopicbox.Value = "" Then
        nufus = sr.Cells(i, "AL").Value
        Else
        nufus = nufusfotokopicbox.Value
    End If
    
    If vukuatlicbox.Value = "" Then
        vukuatli = sr.Cells(i, "AM").Value
        Else
        vukuatli = vukuatlicbox.Value
    End If
    
    If ikametgahcbox.Value = "" Then
        ikametgah = sr.Cells(i, "AN").Value
        Else
        ikametgah = ikametgahcbox.Value
    End If
    
    If sabikakaydicbox.Value = "" Then
        sabika = sr.Cells(i, "AO").Value
        Else
        sabika = sabikakaydicbox.Value
    End If
    
    If ogrenimbelgesicbox.Value = "" Then
        ogrenim = sr.Cells(i, "AP").Value
        Else
        ogrenim = ogrenimbelgesicbox.Value
    End If
    
    If terhisbelgesicbox.Value = "" Then
        terhis = sr.Cells(i, "AQ").Value
        Else
        terhis = terhisbelgesicbox.Value
    End If
    
    If ehliyetcbox.Value = "" Then
        ehliyet = sr.Cells(i, "AR").Value
        Else
        ehliyet = ehliyetcbox.Value
    End If
    
    If srccbox.Value = "" Then
        src = sr.Cells(i, "AS").Value
        Else
        src = srccbox.Value
    End If
    
    If psikoteknikcbox.Value = "" Then
        psiko = sr.Cells(i, "AT").Value
        Else
        psiko = psikoteknikcbox.Value
    End If
    
    If akcigercbox.Value = "" Then
        akciger = sr.Cells(i, "AU").Value
        Else
        akciger = akcigercbox.Value
    End If
    
    If hemogramcbox.Value = "" Then
        hemogram = sr.Cells(i, "AV").Value
        Else
        hemogram = hemogramcbox.Value
    End If
    
    If solunumcbox.Value = "" Then
        solunum = sr.Cells(i, "AW").Value
        Else
        solunum = solunumcbox.Value
    End If
    
    If odyometricbox.Value = "" Then
        odyometri = sr.Cells(i, "AX").Value
        Else
        odyometri = odyometricbox.Value
    End If
    
    If lumbocbox.Value = "" Then
        lumbo = sr.Cells(i, "AY").Value
        Else
        lumbo = lumbocbox.Value
    End If
    
    If gozcbox.Value = "" Then
        goz = sr.Cells(i, "AZ").Value
        Else
        goz = gozcbox.Value
    End If
    
    If periyodikcbox.Value = "" Then
        periyodik = sr.Cells(i, "BA").Value
        Else
        periyodik = periyodikcbox.Value
    End If
    
    
    
    birim = UCase(Replace(Replace(birim, "ı", "I"), "i", "İ"))
    adsoyad = UCase(Replace(Replace(adsoyad, "ı", "I"), "i", "İ"))
    tckimlik = UCase(Replace(Replace(tckimlik, "ı", "I"), "i", "İ"))
    unvan = UCase(Replace(Replace(unvan, "ı", "I"), "i", "İ"))
    kisitipi = UCase(Replace(Replace(kisitipi, "ı", "I"), "i", "İ"))
    isegiris = UCase(Replace(Replace(isegiris, "ı", "I"), "i", "İ"))
    erpgir = UCase(Replace(Replace(erpgir, "ı", "I"), "i", "İ"))
    istencikis = UCase(Replace(Replace(istencikis, "ı", "I"), "i", "İ"))
    erpcik = UCase(Replace(Replace(erpcik, "ı", "I"), "i", "İ"))
    ayrilisneden = UCase(Replace(Replace(ayrilisneden, "ı", "I"), "i", "İ"))
    calismasure = UCase(Replace(Replace(calismasure, "ı", "I"), "i", "İ"))
    adres = UCase(Replace(Replace(adres, "ı", "I"), "i", "İ"))
    il = UCase(Replace(Replace(il, "ı", "I"), "i", "İ"))
    ilce = UCase(Replace(Replace(ilce, "ı", "I"), "i", "İ"))
    mahalle = UCase(Replace(Replace(mahalle, "ı", "I"), "i", "İ"))
    cadde = UCase(Replace(Replace(cadde, "ı", "I"), "i", "İ"))
    sokak = UCase(Replace(Replace(sokak, "ı", "I"), "i", "İ"))
    kapino = UCase(Replace(Replace(kapino, "ı", "I"), "i", "İ"))
    daire = UCase(Replace(Replace(daire, "ı", "I"), "i", "İ"))
    evtel = UCase(Replace(Replace(evtel, "ı", "I"), "i", "İ"))
    ceptel = UCase(Replace(Replace(ceptel, "ı", "I"), "i", "İ"))
    ilgilikisi = UCase(Replace(Replace(ilgilikisi, "ı", "I"), "i", "İ"))
    maas2015 = UCase(Replace(Replace(maas2015, "ı", "I"), "i", "İ"))
    maas2014 = UCase(Replace(Replace(maas2014, "ı", "I"), "i", "İ"))
    maas2013 = UCase(Replace(Replace(maas2013, "ı", "I"), "i", "İ"))
    stajbirimi = UCase(Replace(Replace(stajbirimi, "ı", "I"), "i", "İ"))
    stajbas = UCase(Replace(Replace(stajbas, "ı", "I"), "i", "İ"))
    stajbit = UCase(Replace(Replace(stajbit, "ı", "I"), "i", "İ"))
    stajsure = UCase(Replace(Replace(stajsure, "ı", "I"), "i", "İ"))
    sinav1 = UCase(Replace(Replace(sinav1, "ı", "I"), "i", "İ"))
    sinav2 = UCase(Replace(Replace(sinav2, "ı", "I"), "i", "İ"))
    basvuru = UCase(Replace(Replace(basvuru, "ı", "I"), "i", "İ"))
    sozlesme = UCase(Replace(Replace(sozlesme, "ı", "I"), "i", "İ"))
    muvafakatname = UCase(Replace(Replace(muvafakatname, "ı", "I"), "i", "İ"))
    agi = UCase(Replace(Replace(agi, "ı", "I"), "i", "İ"))
    isg = UCase(Replace(Replace(isg, "ı", "I"), "i", "İ"))
    fotograf = UCase(Replace(Replace(fotograf, "ı", "I"), "i", "İ"))
    nufus = UCase(Replace(Replace(nufus, "ı", "I"), "i", "İ"))
    vukuatli = UCase(Replace(Replace(vukuatli, "ı", "I"), "i", "İ"))
    ikametgah = UCase(Replace(Replace(ikametgah, "ı", "I"), "i", "İ"))
    sabika = UCase(Replace(Replace(sabika, "ı", "I"), "i", "İ"))
    ogrenim = UCase(Replace(Replace(ogrenim, "ı", "I"), "i", "İ"))
    terhis = UCase(Replace(Replace(terhis, "ı", "I"), "i", "İ"))
    ehliyet = UCase(Replace(Replace(ehliyet, "ı", "I"), "i", "İ"))
    src = UCase(Replace(Replace(src, "ı", "I"), "i", "İ"))
    psiko = UCase(Replace(Replace(psiko, "ı", "I"), "i", "İ"))
    akciger = UCase(Replace(Replace(akciger, "ı", "I"), "i", "İ"))
    hemogram = UCase(Replace(Replace(hemogram, "ı", "I"), "i", "İ"))
    solunum = UCase(Replace(Replace(solunum, "ı", "I"), "i", "İ"))
    odyometri = UCase(Replace(Replace(odyometri, "ı", "I"), "i", "İ"))
    lumbo = UCase(Replace(Replace(lumbo, "ı", "I"), "i", "İ"))
    goz = UCase(Replace(Replace(goz, "ı", "I"), "i", "İ"))
    periyodik = UCase(Replace(Replace(periyodik, "ı", "I"), "i", "İ"))
    
    
    
    If UCase(Replace(Replace(sr.Cells(i, "A").Value, "ı", "I"), "i", "İ")) Like "*" & birim & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "B").Value, "ı", "I"), "i", "İ")) Like "*" & adsoyad & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "C").Value, "ı", "I"), "i", "İ")) Like "*" & tckimlik & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "D").Value, "ı", "I"), "i", "İ")) Like "*" & unvan & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "E").Value, "ı", "I"), "i", "İ")) Like "*" & kisitipi & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "F").Value, "ı", "I"), "i", "İ")) Like "*" & isegiris & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "G").Value, "ı", "I"), "i", "İ")) Like "*" & erpgir & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "H").Value, "ı", "I"), "i", "İ")) Like "*" & istencikis & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "I").Value, "ı", "I"), "i", "İ")) Like "*" & erpcik & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "J").Value, "ı", "I"), "i", "İ")) Like "*" & ayrilisneden & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "K").Value, "ı", "I"), "i", "İ")) Like "*" & calismasure & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "L").Value, "ı", "I"), "i", "İ")) Like "*" & adres & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "M").Value, "ı", "I"), "i", "İ")) Like "*" & il & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "N").Value, "ı", "I"), "i", "İ")) Like "*" & ilce & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "O").Value, "ı", "I"), "i", "İ")) Like "*" & mahalle & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "P").Value, "ı", "I"), "i", "İ")) Like "*" & cadde & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "Q").Value, "ı", "I"), "i", "İ")) Like "*" & sokak & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "R").Value, "ı", "I"), "i", "İ")) Like "*" & kapino & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "S").Value, "ı", "I"), "i", "İ")) Like "*" & daire & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "T").Value, "ı", "I"), "i", "İ")) Like "*" & evtel & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "U").Value, "ı", "I"), "i", "İ")) Like "*" & ceptel & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "V").Value, "ı", "I"), "i", "İ")) Like "*" & ilgilikisi & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "W").Value, "ı", "I"), "i", "İ")) Like "*" & maas2015 & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "X").Value, "ı", "I"), "i", "İ")) Like "*" & maas2014 & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "Y").Value, "ı", "I"), "i", "İ")) Like "*" & maas2013 & "*" Then
     

    
        ListView1.ListItems.Add , , i
        x = x + 1
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "A")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "B")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "C")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "D")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "E")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "F")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "G")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "H")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "I")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "J")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "K")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "L")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "M")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "N")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "O")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "P")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "Q")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "R")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "S")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "T")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "U")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "V")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "W")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "X")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "Y")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "Z")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AA")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AB")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AC")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AD")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AE")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AF")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AG")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AH")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AI")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AJ")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AK")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AL")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AM")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AN")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AO")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AP")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AQ")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AR")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AS")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AT")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AU")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AV")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AW")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AX")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AY")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "AZ")
        .ListItems(x).ListSubItems.Add , , sr.Cells(i, "BA")
        
    End If
    
Next i
End With
If ListView1.ListItems.Count = 0 Then
MsgBox "Aranan Şartlara Uygun Kayıt BULUNAMADI.", vbExclamation + vbOKOnly, "Bulunamadı!"
End If
Set sr = Nothing

Application.Calculation = xlCalculationAutomatic


End Sub
 
veyselemre

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,653
Excel Vers. ve Dili
Pro Plus 2021
Kodlarınızı kısalttım, deneme şansım olmadığı için hata varmı bilemiyorum.
Kod: 
Private Sub aramabutonu_Click()
'Textboxlar ile listviewde arama yapıyoruz
    Dim i As Long, birim, adsoyad, tckimlik, unvan, kisitipi, isegiris, erpgir, istencikis, erpcik, ayrilisneden, calismasure, adres, il, ilce, mahalle, cadde, sokak, kapino, daire, evtel, ceptel, ilgilikisi, maas2015, maas2014, maas2013, stajunvan, stajbirimi, stajbas, stajbit, stajsure, sinav1, sinav2, basvuru, sozlesme, muvafakatname, agi, isg, fotograf, nufus, vukuatli, ikametgah, sabika, ogrenim, terhis, ehliyet, src, psiko, akciger, hemogram, solunum, odyometri, lumbo, goz, periyodik As String

    Application.Calculation = xlCalculationManual

    Application.Volatile

    Set sr = Sheets("DATA")
    ListView1.ListItems.Clear
    With ListView1
        For i = 2 To sr.Cells(65536, 1).End(xlUp).Row
            If birimcbox.Value = "" Then
                birim = sr.Cells(i, "A").Value
            Else
                birim = birimcbox.Value
            End If
            If adsoyadtbox.Value = "" Then
                adsoyad = sr.Cells(i, "B").Value
            Else
                adsoyad = adsoyadtbox.Value
            End If
            If tckimliktbox.Value = "" Then
                tckimlik = sr.Cells(i, "C").Value
            Else
                tckimlik = tckimliktbox.Value
            End If
            If unvancbox.Value = "" Then
                unvan = sr.Cells(i, "D").Value
            Else
                unvan = unvancbox.Value
            End If
            If kisitipicbox.Value = "" Then
                kisitipi = sr.Cells(i, "E").Value
            Else
                kisitipi = kisitipicbox.Value
            End If
            If isegiristbox.Value = "" Then
                isegiris = sr.Cells(i, "F").Value
            Else
                isegiris = isegiristbox.Value
            End If
            If erpgiriscbox.Value = "" Then
                erpgir = sr.Cells(i, "G").Value
            Else
                erpgir = erpgiriscbox.Value
            End If
            If istenayrilistbox.Value = "" Then
                istencikis = sr.Cells(i, "H").Value
            Else
                istencikis = istenayrilistbox.Value
            End If
            If erpcikiscbox.Value = "" Then
                erpcik = sr.Cells(i, "I").Value
            Else
                erpcik = erpcikiscbox.Value
            End If
            If ayrilisnedenitbox.Value = "" Then
                ayrilisneden = sr.Cells(i, "J").Value
            Else
                ayrilisneden = ayrilisnedenitbox.Value
            End If
            If calismasüresitbox.Value = "" Then
                calismasure = sr.Cells(i, "K").Value
            Else
                calismasure = calismasüresitbox.Value
            End If
            If adrestbox.Value = "" Then
                adres = sr.Cells(i, "L").Value
            Else
                adres = adrestbox.Value
            End If
            If ilcbox.Value = "" Then
                il = sr.Cells(i, "M").Value
            Else
                il = ilcbox.Value
            End If
            If ilcetbox.Value = "" Then
                ilce = sr.Cells(i, "N").Value
            Else
                ilce = ilcetbox.Value
            End If
            If mahalletbox.Value = "" Then
                mahalle = sr.Cells(i, "O").Value
            Else
                mahalle = mahalletbox.Value
            End If
            If caddetbox.Value = "" Then
                cadde = sr.Cells(i, "P").Value
            Else
                cadde = caddetbox.Value
            End If
            If sokaktbox.Value = "" Then
                sokak = sr.Cells(i, "Q").Value
            Else
                sokak = sokaktbox.Value
            End If
            If kapinotbox.Value = "" Then
                kapino = sr.Cells(i, "R").Value
            Else
                kapino = kapinotbox.Value
            End If
            If dairetbox.Value = "" Then
                daire = sr.Cells(i, "S").Value
            Else
                daire = dairetbox.Value
            End If
            If evteltbox.Value = "" Then
                evtel = sr.Cells(i, "T").Value
            Else
                evtel = evteltbox.Value
            End If
            If cepteltbox.Value = "" Then
                ceptel = sr.Cells(i, "U").Value
            Else
                ceptel = cepteltbox.Value
            End If
            If ilgilikisitbox.Value = "" Then
                ilgilikisi = sr.Cells(i, "V").Value
            Else
                ilgilikisi = ilgilikisitbox.Value
            End If

            If maas2015tbox.Value = "" Then
                maas2015 = sr.Cells(i, "W").Value
            Else
                maas2015 = maas2015tbox.Value
            End If

            If maas2014tbox.Value = "" Then
                maas2014 = sr.Cells(i, "X").Value
            Else
                maas2014 = maas2014tbox.Value
            End If

            If maas2013tbox.Value = "" Then
                maas2013 = sr.Cells(i, "Y").Value
            Else
                maas2013 = maas2013tbox.Value
            End If

            If stajbirimcbox.Value = "" Then
                stajbirimi = sr.Cells(i, "Z").Value
            Else
                stajbirimi = stajbirimcbox.Value
            End If

            If stajbastbox.Value = "" Then
                stajbas = sr.Cells(i, "AA").Value
            Else
                stajbas = stajbastbox.Value
            End If

            If stajbitistbox.Value = "" Then
                stajbit = sr.Cells(i, "AB").Value
            Else
                stajbit = stajbitistbox.Value
            End If

            If stajsuretbox.Value = "" Then
                stajsure = sr.Cells(i, "AC").Value
            Else
                stajsure = stajbitistbox.Value
            End If

            If sinavpuan1tbox.Value = "" Then
                sinav1 = sr.Cells(i, "AD").Value
            Else
                sinav1 = sinavpuan1tbox.Value
            End If

            If sinavpuan2tbox.Value = "" Then
                sinav2 = sr.Cells(i, "AE").Value
            Else
                sinav2 = sinavpuan2tbox.Value
            End If

            If basvuruformucbox.Value = "" Then
                basvuru = sr.Cells(i, "AF").Value
            Else
                basvuru = basvuruformucbox.Value
            End If

            If sozlesmecbox.Value = "" Then
                sozlesme = sr.Cells(i, "AG").Value
            Else
                sozlesme = sozlesmecbox.Value
            End If

            If muvafakatnamecbox.Value = "" Then
                muvafakatname = sr.Cells(i, "AH").Value
            Else
                muvafakatname = muvafakatnamecbox.Value
            End If

            If agicbox.Value = "" Then
                agi = sr.Cells(i, "AI").Value
            Else
                agi = agicbox.Value
            End If

            If isgcbox.Value = "" Then
                isg = sr.Cells(i, "AJ").Value
            Else
                isg = isgcbox.Value
            End If

            If fotografcbox.Value = "" Then
                fotograf = sr.Cells(i, "AK").Value
            Else
                fotograf = fotografcbox.Value
            End If

            If nufusfotokopicbox.Value = "" Then
                nufus = sr.Cells(i, "AL").Value
            Else
                nufus = nufusfotokopicbox.Value
            End If

            If vukuatlicbox.Value = "" Then
                vukuatli = sr.Cells(i, "AM").Value
            Else
                vukuatli = vukuatlicbox.Value
            End If

            If ikametgahcbox.Value = "" Then
                ikametgah = sr.Cells(i, "AN").Value
            Else
                ikametgah = ikametgahcbox.Value
            End If

            If sabikakaydicbox.Value = "" Then
                sabika = sr.Cells(i, "AO").Value
            Else
                sabika = sabikakaydicbox.Value
            End If

            If ogrenimbelgesicbox.Value = "" Then
                ogrenim = sr.Cells(i, "AP").Value
            Else
                ogrenim = ogrenimbelgesicbox.Value
            End If

            If terhisbelgesicbox.Value = "" Then
                terhis = sr.Cells(i, "AQ").Value
            Else
                terhis = terhisbelgesicbox.Value
            End If

            If ehliyetcbox.Value = "" Then
                ehliyet = sr.Cells(i, "AR").Value
            Else
                ehliyet = ehliyetcbox.Value
            End If

            If srccbox.Value = "" Then
                src = sr.Cells(i, "AS").Value
            Else
                src = srccbox.Value
            End If

            If psikoteknikcbox.Value = "" Then
                psiko = sr.Cells(i, "AT").Value
            Else
                psiko = psikoteknikcbox.Value
            End If

            If akcigercbox.Value = "" Then
                akciger = sr.Cells(i, "AU").Value
            Else
                akciger = akcigercbox.Value
            End If

            If hemogramcbox.Value = "" Then
                hemogram = sr.Cells(i, "AV").Value
            Else
                hemogram = hemogramcbox.Value
            End If

            If solunumcbox.Value = "" Then
                solunum = sr.Cells(i, "AW").Value
            Else
                solunum = solunumcbox.Value
            End If

            If odyometricbox.Value = "" Then
                odyometri = sr.Cells(i, "AX").Value
            Else
                odyometri = odyometricbox.Value
            End If

            If lumbocbox.Value = "" Then
                lumbo = sr.Cells(i, "AY").Value
            Else
                lumbo = lumbocbox.Value
            End If

            If gozcbox.Value = "" Then
                goz = sr.Cells(i, "AZ").Value
            Else
                goz = gozcbox.Value
            End If

            If periyodikcbox.Value = "" Then
                periyodik = sr.Cells(i, "BA").Value
            Else
                periyodik = periyodikcbox.Value
            End If

            Dim bak(1 To 53) As String
            bak(1) = bHcevir(birim)
            bak(2) = bHcevir(adsoyad)
            bak(3) = bHcevir(tckimlik)
            bak(4) = bHcevir(unvan)
            bak(5) = bHcevir(kisitipi)
            bak(6) = bHcevir(isegiris)
            bak(7) = bHcevir(erpgir)
            bak(8) = bHcevir(istencikis)
            bak(9) = bHcevir(erpcik)
            bak(10) = bHcevir(ayrilisneden)
            bak(11) = bHcevir(calismasure)
            bak(12) = bHcevir(adres)
            bak(13) = bHcevir(il)
            bak(14) = bHcevir(ilce)
            bak(15) = bHcevir(mahalle)
            bak(16) = bHcevir(cadde)
            bak(17) = bHcevir(sokak)
            bak(18) = bHcevir(kapino)
            bak(19) = bHcevir(daire)
            bak(20) = bHcevir(evtel)
            bak(21) = bHcevir(ceptel)
            bak(22) = bHcevir(ilgilikisi)
            bak(23) = bHcevir(maas2015)
            bak(24) = bHcevir(maas2014)
            bak(25) = bHcevir(maas2013)
            bak(26) = bHcevir(stajbirimi)
            bak(27) = bHcevir(stajbas)
            bak(28) = bHcevir(stajbit)
            bak(29) = bHcevir(stajsure)
            bak(30) = bHcevir(sinav1)
            bak(31) = bHcevir(sinav2)
            bak(32) = bHcevir(basvuru)
            bak(33) = bHcevir(sozlesme)
            bak(34) = bHcevir(muvafakatname)
            bak(35) = bHcevir(agi)
            bak(36) = bHcevir(isg)
            bak(37) = bHcevir(fotograf)
            bak(38) = bHcevir(nufus)
            bak(39) = bHcevir(vukuatli)
            bak(40) = bHcevir(ikametgah)
            bak(41) = bHcevir(sabika)
            bak(42) = bHcevir(ogrenim)
            bak(43) = bHcevir(terhis)
            bak(44) = bHcevir(ehliyet)
            bak(45) = bHcevir(src)
            bak(46) = bHcevir(psiko)
            bak(47) = bHcevir(akciger)
            bak(48) = bHcevir(hemogram)
            bak(49) = bHcevir(solunum)
            bak(50) = bHcevir(odyometri)
            bak(51) = bHcevir(lumbo)
            bak(52) = bHcevir(goz)
            bak(53) = bHcevir(periyodik)

            hata = False
            For sut = 1 To 53
                If bHcevir(sr.Cells(i, sut).Value) Like "*" & bak(sut) & "*" = False Then hata = True: Exit For

            Next sut

            If hata = False Then
                ListView1.ListItems.Add , , i
                x = x + 1
                For sut = 1 To 53
                    .ListItems(x).ListSubItems.Add , , sr.Cells(i, sut)
                Next sut
            End If
        Next i
    End With
    If ListView1.ListItems.Count = 0 Then
        MsgBox "Aranan Şartlara Uygun Kayıt BULUNAMADI.", vbExclamation + vbOKOnly, "Bulunamadı!"
    End If
    Set sr = Nothing

    Application.Calculation = xlCalculationAutomatic

End Sub

Function bHcevir(metin) As String
    bHcevir = UCase(Replace(Replace(metin, "ı", "I"), "i", "İ"))
End Function
 
T

tigiy

Altın Üye
Katılım
31 Aralık 2013
Mesajlar
138
Excel Vers. ve Dili
2019-Türkçe
Altın Üyelik Bitiş Tarihi
11-09-2025
Teşekkürler hocam şuan için tam istediğim gibi elinize sağlık
 
T

tigiy

Altın Üye
Katılım
31 Aralık 2013
Mesajlar
138
Excel Vers. ve Dili
2019-Türkçe
Altın Üyelik Bitiş Tarihi
11-09-2025
Teşkkürler
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Üst