Sabit bir Formülün birçok değişken ile kullanılması.

[mrs303]

Selamlar ,

Sabit bir formül var ve bu formülde sadece 1 değer değişiyor. Başka bir yerden sadece değerleri alarak bu sabit formülün işlemesini ve ilgili değerleri yazmasını yapacak bir makro veya formül de olabilir önerebilirseniz memnun olurum.İlgili dosyada gerekli açıklamaları yaptım. Şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub POISSON_HESAPLA()
    Dim X As Long
    
    Application.ScreenUpdating = False
        
    Range("M4:M65536").ClearContents
    
    For X = 4 To Range("J65536").End(3).Row
        Range("D4:D13").Formula = "=POISSON(B4," & Cells(X, "K").Address & ",FALSE)"
        Range("E4:E13").Formula = "=POISSON(C4," & Cells(X, "L").Address & ",FALSE)"
        Cells(X, "M") = Range("F15")
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "Hesaplama işlemi tamamlanmıştır.", vbInformation
End Sub

 

[mrs303]

Sn, Korhan Bey,

Tek kelimeyle mükemmel olmuş. Beni nasıl bir dertten kurtardınız anlatamam. Sorunumu yazıp hemen çıkmıştım ve FB-Paok maçına gittim stada. Üzüntülü bir şekilde döndüm ve yeni açtım PC yi, verdiğiniz çözüm ile hem bütün üzüntümü giderdiniz hem de benim için büyük bir kolaylık sağladınız.

Her şey için çok çok teşekkürler. Emeklerize sağlık.

İyiki varsın " Excel.web.tr "