أبو حنــــين

السلام عليكم جرب المرفق و اخبرني بالنتائج 2n2014_2.rar

السلام عليكم اخي ليس من المنطقي ان يكون المخزون يحتوي على نفس الصنف بسعرين مختلفين و في حالة ما اذا وقع هذا مثلا بتغير معطيات السوق فيجب عمل التالي مثلا اشتريت Cable Jak بسعر 1000 و بعد فترة اردت شراء نفس المنتوج رغم وجود كمية عندك في المخزون فوجدت ان سعره قد تغير فالحل الامثل انك تقوم بادخلهما بالطريقة التالية السعر الكمية المنتوج Cable Jak 10 1000 Cable Jak-2 30 1200 بهذه الطريقة تكون على علم ان الكمية 10 سعر شرائها 1000 بينما الكمية 30 سعر شرائها 1200 و تستطيع تحديد سعر البيع حسب سعر الشراء دون ان تضر بنفسك او الزبون لاحظ اننا وضعنا 2- عند المنتوج الثاني ليكون حذفه سهل و ان كان لديك رأي آخر اخبرني به

عمل متقن اخي ابراهيم جزاك الله خيرا

السلام عليكم انظر المرفق توزيع رقم على عدة خلايا.rar

أخي أبو حازم أخي جمال الجمال جزاكم الله خيرا

اعتقد انه موجود الملف مرة اخرى 2n2014_2.rar

هل تقصد الزر O.Vents الموجود على الورقة او الزر Supprimer الموجود على الفورم

السلام عليكم لم احذف الزر O.Vents الموجود في صفحة Vents كل ما قمت به هو التالي : عندما تذهب الى فورم Opération de vent و تختار من القائمة مادة معينة اذا كانت هذه المادة فعلا موجودة في ورقة Vents اي قد تم فعلا بيعها سابقا تظهر لك لستبوكس بها المادة المباعة مع تاريخ البيع و الكمية و سعر البيع تختار من اللستبوكس ما تريد حذفه ثم تظغط على Supprimer

السلام عليكم ضع قبل كل كود السطر التالي حيث ان آخر تاريخ هو 27/11/2013 If Date > #11/27/2013# Then Exit Sub

السلام عليكم قمت ايضا بالعمل الذي قام به أخي شوقي ربيع بفورم آخر استغرق مني وقتا كبيرا و عندما قرأت رد اخي ابو ليمونه عرفت انه لا داعي من رفعه لان الاخ يطلب العمل على الشيت و ليس الفورم تحياتي

السلام عليكم قمت بتعديل على الفورم حيث اضفت قائمة بالمواد التي ستحذف اطلع عليه و اخبرني بالنتائج 2n2014.rar

السلام عليكم الملفان طبيعيان الاصدار 2003 لا يقبل اكثر من 256 عمود اما الاصدار 2007 فيقبل حتى 16800 عمود

السلام عليكم استعمل هذا التعديل Private Sub CommandButton1_Click() Dim LRR As Long, LR As Long Dim Bb LRR = Sheets("Stocks").Cells(Rows.Count, 3).End(xlUp).Row LR = Cells(Rows.Count, "A").End(xlUp).Row If Application.Intersect(Range("A8:I" & LR), ActiveCell) Is Nothing Then GoTo 1 ActiveRow = ActiveCell.Row If MsgBox("هل تريد حذف السجل", vbCritical + _ vbMsgBoxRight + vbYesNo, "Íحذف") = vbNo Then Exit Sub For Each Bb In Sheets("Stocks").Range("B12:B" & LRR) If Bb = Cells(ActiveCell.Row, 2) Then Bb.Offset(0, 2) = Val(Bb.Offset(0, 2)) + Val(Cells(ActiveCell.Row, 3).Offset(0, 1)) Next Sheets("Vents").Range(Cells(ActiveRow, 1), Cells(ActiveRow, 9)).Delete MsgBox "تم حذف السجل", vbInformation + vbMsgBoxRight, "تأكيد" Sheets("Vents").Range("A8") = 1: Sheets("Vents").Range("A9") = 2 Sheets("Vents").Range("A8:A9").AutoFill Destination:=Range("A8:A" & LR - 1), Type:=xlFillDefault Sheets("Vents").Range("A8:A9").Offset(0, 6).AutoFill Destination:=Range("A8:A" & LR - 1).Offset(0, 6), Type:=xlFillDefault Sheets("Vents").Range("A8:A9").Offset(0, 7).AutoFill Destination:=Range("A8:A" & LR - 1).Offset(0, 7), Type:=xlFillDefault Sheets("Vents").Range("A8:A9").Offset(0, 8).AutoFill Destination:=Range("A8:A" & LR - 1).Offset(0, 8), Type:=xlFillDefault Exit Sub 1 MsgBox "الخلية الحالية خارج النطاق", vbExclamation, "خطأ" End Sub

