اذهب الي المحتوي

osama kamal

عضو جديد 01
  • Content Count

    10
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 Neutral

عن العضو osama kamal

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    محاسب

اخر الزوار

186 زياره للملف الشخصي
  1. انا بتعلم وكتبت الكود مثل شرح الدرس ولكن الكود يعطى خطا ولا اعرف السبب ... مطلوب عمل حركة صنف بالتاريخ مأخوذة من شيت داتا 1 وشيت داتا 2 مشروع المخازن 9.rar
  2. (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
  3. 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 اية المشكلة ؟
  4. فكرة حلوة بس ناقص بعض الاضافات (مثل الطباعة و عدم التكرار للسطر بمعنى اذا كان الصنف مكرر بالفورم يعمل + علية ...
  5. مجهود رائع جدااا بارك الله فيك هل من المكن عمل ملف مخازن وارد ومنصرف وكارتة صنف مثل هذا العمل
  6. السلام عليكم البرنامج رااااائع انا حملت البرنامج ومع اول فاتورة بيع قال لى انتهت مدة البرنامج هل البرنامج غير مجانى
  7. الاخوة الاعزاء ممكن اضافة كشف بحركة الخزينة +تعديل تاريخ الطباعة من هجرى الى ميلادى +تغير العملة من درهم الى جنية مصرى والف شكررررررررر
  8. ارجوا من اخوتى تعديل هذا الملف بالاتى: 1-تعديل التاريخ من هجرى الى ميلادى 2-العملة من درهم الى جنية مصرى 3-اضافة كشف حركة الخزينة اليومى بمعنى ( حافظة الخزينة بالوارد مع المنصرف بالرصيد ) ويكون محدد بالتاريخ والف شكر ........... سندات V.2.2.rar
×
×
  • اضف...