Formül kopyalama

[sercio_sercio]

Herkese Merhaba,

Bir kaç gündür çözümünü bulmaya çalıştığım bir problem var hiç bir yerde cevabını bulamadım sizin yardımcı olacağınızı umut ediyorum...

Problem şöyle; b1 hücresinde bir formül bulunuyor bu formülü a sütunundaki en son değere karşılık gelecek şekilde b sütununda aşağıya kadar kopyalamak istiyorum ancak a sütunundaki hücre sayısını önceden bilmediğimiz için son hücreye kadar getiremiyorum ...

 

[mancubus]

Sub FormulKopyala()
    
Dim LR As Long

With Worksheets("Sheet1")
    LR = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range("B1:B" & LR).Formula = "=$A1*100/$D$1"
End With

End Sub

 

[Orion1]

Dosyanız ektedir.

Sub formul_59()
Dim sat As Long, i As Long
Sheets("Sheet1").Select
Application.ScreenUpdating = False
Range("B:B").Clear
Application.Calculation = xlCalculationManual
sat = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To sat
    Range("B" & i).Formula = "=$A" & i & "*100/$D$1"
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "F O R M Ü L"
End Sub

 

[sercio_sercio]

Çok teşekkür ederim problem çözümlendi elinize sağlık ...