11 haneli rakam için Search Box

[Kavinsky]

Merhaba, Aşağıda belirttiğim kod form olarak tasarlanmış bir search boxta arama yapıyor fakat A satırındaki 11 haneli rakamı arama yaparken Run-Time error '13': Type Mismatch hatası veriyor. Hücre biçimini sayı da yapsam genel de yapsam hatayı alıyorum.

DOSYA İNDİRME LİNKİ

İndir ARAMA

Dosyayı indir ARAMA

dosya.co

 

[Korhan Ayhan]

Merhaba,

Basit bir örnek dosya hazırladım. Kendi dosyanıza uyarlayacağınızı düşünüyorum.

İki türlü arama yapıyor.

İlk buton CTRL+F yöntemiyle arama yapar ve sonuçları MSGBOX üzerinde görüntüler.
İkinci buton DÖNGÜ yöntemiyle arama yapar ve sonuçları MSGBOX üzerinde görüntüler.


Harici Link (Silinebilir) ; https://uploadnow.io/files/gs87VFD

 

[Kavinsky]

Üstat harici link için ücretli üyelik istiyor indirebilmem için.
Dosya Yükle - Dosya Upload yükleme imkanınız var mıdır ?

 

[Korhan Ayhan]

Paylaştığım link için ücretli üyeliğe gerek yok. Linke tıkladığınızda ekranın ortasına doğru dosyanın adını göreceksiniz. Sağa doğru gittiğinizde altı çizgili aşağı ok tuşuna tıklayınca dosya inecektir.

 

[Kavinsky]

Hocam bu site maalesef ücretli. Muhtemelen sizin üyeliğiniz olduğu için siz de dosya indirme sayfası gözüküyor. Üye olmayanları artık ücretli üyelik alma sayfasına yönlendirmekte. Ama yine de emeğiniz için teşekkür ederim, ne zaman sıkışsak yardımımıza yetişiyorsunuz.

 

[Korhan Ayhan]

Görseldeki gibi indirebilirsiniz.

 

[Kavinsky]

Linke tıklayınca buna yönlendiriyorum Sayın hocam. Siz yüklediğiniz için Çerezlerden dolayı siz de açıyor.

 

[Korhan Ayhan]

İlginçmiş..

Deneyiniz.

İndir Userform Textbox Arama

Dosyayı indir Userform Textbox Arama

dosya.co

 

[Kavinsky]

Emeğiniz için çok teşekkür ederim hocam fakat yapmak istediğimi karşılamadı bu.
Harf yazınca arama yapıyor ama sadece rakam yazınca çalışmıyor ve Run-Time error '13': Type Mismatch hatası veriyor . Koda bakmanız mümkün mü nerede hata yaptığımı çözemedim.

Sub bul()
Dim satir As String
Dim i As Integer
Columns("A:E").Select
    Selection.NumberFormat = "@"
satir = WorksheetFunction.CountA(Worksheets("liste").Range("A2:A1048576"))
'MsgBox satir
form.kalipbox.Clear
form.kabox.Clear
form.kfbox.Clear
form.Terminal.Text = ""

a = 0
For i = 2 To satir
If form.anabox.Text = Worksheets("liste").Cells(i, 1).Text Then
a = a + 1
'Format(a, "# ### ##") + "-" +

form.Terminal.Value = Worksheets("liste").Cells(i, 1).Value + " - " + Worksheets("liste").Cells(i, 2).Value
form.kalipbox.AddItem (Format(a, "# ### ##") + "-" + Worksheets("liste").Cells(i, 3).Value)
form.kabox.AddItem (Format(a, "# ### ##") + "-" + Worksheets("liste").Cells(i, 4).Value)
form.kfbox.AddItem (Format(a, "# ### ##") + "-" + Worksheets("liste").Cells(i, 5).Value)
'kalip = Format(a, "# ### ##") + "-" + Worksheets("liste").Cells(i, 3).Value
form.anabox.SetFocus
'MsgBox kalip
End If
Next i
form.anabox.Text = ""
form.anabox.SetFocus
If a = 0 Then
MsgBox "Terminal Kodu Yok"
form.anabox.SetFocus
form.anabox.Text = ""
End If
'MsgBox kalip
form.anabox.Text = ""
form.anabox.SetFocus
Range("H12").Select
Application.CutCopyMode = False
End Sub

 

[Korhan Ayhan]

Örnek dosya paylaşabilirmisiniz.

 

[Kavinsky]

İndir ARAMA xlsm (dosya.co)

 

[Korhan Ayhan]

Merhaba,

Bende aşağıdaki satırda hata oluştu.

Aşağıdaki satırdaki kalın kırmızı fontlu yerleri & sembolü ile güncelleyip deneyiniz.

form.Terminal.Value = Worksheets("liste").Cells(i, 1).Value + " - " + Worksheets("liste").Cells(i, 2).Value