Sütünlardaki Değerlere Göre Toplama

[SadiSerdari]

Arkadaşlar çalışma sayfasında da sorunumu açıklamaya çalıştım. Yardımcı olabilirseniz sevinirim teşekkürler.

 

[Husgvarna]

Arkadaşlar çalışma sayfasında da sorunumu açıklamaya çalıştım. Yardımcı olabilirseniz sevinirim teşekkürler.

Merhaba.
Yardım istiyorsunuz ama; eklediğiniz dosyada makro ile ilgili bir çalışmanız
bulunmuyor.

 

[SadiSerdari]

Sn. Husgvarna;

Sub ekle()

Dim SonSat1 As Long, SonSat2 As Long, SonSut As Long
Set Syf = Worksheets("22.03.2012")
SonSat1 = Cells(Rows.Count, 2).End(xlUp).Row
SonSat2 = Cells(Rows.Count, 3).End(xlUp).Row
SonSut = Cells(Columns.Count, 2).End(xlUp).Column

For a = 6 To SonSat1
For b = 6 To SonSat2
If Cells(a + 28, "a") = Syf.Cells(b, SonSut) Then _
Cells(a, "F") = Syf.Cells(a, SonSut) + Syf.Cells(b, SonSut)
Next: Next

End Sub

buradaki makro ile yapmaya çalıştım ancak hem gıda maddelerini hemde fiyatlarını çekmekle birlikte toplamları alamadım. Bununla birlikte bir kaç sayfada karşılaştırma yapması gerekiyor. Benim yazdığım sadece bir sayfayı karşılaştırıyordu ve doğru sonucu elde edememiştim. O nedenle makroyu eklememiştim. Saygılarımla.

 

[Husgvarna]

Merhaba.
Eki inceleyin.

 

[SadiSerdari]

Sayın Husgvarna;
Emeğinize yüreğinize sağlık TEŞEKKÜRLER.
Soruyu inceleyen arkadaşlara da TEŞEKKÜRLER.