döngü blok yardım

[acetinnster]

Arkadaşlar aşağıdaki kodu makro kaydet ile kaydettim
amacım E5 hücresindeki veriden AK5 hücresindeki veriyi çıkarmak tekrar E5 hücresine atamak
ben bu işlemi yapabilmek için arada iki hücre daha kullandım ama ne kadar stabil bilmiyorum açıkcası
ben bu kodu E sütununda son dolu satıra kadar nasıl kullanabilirim yardımcı olabilirmisiniz.

Range("E5").Select
Selection.Copy
Range("AL5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AM5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
Range("AM5").Select
Selection.Copy
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AL4").Select
Application.CutCopyMode = False

 

[YUSUF44]

Anladığım kadarıyla şu makro işinizi görecektir. Fazlası için örnek dosya paylaşınız:

Sub degistir()
son = Cells(Rows.Count, "E").End(3).Row
For i = 5 To son
    Cells(i, "E") = Cells(i, "E") - Cells(i, "AK")
Next
End Sub