Makro birleştirme yardım

[AylaMehmet]

Merhabalar,

Aşagıdaki 2 farklı makroyu aynı döngü içerisinde çalıstırabilirmiyiz?


1 ci makro

Sub ToplamSevkiyatHesaplama()
' Ayarı yapıldı
With Range("AJ3:AJ" & Cells(Rows.Count, 1).End(3).Row)
.Formula = "=IF(A3=""KESIM"",0,IF(A3=""Altpar"",SUMIF(BOM!B:B,E3,BOM!C:C)" & _
",IF(A3=""Ustun"",SUMIF(BOM!B:B,E3,BOM!C:C),IF(A3=""T-TOKA""" & _
",ABS(SUMIF('Delivery Report'!S:S,F3,'Delivery Report'!E:E)" & _
"+SUMIF('Delivery Report'!S:S,E3,'Delivery Report'!E:E))" & _
",ABS(SUMIF('Delivery Report'!P,LEFT(E3,9),'Delivery Report'!E:E))))))"
.Value = .Value

End With
End Sub

2 ci makro

Sub StokGunHesaplama()
'Stokdaki parcaların günlük olarak hesaplanması
With Range("AI3:AI" & Cells(Rows.Count, 1).End(3).Row)
.Formula = "=IF(SUM(AX3:BJ3)=0,""OBS"",AG3/(SUM(AX3:BJ3)/(COUNT(AX3:BJ3)-COUNTIF(AX3:BJ3,0)))*6)"
.Value = .Value
End With
End Sub

 

[Murat OSMA]

İlk makronun End With satırından sonra Call StokGunHesaplama yazın.