عندي كود في حدث الشيت
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