Regresyon metnini formüle çevirmek

[excellcan]

Forumda emeği geçen herkese merhaba.
L2 hücresinde -0,1662*J2+0,7378 biçimindeki
regresyon denklemini M2 hücresinde kod ile başına
= işareti koyarak nasıl çalıştırabilirim.
Makro kaydet ile epeyce deneme yaptım ama
başaramadım. Bunlardan epeyce var. Derdim L sütununda
metinsel olarak yazılmış denklemleri M sütununda çalıştırmak.
İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Formule_Cevir()
    Dim X As Long, Son As Long
    
    Son = Cells(Rows.Count, "L").End(3).Row
    
    For X = 2 To Son
        If Cells(X, "L").Value <> "" Then
            Cells(X, "M").Formula = "=" & Replace(Cells(X, "L").Value2, ",", ".")
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    
End Sub

 

[excellcan]

Deneyiniz.

Option Explicit

Sub Formule_Cevir()
    Dim X As Long, Son As Long
   
    Son = Cells(Rows.Count, "L").End(3).Row
   
    For X = 2 To Son
        If Cells(X, "L").Value <> "" Then
            Cells(X, "M").Formula = "=" & Replace(Cells(X, "L").Value2, ",", ".")
        End If
    Next
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
   
End Sub

Korhan hocam teşekkürler. Emeğinize sağlık.