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