لسلام عليكم ورحمة الله وبركاته طلب
تعديل
كودالدى يقوم باستخراج القيمه الخاصه بكل صنف ثم استخراج اجمالى قيمة الفاتوره
اريد الكميةتكون في العمود F وا سعر في عمود(h)
القيمه عمود i
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 11 Then Exit Sub
If Target.Address = [i3].Address Then
n = [i3]
clear_data2
If WorksheetFunction.CountIf(Sheets("MAT").[C6:C10000], [i3]) <> 0 Then
Dim message As Integer
message = MsgBox("اضغط زر YES من اجل مشاهدة البيانات " & vbNewLine & "----------------------------" _
& vbNewLine & "او اضغط زر NO لالغاء الامر " & vbNewLine & "==========================================" _
& vbNewLine & "Click Yes to SHOW DATA" & vbNewLine & "----------------------------" _
& vbNewLine & "Click NO EXIT", vbYesNoCancel, "تعليمات-Login")
'----------------------------------------------------------------------------------------------------------
If message = 6 Then
call_inv_data1
'-------------------------------------------------------------------
'---------------------------------------------------------------------
ElseIf message = 7 Then
'-------------------------------------------------------------------
'---------------------------------------------------------------------
ElseIf message = 8 Then
Exit Sub
End If
' MsgBox "هذه الفاتروره موجوده من قبل"
' ElseIf WorksheetFunction.CountIf(Sheets("MAT").[C6:C10000], [i3]) = 0 Then
End If
End If
Application.ScreenUpdating = False
On Error Resume Next
If Not Intersect(Target, Range("g10:g49")) Is Nothing _
And IsNumeric(Target) Then
Target.Offset(0, 2).Value = Target.Value * Target.Offset(0, 1).Value
'رقم 2 هنا يعنى العمود الذى سيظهر به ناتج الجمع يلى العمود المحدد بمقدار عمودين
'رقم 1 هنا ان العمود الذى سوف ياخذ منه البيانات لجمعها مع العمود المحدد يليه بمقدار عمود 1
End If
If Not Intersect(Target, Range("h10:h49")) Is Nothing _
And IsNumeric(Target) Then
Target.Offset(0, 1).Value = Target.Value * Target.Offset(0, -1).Value
'رقم 2 هنا يعنى العمود الذى سيظهر به ناتج الجمع يلى العمود المحدد بمقدار عمودين
'رقم 1 هنا ان العمود الذى سوف ياخذ منه البيانات لجمعها مع العمود المحدد يليه بمقدار عمود 1
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 9 And Target.Row < 50 Then
'If Not Intersect(Target, Range("d10:d49")) Is Nothing Then
Cancel = True
KH_T_SEARSH.Show 0
End If
If Target.Address = [E10].Address Then
Cancel = True
KH_T_SEARSH.Show 0
End If
End Sub
Sub SumCells()
Range("I53").Formula = "=+I51+I50-I52"
End Sub
Option Explicit
2015..rar