Verileri Makro ile Almak

[1Al2Ver]

Merhaba,

Ek'li dosyamda, "MALZEME_ÇIKIŞI" sayfasındaki verileri, "MALİYET" sayfasına Topla.Çarpım formülleri ile alabiliyorum,

Aynı işlemi makro ile yapmak istiyorum,

Gerekli kodu rica ediyorum,

Teşekkür ederim.

 

[Orion1]

Ekli dosyayı yaptım.Deneyiniz.
Ben denemedim.

 

[Endless033]

orion benimde bir makroda ufak bir değişiklik var yardımcı olurmusunuz en son yorum yazdığım güncel konu olan

 

[1Al2Ver]

Sayın Orion1, merhaba,

Çözüm için teşekkür ederim, sağ olun,

Küçük bir ricam var, olabiliyor ise,

"MALİYETLER" sayfasına alınan günlük tutarların virgülden sonra 2 digit ( örn; 15.02.2021 için ; 7504,509 yerine, 7504,51 gibi ) ,

İlaveten, hücre biçimlendirmelerinin sayı ve fontun da Arial 8 olmasını arzuluyorum,

Teşekkür ederim.

​

 

[Orion1]

Buyurun.

For sat = 2 To sonsat
            Cells(sat, sut + 1).Value = WorksheetFunction.SumIf(sh.Range("A2:" & "A" & sonsat2), Cells(sat, sut), sh.Range("E2:" & "E" & sonsat2))
            Cells(sat, sut + 1).Value = WorksheetFunction.Round(Cells(sat, sut + 1).Value, 2)
            Cells(sat, sut + 1).Font.Size = 8
            Cells(sat, sut + 1).Font.Name = "arial"
            
        Next sat

 

[1Al2Ver]

Sayın Orion1 merhaba,

Duyarlığınız ve çözüm için teşekkür ederim, sağ olun.

Saygılarımla.

 

[Orion1]

İyi çalışmalar.