Macroyu formüle çevirme

[Dbchayley]

Merhaba,

Sub daylihgt()
Range("e1:e10000").ClearContents
For x = 1 To [a10000].End(3).Row
ben = [e10000].End(3).Row + 1
For y = ben To Cells(x, 2) + ben - 1
Cells(y, 5) = Cells(x, 1)
Next y
Next x
Call daylihgt2
End Sub


Sub daylihgt2()
Range("n1:n10000").ClearContents
For x = 1 To [j10000].End(3).Row
ben = [n10000].End(3).Row + 1
For y = ben To Cells(x, 11) + ben - 1
Cells(y, 14) = Cells(x, 10)
Next y
Next x
End Sub

Macrosunu formüle çevirmemiz mümkünmü? Yardımlarınız için şimdiden teşekkürler

 

[hamitcan]

Bence ne yapmak istediğinizi yazarsanız, bir ktf ile halledilebilir diye düşünüyorum.

 

[Dbchayley]

macro çalıştığı halde end debug hatası veriyor. çözemedim neden verdiğinide. formül olursa rahat olur diye düşündüm.

 

[Dbchayley]

For y = ben To Cells(x, 2) + ben - 1
kısmında debuf veriyor.