Makro ile Makro kopyalanabilir mi?

[Yesilyurtlu]

değerli üstadlarım;
sizlerden ekli dosya ile ilgili bir istirhamım olacak.

Konuyu kısaca şöyle arz edeyim üstadlarıma.
ekli dosya da 5 tane satır var birinci satır için makro işlemi uygulandı.Geriye 4 satır kaldı bunlarada ayrı ayrı makroyu uygulamak yerine ilk yapılan makroyu diğer satırlarada kopyalamak mümkün mü ?

İlk satır ile son 4 satır aynı işleme tabi. Diğer bir ifade ile formülü aşağıya çekip çoğalttığımız gibi olacak. Bunun en basit yolunu makroda üstadlarımdan rica ediyorum.

Selam ve Dua İle

 

[leumruk]

Merhaba,
İsteğiniz için makro kopyalamaya gerek yok. Kendi kodunuzu aşağıdaki ile değiştirin. Bazı hücreleri eklememişsiniz, ben onları da dahil ettim. Örneğin: J7

Sub YAKLAŞIKMALİYETHESAPLA2()
For x = 7 To 11
    For y = 7 To 12
    Tpl = Tpl + Cells(x, y)
    Next
    Cells(x, "m") = Round((Tpl / [S1].Text), 2)
    Cells(x, "n") = Round((Cells(x, "f") * Cells(x, "m")), 2)
    Tpl = 0
Next
MsgBox "İşlem Tamam", vbInformation, "TAMAMLANDI"
End Sub