Çözüldü Kod (satır yerine sütunda) işlem yapması

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Satır As Long, Formül As String
If Not Intersect(Target, [F6,H6,K6,M6,O6,P6,Q6,R6]) Is Nothing Then
Satır = Target.Row
Formül = "=IF(L6<=10,K6+(L6*O6*P6*Q6),K6+(10*O6*P6*Q6)+((L6-10)*O6*P6*Q6*0.5))"
Formül = Replace(Formül, 6, Satır)
Application.EnableEvents = False
Cells(Satır, "S") = Evaluate(Formül)
Cells(Satır, "T") = Cells(Satır, "R") * Cells(Satır, "S")

Son:

Application.EnableEvents = True

End If

End Sub

Yukarıda arz ettiğim kodun sadece 6. satırda değil de sütunda işlem yapması için yardımcı olabilir misiniz?

 

[PLİNT]

Merhaba
Değişmeden önceki mesajınız ;

Cells(Satır, "N") = ıf(Cells(Satır, "S") <= 10, Cells(Satır, "J") + (Cells(Satır, "F") * _
Cells(Satır, "K") * Cells(Satır, "L") * Cells(Satır, "M")), Cells(Satır, "S") + _
(10 * Cells(Satır, "K") * Cells(Satır, "M") * Cells(Satır, "L") + ((Cells(Satır, "F") - 10) _
* Cells(Satır, "K") * Cells(Satır, "M") * Cells(Satır, "L") * 0.5)))
için

Parentezler normal görünüyor

"ıf" yerine "IIf" kullanıp deneyiniz

Cells(Satır, "N") = ıf(
yerine
Cells(satır, "N") = IIf(

 

[PLİNT]

Aşağıdaki gibi deneyiniz
[F,H,K,M,O,P,Q,R] sütunların 5. satırdan sonraki hücrelerine veri girdikçe işlem yapacaktır

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Satır As Long, Formül As String
If Target.Row < 6 Then Exit Sub
If Not Intersect(Target, Range("F:F,H:H,K:K,M:M,O:O,P:P,Q:Q,R:R")) Is Nothing Then
Satır = Target.Row
Formül = "=IF(L6<=10,K6+(L6*O6*P6*Q6),K6+(10*O6*P6*Q6)+((L6-10)*O6*P6*Q6*0.5))"

Formül = Replace(Formül, 6, Satır)
Application.EnableEvents = False
Cells(Satır, "S") = Evaluate(Formül)
Cells(Satır, "T") = Cells(Satır, "R") * Cells(Satır, "S")
Son:
Application.EnableEvents = True

End If

End Sub

 

[sirkülasyon]

Allah razı olsun