• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Listview sütunda çarpma ve toplama işlemi (ek soru4. mesajda)

R

ridvan2111

Katılım
14 Ekim 2007
Mesajlar
173
Excel Vers. ve Dili
xp tr
Selam.

Açıklama formda var

listview sütunlarında çarpma işlemi yaptırmak istiyorum.

Bu konuda yardımınızı bekliyorum.
 

Ekli dosyalar

Son düzenleme:
Bu olurmu

Kod: 
 .ListItems(i - 2).SubItems(16) = s1.Cells(i, "G") * s1.Cells(i, "L")

yada bu

Kod: 
.ListItems(i - 2).SubItems(16) = .ListItems(i - 2).ListSubItems(7).Text * .ListItems(i - 2).ListSubItems(12).Text
 
halit3' Alıntı:
Bu olurmu

Kod: 
 .ListItems(i - 2).SubItems([COLOR="Red"]45[/COLOR]) = s1.Cells(i, "G") * s1.Cells(i, "L")

yada bu

Kod: 
.ListItems(i - 2).SubItems(16) = .ListItems(i - 2).ListSubItems(7).Text * .ListItems(i - 2).ListSubItems(12).Text
Genişletmek için tıkla ...


Halit bey Teşekkür ederim bu şekilde oldu.
 
Listview de Süzmeden sonra toplam alma

Merhaba.

süzme işleminden sonra Listview in son sütununda ki değerlerin toplamını
Textbox137 ye almak istiyorum.

Kırmızı işaretli yerler nasıl olmalı ?


Kod: 
Sub suz_37()
ListView1.ListItems.Clear
ListView2.ListItems.Clear
ListView3.ListItems.Clear
ListView4.ListItems.Clear
TextBox135.Text = ""
TextBox136.Text = ""
TextBox137.Text = ""

Dim i As Long, bbbb, cccc, dddd, eeee, eeec, ffff, hhhh, kkkk, tttt, aaae, aaar As String
Set sr = Sheets("sipariş girişi")
'ListView4.ListItems.Clear
With ListView4

For i = 3 To sr.Cells(65536, "B").End(xlUp).Row
    
    If TextBox131.Value = "" Then
        bbbb = sr.Cells(i, "B").Value
        Else
        bbbb = TextBox131.Value
    End If
    
    If TextBox132.Value = "" Then
        cccc = sr.Cells(i, "C").Value
        Else
        cccc = TextBox132.Value
    End If
    
     If ComboBox21.Value = "" Then
        dddd = sr.Cells(i, "D").Value
        Else
        dddd = ComboBox21.Value
    End If
    
    If TextBox133.Value = "" Then
        eeee = CDate(sr.Cells(i, "E").Value)
        Else
        eeee = CDate(TextBox133.Value)
    End If
    
    If TextBox134.Value = "" Then
        eeec = CDate(sr.Cells(i, "E").Value)
        Else
        eeec = CDate(TextBox134.Value)
    End If
    
     If ComboBox22.Value = "" Then
        ffff = sr.Cells(i, "F").Value
        Else
        ffff = ComboBox22.Value
    End If
    
    If ComboBox23.Value = "" Then
        tttt = sr.Cells(i, "T").Value
        Else
        tttt = ComboBox23.Value
    End If
    
    If ComboBox25.Value = "" Then
        hhhh = sr.Cells(i, "H").Value
        Else
        hhhh = ComboBox25.Value
    End If
    
     If ComboBox26.Value = "" Then
        aaae = sr.Cells(i, "AE").Value
        Else
        aaae = ComboBox26.Value
    End If
    
    If ComboBox27.Value = "" Then
        kkkk = sr.Cells(i, "K").Value
        Else
        kkkk = ComboBox27.Value
    End If
    
    If ComboBox28.Value = "" Then
        aaar = sr.Cells(i, "AR").Value
        Else
        aaar = ComboBox28.Value
    End If

    bbbb = UCase(Replace(Replace(bbbb, "ı", "I"), "i", "İ"))
    cccc = UCase(Replace(Replace(cccc, "ı", "I"), "i", "İ"))
    dddd = UCase(Replace(Replace(dddd, "ı", "I"), "i", "İ"))
    ffff = UCase(Replace(Replace(ffff, "ı", "I"), "i", "İ"))
    hhhh = UCase(Replace(Replace(hhhh, "ı", "I"), "i", "İ"))
    kkkk = UCase(Replace(Replace(kkkk, "ı", "I"), "i", "İ"))
    tttt = UCase(Replace(Replace(tttt, "ı", "I"), "i", "İ"))
    aaae = UCase(Replace(Replace(aaae, "ı", "I"), "i", "İ"))
    aaar = UCase(Replace(Replace(aaar, "ı", "I"), "i", "İ"))
   

    If UCase(Replace(Replace(sr.Cells(i, "B").Value, "ı", "I"), "i", "İ")) Like "*" & bbbb & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "C").Value, "ı", "I"), "i", "İ")) Like MatchCase & cccc & MatchCase _
    And UCase(Replace(Replace(sr.Cells(i, "D").Value, "ı", "I"), "i", "İ")) Like "*" & dddd & "*" _
    And CDate(sr.Cells(i, "E").Value) >= CDate(eeee) And CDate(sr.Cells(i, "E").Value) <= CDate(eeec) _
    And UCase(Replace(Replace(sr.Cells(i, "F").Value, "ı", "I"), "i", "İ")) Like "*" & ffff & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "H").Value, "ı", "I"), "i", "İ")) Like "*" & hhhh & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "K").Value, "ı", "I"), "i", "İ")) Like "*" & kkkk & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "T").Value, "ı", "I"), "i", "İ")) Like "*" & tttt & "*" _
    And UCase(Replace(Replace(sr.Cells(i, "AE").Value, "ı", "I"), "i", "İ")) Like MatchCase & aaae & MatchCase _
    And UCase(Replace(Replace(sr.Cells(i, "AR").Value, "ı", "I"), "i", "İ")) Like "*" & aaar & "*" Then
    
        .ListItems.Add , , i
        X = X + 1
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "A")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "B")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "C")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "D")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "E")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "F")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "G")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "H")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "I")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "J")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "K")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "L")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "M")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "N")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "O")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "P")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "Q")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "R")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "S")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "T")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "U")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "V")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "W")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "X")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "Y")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "Z")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AA")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AB")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AC")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AD")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AE")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AF")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AG")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AH")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AI")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AJ")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AK")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AL")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AM")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AN")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AO")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AP")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AQ")
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AR")
        [COLOR="red"].ListItems(X).ListSubItems.Add , , sr.Cells(i, "G") * sr.Cells(i, "M")[/COLOR]
           
    
  On Error Resume Next
 
    deg1 = deg1 + Round(sr.Cells(i, "L"), 2) * 1
    deg2 = deg2 + Round(sr.Cells(i, "M"), 2) * 1
    [COLOR="red"]deg3 = deg3 + ????? [/COLOR]

 End If
    
