makro ile süzme de yardım

[mustafateknetas]

çiğ sayfasındaki aynı olan malzeme adetlerini, miktardan toplama yapıyor.
Fakat buna ek olarak, çiğ sayfa b sutunundan sadece çiğ olanları süzerek toplamasını istyorum
yardımlarınız için teşekkür ederim

 

[hamitcan]

Sub Topla()
    MsgBox WorksheetFunction.SumIf(Sheets("ÇİĞ").[B:B], "Çiğ*", Sheets("ÇİĞ").[H:H])
End Sub

 

[mustafateknetas]

sayın hamit hocam
öncelikle cevabın için teşekkür ederim. hocam rapor sayfasının D sutundaki kodlar ve E sutundaki adetler, çiğ sayfanın B sutundaki çiğ pişim ve tamir-dekor pişim her ikisini topluyor. ben istiyorumki sadece çiğ pişim olan kod ve adetleri, rapor sayfadaki D ve E sutununa gelsin
allah razı olsun hocam.

 

[Orion1]

Sayın hamitcanın kodunda kırmızı yeri dğitirnce ollmalı.

MsgBox WorksheetFunction.SumIf(Sheets("ÇİĞ").[B:B], "Çiğ[B][COLOR="Red"] Pişim*[/COLOR][/B]", Sheets("ÇİĞ").[H:H])

 

[Orion1]

Ama sorunuzda sadece Çiğ olanları demişsiniz.Sayın Hamitcanda ona göre kod yazmış.Sorunuza göre cevap verilmiş yani.

 

[mustafateknetas]

evren hocam hamit hocamın vemiş olduğu sonuc dogru çıkıyor. fakat ben genel toplam degilde kod kod toplam istiyorum. sanırım onu tam açıklayamadım

 

[Orion1]

çiğ sayfasındaki aynı olan malzeme adetlerini, miktardan toplama yapıyor.
Fakat buna ek olarak, çiğ sayfa b sutunundan sadece çiğ olanları süzerek toplamasını istyorum
yardımlarınız için teşekkür ederim

evren hocam hamit hocamın vemiş olduğu sonuc dogru çıkıyor. fakat ben genel toplam degilde kod kod toplam istiyorum. sanırım onu tam açıklayamadım

İki isteğiniz farklı sorular.Hamitcan istediğiniz yapmış.Siz bunlardan farklı bir şey dağamı ilave istiyorsunuz?Ayrıca ben Kod ların nerede olduğunuda sayfada göremedim.Hangi sütunda?Sorunuzu net biçimde açıklamzsanız yanıt alamzsanız.Veya yanıt alabilseniz bile bizi çok uğraştırısınız.Bizede yazık değilmi?

 

[mustafateknetas]

hocam kod dediğim malzeme idi.
hocam estagfurullah o nedemek. üzdüm ise af ola kusura bakmayın. tek işte girebiliyorum nete cevabım geç oldu.özür dilerim.
hocam rapor sayfasının D sutundaki MALZEME ve E sutundaki ÜRETİLEN kısmına, çiğ sayfanın B sutundaki çiğ pişim ve tamir-dekor pişim her ikisini topluyor. ben istiyorumki sadece çiğ pişim olan malzeme ve üretilen, rapor sayfadaki D ve E sutununa gelsin
allah razı olsun hocam.

 

[Orion1]

D ve E sütunu için yapıldı sadece Çiğ Pişimler için.Dosyanız ektedir.

Private Sub VAGON()
Dim k  As Range, z As Object, i As Long, adr As String, sat As Long
  Sheets("RAPOR").Select
Range("D3:e3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Set z = CreateObject("Scripting.Dictionary")
With Sheets("ÇİĞ")
    sat = .Cells(65536, "B").End(xlUp).Row
    Set k = .Range("B2:B" & sat).Find("Çiğ Pişim", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            If Not z.exists(.Cells(k.Row, "K").Value) Then
                z.Add .Cells(k.Row, "K").Value, .Cells(k.Row, "H").Value
                Else
                z.Item(.Cells(k.Row, "K").Value) = z.Item(.Cells(k.Row, "K").Value) + .Cells(k.Row, "H").Value
            End If
            Set k = .Range("B2:B" & sat).FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
    End If
End With
Range("D3").Resize(z.Count, 2) = Application.Transpose(Array(z.keys, z.Items))
Range("D3:E65536").Sort Range("D3")
End Sub

 

[mustafateknetas]

hocam çok güzel oldu.çok sağol allah ne muradın varsa versin.

 

[Orion1]

hocam çok güzel oldu.çok sağol allah ne muradın varsa versin.

Rica ederim.
İyi çalışmalar.