اذا كان لديك 2003 قم بالتالي من ملف ثم -------> ناحية الطباعة -------> ثم مسح ناحية الطباعة ثم قم بالمعاينة عند المعاينة تجد الكلمات : تكبير/تصغير - طباعة - اعداد - هوامش - ثم تجد احتمالين ان وجدت : معاينة فواصل الصفحات اتركها كما هي و ان وجدت عرض عادي اضغط عليها

ما هو اصدار الاوفيس لديك

السلام عليكم انشأ موديل فارغ و انسخ فيه الكود التالي على اعتبار ان الورقة المعنية اسمها ورقة1 ثم ضع زر و اربطه بالموديل Sub Show_Columns() Application.ScreenUpdating = False With Sheets("ورقة1") For i = 1 To .Columns.Count .Columns(i).EntireColumn.Hidden = False Next Application.ScreenUpdating = True End With End Sub

السلام عليكم استعمل هذا الكود Private Sub CommandButton1_Click() Application.ScreenUpdating = False For i = 1 To Me.Columns.Count Columns(i).EntireColumn.Hidden = False Next Application.ScreenUpdating = True End Sub

السلام عليكم اخي ضاحي الغريب ابداع متميز جزاك الله خيرا

آمين يا رب العالمين لنا و لكم ان شاء الله سبحان الله و لا حول و لاقوة الا بالله و الله لم اسمع دعاءا مثل هذا جزاك الله الفردوس الاعلى و حفظك و رعاك وتقبل منكم و منا صالح الاعمال

مع ايقاف الكلمة End If

السلام عليكم جرب ان تغير هذه الجزئية If Cells(a, 7) = Cells(1, 12) Then Range(Cells(a, 1), Cells(a, 7)).Copy Workbooks(f2Name).Sheets(1).[A1000].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues بهذه الجزئية If Cells(a, 7) = Cells(1, 12) Then Range(Cells(a, 1), Cells(a, 7)).Copy Workbooks(f2Name).Sheets(1).[A1000].End(xlUp).Offset(1, 0)

السلام عليكم اخي ياسر لا عليك اخي ياسر و الحمد لله اننا نتسابق لنشر العلم

السلام عليكم اتبع الخطوات التالية -1 اضغط على الخلية B1 من الورقة باليمين ثم اختر من القائمة تنسيق خلايا ـ 2 اذهب الى علامة الثبوت : حماية ـ 3 أزل علامة (صح) من الكلمة : تم تأمينها ، ثم اضغط على موافق ـ 4 الآن قم بحماية الورقة بكلمة مرور

استعمل هذا الكود Private Sub CommandButton1_Click() Dim LRR As Long, LR As Long Dim Bb LRR = Sheets("Sheet2").Cells(Rows.Count, 3).End(xlUp).Row LR = Cells(Rows.Count, "A").End(xlUp).Row If Application.Intersect(Range("A2:E" & LR), ActiveCell) Is Nothing Then GoTo 1 ActiveRow = ActiveCell.Row If MsgBox("هل تريد حذف السجل", vbCritical + _ vbMsgBoxRight + vbYesNo, "حذف") = vbNo Then Exit Sub For Each Bb In Sheets("Sheet2").Range("B2:B" & LRR) If Bb = Cells(ActiveCell.Row, 2) Then Bb.Offset(0, 2) = Val(Bb.Offset(0, 2)) + Val(Cells(ActiveCell.Row, 3).Offset(0, 1)) Next Sheets("Sheet1").Range(Cells(ActiveRow, 1), Cells(ActiveRow, 5)).Delete MsgBox "تم حذف السجل", vbInformation + vbMsgBoxRight, "تأكيد" Sheets("Sheet1").Range("A2") = 1: Sheets("Sheet1").Range("A3") = 2 Sheets("Sheet1").Range("A2:A3").AutoFill Destination:=Range("A2:A" & LR - 1), Type:=xlFillDefault Sheets("Sheet1").Range("A2:A3").Offset(0, 4).AutoFill Destination:=Range("A2:A" & LR - 1).Offset(0, 4), Type:=xlFillDefault Exit Sub 1 MsgBox "الخلية الحالية خارج النطاق", vbExclamation, "خطأ" End Sub

او بهذه الطريقة حد الطلب111.rar