osama kamal

الرابط لايعمل

انا بتعلم وكتبت الكود مثل شرح الدرس ولكن الكود يعطى خطا ولا اعرف السبب ... مطلوب عمل حركة صنف بالتاريخ مأخوذة من شيت داتا 1 وشيت داتا 2 مشروع المخازن 9.rar

ارجو الرد

(Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then Range("a6:f3000").ClearContents For i = 3 To 200 (("x = WorksheetFunction.CountA(Range("a6:a3000 If Sheets(6).Cells(i, 1) = [b1].Value Then (Sheets(3).Cells(5, 1).Offset(1 + x, 0) = Sheets(6).Cells(i, 1) (Sheets(3).Cells(5, 2).Offset(1 + x, 0) = Sheets(6).Cells(i, 2) (Sheets(3).Cells(5, 3).Offset(1 + x, 0) = Sheets(6).Cells(i, 3) (Sheets(3).Cells(5, 4).Offset(1 + x, 0) = Sheets(6).Cells(i, 4) (Sheets(3).Cells(5, 5).Offset(1 + x, 0) = Sheets(6).Cells(i, 5) (Sheets(3).Cells(5, 6).Offset(1 + x, 0) = Sheets(6).Cells(i, 6) End If Next i For i = 3 To 200 (("x = WorksheetFunction.CountA(Range("a6:a3000 If Sheets(2).Cells(i, 1) = [b1].Value Then (Sheets(3).Cells(5, 1).Offset(1 + x, 0) = Sheets(7).Cells(i, 1) End If Next i End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then Range("a6:f3000").ClearContents For i = 3 To 200 x = WorksheetFunction.CountA(Range("a6:a3000")) If Sheets(6).Cells(i, 1) = [b1].Value Then Sheets(3).Cells(5, 1).Offset(1 + x, 0) = Sheets(6).Cells(i, 1) Sheets(3).Cells(5, 2).Offset(1 + x, 0) = Sheets(6).Cells(i, 2) Sheets(3).Cells(5, 3).Offset(1 + x, 0) = Sheets(6).Cells(i, 3) Sheets(3).Cells(5, 4).Offset(1 + x, 0) = Sheets(6).Cells(i, 4) Sheets(3).Cells(5, 5).Offset(1 + x, 0) = Sheets(6).Cells(i, 5) Sheets(3).Cells(5, 6).Offset(1 + x, 0) = Sheets(6).Cells(i, 6) End If Next i For i = 3 To 200 x = WorksheetFunction.CountA(Range("a6:a3000")) If Sheets(2).Cells(i, 1) = [b1].Value Then Sheets(3).Cells(5, 1).Offset(1 + x, 0) = Sheets(7).Cells(i, 1) End If Next i End If End Sub اية المشكلة ؟

فكرة حلوة بس ناقص بعض الاضافات (مثل الطباعة و عدم التكرار للسطر بمعنى اذا كان الصنف مكرر بالفورم يعمل + علية ...

مجهود رائع جدااا بارك الله فيك هل من المكن عمل ملف مخازن وارد ومنصرف وكارتة صنف مثل هذا العمل

السلام عليكم البرنامج رااااائع انا حملت البرنامج ومع اول فاتورة بيع قال لى انتهت مدة البرنامج هل البرنامج غير مجانى

الاخوة الاعزاء ممكن اضافة كشف بحركة الخزينة +تعديل تاريخ الطباعة من هجرى الى ميلادى +تغير العملة من درهم الى جنية مصرى والف شكررررررررر

ارجوا من اخوتى تعديل هذا الملف بالاتى: 1-تعديل التاريخ من هجرى الى ميلادى 2-العملة من درهم الى جنية مصرى 3-اضافة كشف حركة الخزينة اليومى بمعنى ( حافظة الخزينة بالوارد مع المنصرف بالرصيد ) ويكون محدد بالتاريخ والف شكر ........... سندات V.2.2.rar