Sayısal Değerleri Süzme

[Hacı Bayram ÖZKAN]

Merhaba Arkadaşlar;
Aşağıdaki kodla G Sütunundaki veriler "İÇERİR ARAMA" yapıyor.

Private Sub TextBox7_Change()
On Error Resume Next 'İÇERİR ARAR
METİN1 = TextBox7.Value
Set FC2 = Range("G3:J65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=7, Criteria1:="*" & TextBox7.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=7
End If
End Sub

Ancak G sütununda SADECE SAYISAL RAKAM OLUNCA süzme yapmıyor, oysa ben bazen sayısal da süzme yapmak istiyorum, bu kodu nasıl değiştiririm. Saygılarıma

 

[vardar07]

Birde bunu denermisiniz.

Set FC2 = Range("G3:J65000").Find(What:=METİN1,LookIn:=xlValues, LookAt:=xlPart)

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı inceleyin.

http://www.excelgurusu.com/textbox-metin-kutusu-ile-veri-turlerini-suzme/

Not:Sayıyı girerken binlik ve küsürat ayraçlarını girmeyi unutmayın.


.

 

[Orion1]

Sayısal verileri içerir ve ile başlar ile süzemessiniz.
Aşağıdaki gibi deneyiniz.

Selection.AutoFilter Field:=7, Criteria1:=cdbl(TextBox7.Value)

 

[Hacı Bayram ÖZKAN]

Geç kaldım cevap veremedim kusura bakmayin cevabı aldım Orion beyin dedigi gibi aynı anda rakamsal veriler içerir süzülmüyor tam olcakmış cevap veren herkese teşekkür Allaha emanet olun

 

[askm]

Süzme işlemi yapacağınız veri sicil numarası veya TC gibi aslında string ifade olsa da olur şeklinde bir veri ise (dört işlem yapmayacaksanız) aşağıdaki kodlar içerir şeklinde süzmenize yarayacaktır.

Private Sub TextBox1_Change() 'AD SOYAD

    ActiveSheet.Unprotect
    Application.ScreenUpdating = False
    On Error Resume Next
    METİN1 = TextBox1.Value
    Set FC2 = Range("A3:G65000").Find(What:=METİN1)
    Application.GoTo Reference:=Range(FC2.Address), Scroll:=False
    Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox1.Value & "*"
    If METİN1 = "" Then
        Selection.AutoFilter Field:=2
    End If

End Sub

Sub aralık_Bicimle()
Application.Calculation = xlCalculationManual: Application.ScreenUpdating = False
Dim i As Integer
sonsat = Range("B" & Rows.Count).End(xlUp).Row
For i = 4 To sonsat
    Cells(i, "B").Value = CStr(Range("B" & i))  
Next
Application.Calculation = xlCalculationAutomatic: Application.ScreenUpdating = True
End Sub

 

[yenilik025]

Hocam Teşekkürler ancak Niçin ("A7:J65000").

A3: ten başlaması gerekmiyor mu ?

.

Buradaki dosyayı inceleyin.

http://www.excelgurusu.com/textbox-metin-kutusu-ile-veri-turlerini-suzme/

Not:Sayıyı girerken binlik ve küsürat ayraçlarını girmeyi unutmayın.


.