İki makronun aynı sayfada birleştirilmesi..

[policeman]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F3:H365")) Is Nothing Then Exit Sub
s = Target.Row
Cells(s, 9) = WorksheetFunction.Sum(Range("F" & s, "H" & s))
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("P3:R365")) Is Nothing Then Exit Sub
s = Target.Row
Cells(s, 19) = WorksheetFunction.Sum(Range("P" & s, "R" & s))
End Sub

Merhaba..
Bu iki makroyu aynı sayfada kullanmak için nasıl birleştirebilirim.. Saygılarımla..

 

[Muzaffer Ali]

Merhaba.
Buyurun.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s As Integer
    s = Target.Row
    Application.EnableEvents = False
    If Not Intersect(Target, Range("F3:H365")) Is Nothing Then
        Cells(s, 9) = WorksheetFunction.Sum(Range("F" & s, "H" & s))
    ElseIf Not Intersect(Target, Range("P3:R365")) Is Nothing Then
        Cells(s, 19) = WorksheetFunction.Sum(Range("P" & s, "R" & s))
    End If
    Application.EnableEvents = True
End Sub

 

[policeman]

Sayın dalgalikur bilginize ve hızınıza çok teşekkürler; konu çözülmüştür..