Eğer Formülünü Makro ile Kullanmak

[Mustafa MUTLU]

Eğer(Sayfa1!B2=boş değilse;((Sayfa2!D1-Sayfa1!B2)*(Sayfa2!D1-Sayfa1!B2));"")

Burda Sayfa1!B2 => B10000 e kadar devam edecek
Sayfa1 B sütunu boş değilse Sayfa2 nin D1 deki değerinden çıkarılacak.
Sayfa2 D1 sabit kalacak.

Örnek :
Sayfa2 d1 = 300

Sayfa1 B2 = 356
Sayfa1 B3 = 357
Sayfa1 B4 = 358
Sayfa1 B5 = ""

Sonuç
Sayfa3 B2 = 56*56 = 3136
Sayfa3 B3 = 57*57 = 3249
Sayfa3 B4 = 58*58 = 3364
Sayfa3 B5 = ""

Çıkacak sonuç negatif yada pozitif önemli değil.
Kendisi ile çarpıldığı için pozitif olacak zaten.

10.000 tane formül dosyayı yavaşlatıyor
Bir makro ile bu işi çözebilirmiyiz.

Teşekkürler……..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub HESAPLA()
    Application.ScreenUpdating = False
    With Sheets("Sayfa3").Range("B2:B10000")
        .Formula = "=IF(Sayfa1!B2<>"""",((Sayfa2!D$1-Sayfa1!B2)*(Sayfa2!D$1-Sayfa1!B2)),"""")"
        .Value = .Value
    End With
    Application.ScreenUpdating = True
End Sub

 

[Mustafa MUTLU]

Teşekkür Ederim...