veri süzmeyle ilgili soru

[sin77]

merhabalar.arkadaşlar ekli dosyada veri süzme işleminde text_box larla arama yaptırılabiliyor. fakat şöyle bir sorun var. textbox1 ve textbox2 de arama yaptırabiliyorum. fakat textbox3 e bunu uyguluyamadım bir türlü. ayrıca cıkan sonucların toplamınıda textbox4 e yazmam gerek. yardımcı olabilirmisiniz.

 

[sin77]

DOSYAYI YANLIÞ YÜKLEMİÞİM

 

[Levent Menteşoğlu]

Textbox3'e yazdığınız kodu aşağıdaki ile değiştirin.

[vb:1:3362c1ed5e]Private Sub TextBox3_Change()
On Error Resume Next
Dim SONUC4 As Variant
SONUC4 = TextBox3.Value
If CheckBox1.Value = True Then
Selection.AutoFilter Field:=5, Criteria1:=TextBox3.Value * 1
End If
End Sub[/vb:1:3362c1ed5e]

Textbox4 e toplamı yazmak içinde aşağıdaki kodu örneğin Textbox1 e yazdığınız kodların içine ilave edin.

[vb:1:3362c1ed5e]TextBox4 = WorksheetFunction.Subtotal(109, [h10:h65536])
[/vb:1:3362c1ed5e]

 

[sin77]

tşk ederim sayın levent. textbox 3 de sonuç olumlu fakat diğerine uymadı. yani şöyle tex box1 e çam yazdığımda cıkan sonucları (yani miktarları) texbox4 te anında gösterecek. texbox2 ye ürün çeşidi yazdığımda yine texbox4 te gösterecek. bunun için ne yapmam gerek

 

[Levent Menteşoğlu]

Textbox4 için verdiğin kodu tüm textboxlara yazdığınız kodlara en alt satır olarak ilave edin.

 

[sin77]

Private Sub TextBox3_Change()
On Error Resume Next
Dim SONUC4 As Variant
SONUC4 = TextBox3.Value
If CheckBox1.Value = True Then
Selection.AutoFilter Field:=5, Criteria1:=TextBox3.Value * 1
End If
End Sub

bu codda textbox codunu nereye yazıcam. ayrıca textbox 4 içinde bir kod daha lazım çünkü sonuçları göstermiyor.

 

[Levent Menteşoğlu]

Aşağıdaki gibi yazabilirsiniz.

[vb:1:33e0c398bd]Private Sub TextBox3_Change()
On Error Resume Next
Dim SONUC4 As Variant
SONUC4 = TextBox3.Value
If CheckBox1.Value = True Then
Selection.AutoFilter Field:=5, Criteria1:=TextBox3.Value * 1
End If
TextBox4 = WorksheetFunction.Subtotal(109, [h10:h65536])
End Sub
[/vb:1:33e0c398bd]

 

[sin77]

tşk ederim levent bey. ama textbox4 e için bir code yazılmayacakmı.

Private Sub TextBox4_Change()

End Sub

yani buraya ne formülü yazılacak. çünkü dediğiniz işlemleri yaptım fakat toplamda hiçbirşey göstermiyor.

 

[Levent Menteşoğlu]

Textbox4 e aşağıdaki gibi de yazılabilir, textbox4 seçilince çalışacaktır.

[vb:1:460e860559]Private Sub TextBox4_Enter()
TextBox4 = WorksheetFunction.Subtotal(109, [h10:h65536])
End Sub
[/vb:1:460e860559]

 

[sin77]

arkadaş olmuyor. toplamı göstermiyor birtürlü. son olarak ekli dosyada kaldım. bakabilirmisin hata nerde diye.

 

[Levent Menteşoğlu]

Ekteki dosyayı inceleyin.

 

[sin77]

verdiğiniz örnektede gözükmedi sonuç.tşkler

 

[Levent Menteşoğlu]

verdiğiniz örnektede gözükmedi sonuç.tşkler

Textbox1 e "çam" yazdığınızda textbox4 te hiç bir sayı görmediğinizi mi söylüyorsunuz?

 

[sin77]

evt gözükmüyor

 

[Levent Menteşoğlu]

veri süz checkboxını işaretleyip denedinizmi?

 

[sin77]

Private Sub TextBox1_Change()
On Error Resume Next
Dim SONUC2 As Variant
SONUC2 = TextBox1.Value
If CheckBox1.Value = False Then
Set FC2 = Range("A9:A5000").Find(What:=SONUC2)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
ElseIf CheckBox1.Value = True Then
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"
End If
TextBox4 = WorksheetFunction.Subtotal(109, [h10:h65536])
End Sub



Private Sub CHECKBOX1_CLICK()
If CheckBox1.Value = False And AutoFilterMode = True Then
Selection.AutoFilter
ElseIf CheckBox1.Value = True Then
Range("A9").Select
Selection.AutoFilter
End If
End Sub


Private Sub TextBox2_Change()
On Error Resume Next
Dim SONUC3 As Variant
SONUC3 = TextBox2.Value
If CheckBox1.Value = True Then

Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox2.Value & "*"
End If
TextBox4 = WorksheetFunction.Subtotal(109, [h10:h65536])
End Sub


Private Sub TextBox3_Change()
On Error Resume Next
Dim SONUC4 As Variant
SONUC4 = TextBox3.Value
If CheckBox1.Value = True Then
Selection.AutoFilter Field:=5, Criteria1:=TextBox3.Value * 1
End If
TextBox4 = WorksheetFunction.Subtotal(109, [h10:h65536])
End Sub


bu kodlarla veri süzü tıklıyorum çam yazıyorum sonuç gelmiyor. var bir terslik ama bulamadım

 

[sin77]

sizde nasıl olupta bende olmuyor anlamış değilim. gönderdiğiniz dosyaya dediklerinizi yapıyorum ama göstermiyor bişey

 

[Bohun]

ARKADAÞLAR aranızda bankacı var mı bilmiyorum ama benim sorunum şu benim sistemimde kimin kime kefil olduğunu kaç parasına kefil olduğunu bilemiyorum ama bunun için çalışma yapan arkadaşlarım var ise kendi çalışmalarımızı paylaşmak istiyorum eminim birlikte mükemmele yakın bir program tasarlarız yardım ve görüşleriniz için murat_aydin26@mynet.com :agla: