تعديل كودالدى يقوم باستخراج القيمه

[ابا اسماعيل]

لسلام عليكم ورحمة الله وبركاته طلب

 

تعديل

كودالدى يقوم باستخراج القيمه الخاصه بكل صنف ثم استخراج اجمالى قيمة الفاتوره

 

اريد الكميةتكون في العمود 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

تم تعديل مارس 31, 2015 بواسطه ابا اسماعيل

[ابا اسماعيل]

رفع

[ابا اسماعيل]

رفع

[ابا اسماعيل]

اش طلبي غير مفهوم ارجو الافادة جزاكم الله خير

[ابا اسماعيل]

ارجو المساعدة

[ابا اسماعيل]

طلب اريدتغير عمود الكميةمن G لى العمودF كتبت العداد في عمود F 

[KHMB]

السلام عليكم ورحمة الله

اخي ابااسماعيل

تفضل حسب طلبك تم تغيير عمود الكمية من G إلي F وتكملة التغييرات المترتبة .

بالضغط علي الكود بالعمود D يفتح لك فورم الاصناف اختار ثم اضغط دبل كليك علي الصنف سيتم اغلاق الفورم وسيظهر لك كود الصنف وإسمة والسعر كلا في مكانة وستكون الخلية النشطة في الكمية تلقائيا ادخل الكمية ثم انتر تظهر لك القيمة الاجمالية كذلك تلقائيا.

2015.111111.rar

[ابا اسماعيل]

 

 

السلام عليكم ورحمة الله

اخي

 

بارك الله فيك وجعله في ميزان حسناتك

 

اريد الكمية في عمود F     السعر في عمود H    القيمة  في عمود I

تم تعديل أبريل 1, 2015 بواسطه ابا اسماعيل

[KHMB]

السلام عليكم ورحمة الله

تفضل اخي حسب ماطلبت

2015.111111.rar

[ابا اسماعيل]

بارك الله فيك اخي الكريم وجزاك الله خير الجزاء وجعله في موازين اعمالك ان شاء الله

[إبراهيم ابوليله]

 

بارك الله فيك اخي الكريم وجزاك الله خير الجزاء وجعله في موازين اعمالك ان شاء الله

 

اخى kmb

محاوله جيده

وعمل ممتاز

ومن تقدم الى تقدم

.....................................

واضح ان الدروس كانت مثمره

...................

تقبل تحياتى

[ابا اسماعيل]

سلام الله عليكم اخي الكريم ارجو ان لا اكون قد اثقلت عليك

توجد مشكلة عند تعديل سعر لم تتغير القيمة

 

ولمازيد من شرح في المرفق

 

 

 

2015.111111.zip

[KHMB]

السلام عليكم ورحمة الله

اخي ابااسماعيل تفضل تم التعديل بحيث تتغير القيمة عند وضع الكمية وعند تغيير السعر

2015.3333.rar

[ابا اسماعيل]

الكلمات تعجز عن شكرك اخي بارك الله فيك وجعله في ميزان حسناتك