طلب من السادة الافاضل

[ahlan_32]

عندي كود في حدث الشيت

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.column = 5 And Target.Row > 1 Then
x = Target.Offset(, -3).Value - Target.Offset(, 0).Value
Range("b" & Target.Row).Value = x
Range("e" & Target.Row).Value = ""
End If

End Sub

هل ممكن اضعه في module

 

المصنف1.xlsm