Rakama Göre Toplam Alma

[silver_storm]

Saygıdeğer Ustalarım ;
2007 de daha yeni olduğum için bir türlü yapamadım umarım bana yardımcı olabilirsiniz.
Benim sizden ricam yukarıda ( U1 ) hücresinde veri doğrulama ile yazdığım ürünleri ( A - B - C - D - E - F ) alması ve toplaması...
Örneğin YAPARLAR Pro yu seçtğimde oradan ( A - B - C - D - E - F satırlarını tarayarak 1 numaralı olanları alması ve diğerlerini gizlemesi aynı zamanda da V 3 e de maliyet kısmındaki toplamlarını yazması.
Daha da açmak gerekirse ben U1 hücresinden YKS 120 yi seçtim.Excelden yapmasını istediğim davranış bana 3 numaralı olan satırları alıp diğerlerini gizlemesi ve V 3 hücresine de sadece 3 rakamının olduğu satırdaki maliyetlerin toplamları alması

 

[Korhan Ayhan]

Merhaba,

"Y" sütunundaki verileriniz ile açılır listedeki verilerinizi aynı yaptıktan sonra aşağıdaki kodu sayfanızın kod bölümüne uygulayıp deneyiniz.

U2 hücresini değiştirdikçe satırlar gizlenecektir.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bul As Range, X As Long, Veri As Byte
    If Intersect(Target, Range("U2")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
    Set Bul = Range("Y:Y").Find(Target, , , xlWhole)
    If Not Bul Is Nothing Then Veri = Bul.Offset(0, 2).Value
    For X = 5 To Cells(Rows.Count, "G").End(3).Row - 3
        If WorksheetFunction.CountIf(Range("A" & X & ":F" & X), Veri) = 0 Then
            Rows(X).Hidden = True
        End If
    Next
    Application.ScreenUpdating = True
End Sub

V3 hücresindeki formülüde aşağıdaki gibi değiştirin.

=ALTTOPLAM(109;V8:V54)

 

[silver_storm]

Sayın Korhan Ayhan Ustam ellerinize sağlık çok güzel olmuş tam da istediğim gibi elleriniz dert görmesin ancak Y hücresinde görünenlerin ancak ilk 3 satırının işlemini yapıyor diğerlerinin yapmıyor acaba ben mi bir yerde hata yapıyorum kullandığım excel 2007 acaba orada mı bir sorun var

 

[Korhan Ayhan]

Merhaba,

Bulmaması normal çünkü Y sütunundaki alttaki değerlerin karşısında sayısal değerler yok.

 

[silver_storm]

Sayın Ustam gerçekten çok ama çok teşekkür ederim.Elleriniz dert görmesin