Next i
  
        TextBox135.Text = deg1
        TextBox136.Text = deg2
        [COLOR="Red"]TextBox137.Text = deg3[/COLOR]
       

End With
Set sr = Nothing
Exit Sub
    On Error Resume Next
    With Application
            .ScreenUpdating = False
            .EnableEvents = False
    End With
    Set sr = Sheets("sipariş girişi")
    ListView4.ListItems.Clear
    ListView4.Sorted = False
    Set Alan = sr.Range("A3:A" & sr.[a65536].End(3).Row)
    Set Bul = Alan.Find(deg & "*")
        If Not Bul Is Nothing Then
                Adres = Bul.Address
             Do
                satır = Bul.Row
                With ListView4
                   .ListItems.Add , , sr.Cells(satır, "A")
                    X = X + 1
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "A")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "B")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "C")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "D")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "E")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "F")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "G")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "H")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "I")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "J")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "K")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "L")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "M")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "N")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "O")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "P")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "Q")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "R")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "S")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "T")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "U")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "V")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "W")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "X")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "Y")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "Z")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AA")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AB")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AC")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AD")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AE")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AF")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AG")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AH")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AI")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AJ")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AK")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AL")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AM")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AN")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AO")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AP")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AQ")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "AR")
                     [COLOR="Red"].ListItems(X).ListSubItems.Add , , sr.Cells(i, "G") * sr.Cells(i, "M")[/COLOR]
                     
                End With
                
                Set Bul = Alan.FindNext(Bul)
             Loop While Not Bul Is Nothing And Bul.Address <> Adres
        ListView4.Sorted = True
        ListView4.SortOrder = lvwAscending
        ListView4.SortOrder = 0
        End If
    Set sr = Nothing
    Set Alan = Nothing
    Set Bul = Nothing
    With Application
            .EnableEvents = True
            .ScreenUpdating = True
    End With

End Sub
 
kod

Kod: 
deg3 = deg3 + CDbl(Round(sr.Cells(i, "G"), 2) * 1 [COLOR=red][B]*[/B][/COLOR] Round(sr.Cells(i, "M"), 2) * 1)

yada

Kod: 
deg3 = deg3 + CDbl(Round(sr.Cells(i, "G") [COLOR=red][B]*[/B][/COLOR] sr.Cells(i, "M"), 2) * 1)
 
halit3' Alıntı:
kod

Kod: 
deg3 = deg3 + CDbl(Round(sr.Cells(i, "G"), 2) * 1 * Round(sr.Cells(i, "M"), 2) * 1)

yada

Kod: 
deg3 = deg3 + CDbl(Round(sr.Cells(i, "G") * sr.Cells(i, "M"), 2) * 1)
Genişletmek için tıkla ...

Merhaba halit bey.

Her iki kod da doğru sonuç vermedi. Dosyamı ekliyorum.

Problem Duzenle UF de
Sub suz_37() Altında

Sorumu tekrar hatırlatıyorum
süzme işleminden sonra
Listview4 son sütundaki "Toplam Vuruş" değerleri toplayarak texbox137 ye alacak.
 
Son düzenleme:
ridvan2111' Alıntı:
Merhaba halit bey.

Her iki kod da doğru sonuç vermedi. Dosyamı ekliyorum.

Problem Duzenle UF de
Sub suz_37() Altında

Sorumu tekrar hatırlatıyorum
süzme işleminden sonra
Listview4 son sütundaki "Toplam Vuruş" değerleri toplayarak texbox137 ye alacak.
Genişletmek için tıkla ...

Kodu sonradan ben düzeltmiştim tabi farkına varmadınız kırmızı yazılı yerlere bakın artı yerine çarpı olacak
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst