AccessTr.neT
Listboxa Göre Listview De Süzme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listboxa Göre Listview De Süzme (/konu-listboxa-gore-listview-de-suzme.html)

Sayfalar: 1 2 3 4

Re: Listboxa Göre Listview De Süzme - malatyalı - 27/07/2021

Sayfadan Listview' e alırken
With Sheets(sayfa_ARŞiV)
        Me.TextBox21.Value = WorksheetFunction.SumIfs(.Range("N:N"), .Range("C:C"), Me.ListView1.SelectedItem.SubItems(1) _
                  , .Range("D: D"), Me.ListView1.SelectedItem.SubItems(2), .Range("E:E"), Me.ListView1.SelectedItem.SubItems(3))
       
       
        Me.TextBox21.Value = Format(Me.TextBox21.Value, "#,##0.00")
--------------------------------------------------------------------------------

Formdan Sayfaya Kayıt ederken
Format(CDbl(Me.TextBox7.Value), "#,##0.00") * 1

RE: Listboxa Göre Listview De Süzme - feraz - 27/07/2021

+0 ekledim böyle bir deneyin olmazsa müsait olunca bakarım.
Hata vermemesi için if textbox21.value <> "" gibi kodda eklenebilir.

Me.TextBox21.Value = Format(Me.TextBox21.Value +0, "#,##0.00")
Eğer bilgisayar ondalık ayarı farklı ise , ile .
bunu yer değiştirip deneyin.Ama normali alttaki gibi zaten.

Me.TextBox21.Value = Format(Me.TextBox21.Value, "#,##0.00")

RE: Listboxa Göre Listview De Süzme - malatyalı - 27/07/2021

Ustam Olmadı yaa

RE: Listboxa Göre Listview De Süzme - feraz - 27/07/2021

(27/07/2021, 20:23)malatyalı yazdı: Ustam Olmadı yaa
Bugün hallederiz abey.

RE: Listboxa Göre Listview De Süzme - malatyalı - 27/07/2021

Feraz abim Excel sitelerinde aradım ne bulduysam uyguladım.
bir de birçok textbox var, sizde gördünüz diğerlerinde sıkıntı yok bir tek bu textboxta var

RE: Listboxa Göre Listview De Süzme - feraz - 27/07/2021

Abey biraz uğraştım şimdilik çözdüm.
Me.TextBox21.Value = Format(Me.TextBox21.Value, "#,##0.00") bunu silin.ilgili koduda alttaki gibi değiştirin yani Format(  ekledim çalıştı bende.

        Me.TextBox21.Value = Format(WorksheetFunction.SumIfs(.Range("N:N"), .Range("C:C"), Me.ListView1.SelectedItem.SubItems(1) _

                  , .Range("DLol"), Me.ListView1.SelectedItem.SubItems(2), .Range("E:E"), Me.ListView1.SelectedItem.SubItems(3)), "#,##0.00")
Sorun heralde sumifs ile veri metinsel olarak sonuçlandığı için oluyor resimdeki gibide basitçe yapılır.Bir değişken tanımlayıp coketopla gibi.

[Resim: do.php?img=11149]
https://resim.accesstr.net/do.php?img=11149