% hesabı

[Carpintero]

Merhabalar,
Aşağıda ki ve ona benzer işlemler yapıyorum.
Satır sayıları değişken. Bu işlem için makroyu döngü ile yaparsam
işlem uzun sürüyor.

İstirhamım şudur; döngüden daha hızlı yapacak bir makro veyahut
aşağıdaki 500 değerlerini değişkene bağlamak.
ben değişken olayını çalıştıramadım maalesef değerli yardımlarınızı
bekliyorum.

Sub makro()
[E3:E500] = [B3:B500/A3:A500*100]
End Sub

 

[çıtır]

Bu şekilde olabilir diye düşünüyorum

Sub yuz()
Dim i As Integer
For i = 3 To 500
On Error Resume Next
If Range("a" & i) <> "" And Range("b" & i) <> "" Then
Range("e" & i) = Range("b" & i) / Range("a" & i) * 100
End If
Next i
End Sub

 

[Carpintero]

Teşükkür ederim Sn çıtır
elinize sağlık.

 

[çıtır]

Teşükkür ederim Sn çıtır
elinize sağlık.

Rica ederim.Kolay gelsin.