Ara-Bul Makrosuyla Küsüratlı Rakamların Bulunması

[EKREM1661]

selamlar..!

Arkadaşlar..örnek dosya aşağıda eklenmiştir. sayfa içinden veri bulmak için kullandığım bu uygulama..

1-Küsüratlı verileri aramada "Run-time Error 91" hatası veriyor. Acaba küsüratlı (örn.1335,50 gibi) rakamları da ara-bul uygulamasına dahil edemezmiyiz..

2-Ekte verdiğim örnek dosyada arama ve bulmayı sadece "D" sütununda yapması..

yardımcı olursanız sevinirim..hayırlı çalışmalar..

 

[alpi]

Arama yaptığınız formun kodlarını silip aşağıdakileri yazınız.

Private Sub Sonraki_Click()
    On Error Resume Next
    If ActiveCell.Column = 4 Then
        Range("D1:D65530").Find(TextBox1.Text, ActiveCell).Activate
    Else
        Range("D1:D65530").Find(TextBox1.Text).Activate
    End If
End Sub
Private Sub Bütünü_Click()
    If frmbul.Height = 80.25 Then
        frmbul.Height = 200
        TumunuBul
    Else
        TumunuBul
    End If
End Sub
Private Sub TumunuBul()
    ListBox1.Clear
    If TextBox1 = "" Then Exit Sub
    On Error Resume Next
    If ActiveCell.Column = 4 Then
        Set Bul = Range("D1:D65530").Find(TextBox1.Text, ActiveCell).Activate
    Else
        Set Bul = Range("D1:D65530").Find(TextBox1.Text).Activate
    End If
    If Not Bul Is Nothing Then
        ilkAdres = Bul.Address
        Do
            ListBox1.AddItem Bul.Address _
                & "    -    " & ActiveSheet.Name _
                & "    -    " & Bul.Value
            Set Bul = Cells.FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> ilkAdres
    End If
End Sub
Private Sub ListBox1_Click()
    Range(Trim(Mid(ListBox1.Value, 1, 8))).Select
End Sub

 

[EKREM1661]

sayın Alpi..öncelikle şahsınıza sağlık bereket dileğiyle teşekkür ediyorum..

verdiğiniz makroları çalıştırdım..
1-formun "Sonrakini Bul" kutusuna küsüratlı rakam yazdığımda etkisiz kalıyor (çalışmıyor)
2-Tümünü bul kutusu ise bulunan birden fazla değerleri alt kutuya listelemiyor, (etkisiz kalıyor)
3-Ayrıca "Tümünü Bul" kutusunda değerleri alt kutuya listelerken hücre başvurusu şeklinde değil de (ilk bendeki şekli gibi), hücrede yazıldığı şekliyle isim olarak sıralayamazmı..

hayırlı çalışmalar..hoşça kalın..

 

[alpi]

Sayın exelim az önce uygulamaya baktım sizin istediğiniz şey aslında Excel de mevcut yani Ctrl+F tuşlarına basmadan önce D sutünunu seçin ve Ctrl+F tuşlarına basın aramak istediğinizi yazıp Tümünü Bul u tıklatın.
Tam olarak sizin istedikleriniz gerçekleşecektir.

Excelde bulunan bir özelliğin aynısını yapmaya ne gerek var diye düşünüyorum.