الـعيدروس

وتفقيط العمله ماهي العمله التي تريدها ؟ وين بيتكرر اسم المورد ؟؟ هيا كما في ملفك الاصلي التي طلبت تكون مثله

المسلسل حق امر الشراء عملت عليه كما اشرت انت في مشاركتك السابقة هو حاليا بهذا الشكل

السلام عليكم ارفق الملف الذي تعمل عليه الاليه عند النقر على انشاء تقرير نظيف تاريخ في خليه معينه بحيث نستدعي قيمة الخليه فيوقت اردت معرفة اخر مرة ضغطت على زر التقرير

السلام عليكم جرب المرفق الملف بحسب المعطيات التي عليه لكي ننشاء تقارير صحيحه حسب التاريخ والشروط التي طرحتها يحتاج بعض الوقت ولااوعدك بتلبيه الطلب ربما يكون صعب وعدي أنني سأحاول اولا ارجو تجربة المرفق اذا وجدت اخطاء او ملاحظات اطرحها وان شاء الله خير Kh_Purchase-Order_1.rar

السلام عليكم استاذ طارق محمود حفظك الله اضافات استاذ عبقري ملم بأدواته ويعرف متى وأين يستخدمها جزاك الله خير تقبل مروري

اضن اني فهمت ماتريد اعطيني بعض الوقت لاني مشغول جداً وإن شاء الله اكمل لك جميع الطلبات فورم للتحكم بالاصناف اضافة فورم الصلاحيات وباقي الملاحظات الذي اشرت اليها تحياتي

السلام عليكم جرب هذا الكود Private Const Sn As String = "total" Public Sub Ali_Al_Sh() Dim Sh As Worksheet Dim Cn La = Sheets(Sn).Cells(Rows.Count, 3).End(xlUp).Row Sheets(Sn).Range("B5:H" & IIf(La = 4, 5, La)).ClearContents For Each Sh In ThisWorkbook.Worksheets With Sh Select Case Sh.Name Case Is = Sn Case Else Cn = Sheets(Sn).Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row Lr = .Cells(Rows.Count, 3).End(xlUp).Row .Range(.Cells(5, 2), Sh.Cells(Lr, 8)).Copy Sheets(Sn).Cells(Cn, 2).PasteSpecial xlPasteValues End Select End With Next Application.CutCopyMode = False End Sub

1 يعني مسلسل امر الشراء وليس اليوم هذا ماتريد ؟ والمسلسل تريده يبداء من 1 ؟

السلام عليكم ارفاق مثال وبه شرح مبسط اكيد ممكن

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

السلام عليكم اخي ابو تميم حل رائع وهكذا برضه Public B As Boolean Private Sub CommandButton1_Click() CommandButton1.Caption = IIf(B, "إلى الأمام", "إلى الخلف"): B = Not B End Sub

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

السلام عليكم بعد اذن استاذي الحبيب عبداله المجرب وهذا حل اخر لتعدد الحلول انسخ الكود التالي في مودويل Private Function Splt_A(ByVal Sp As String, x As Integer) As Variant Dim T, xx For Each T In Split(Sp, " ") If IsNumeric(T) And x = 1 Then xx = T: Exit For If Not IsNumeric(T) And x = 0 Then xx = xx & " " & T End If Next Splt_A = xx End Function الاستخدام كالتالي فرضا الجمله في العمود A لإستخراج كود الصنف = Splt_A(A2; 1) لإستخراج باقي النص = Splt_A(A2; 0)

وعليكم السلام اهلا وسهلا بك بين اخوتك اخي تالين اذا تقصد عدد الذين اعمارهم يساوي المحدد في خليه معينه جرب الصيغة التاليه فرضا خلية العمر هيا " B1 " =COUNTIF(B1:B3000;B1)

ليس مقابله بنك لماذ نسخته عفوا لم افهم ماهو الشرط الذي تريده ؟؟؟ عرفت ماالمقصود ان شاء الله اضيف هذا في الكود ولكن بعد توضيح النقطه السابقه

انا جربت الملف عدة مرات وبيظهر الملف عند استعراض رقمة من القائمة " اختار رقم امر الشراء للتعديل " ؟ وعند التعديل اضغط زر " تعديل " لتعديل امر الشراء للاسف انا الاوفيس تبعي 2003 انت بإمكانك تحويله حفظ بأسم وحفظه بصيغة اوفيس 2007 اضغط على الليبل المسمى " To " وسوف يفتح لك ملف الاكسل ارجو منك التوضيح اكثر هل تريد التسمية تكون بأول ثاثه حروف من اسم المستودع لان الاختصار بعضها غير واضح مثل RIYADH STORE = RHY انا كيف اعرف اختصر الاسم هذا اذا تقصد لكل مستدع اختصار معين بالامكان كتابة الاختصار المراد لكل مستودع بالعمود اللي مقابله ويعتمد هو في هذه الطريقه ممكن

السلام عليكم اخي الحبيب محمود علي ملف جميل جدا واكيد به فائده لكثير من الاعضاء الذين هم في مجال التدريس جزاك الله كل خير على المجهود الطيب تقبل مروري

السلام عليكم اين من الاعمد التي تريد جمعها بدون تكرار ؟ الفرانشة , الانتاج , عدد القطع , مساحة القطعه والدلاله اكيد بيكون عمود C اضن ماتقصده مجماميع كل عميل

السلام عليكم لااعلم ان كنت فهمت طلبك بالشكل الصحيح عموما جرب الكود التالي ان هو ماتريد او وضح الطلب اكثر Public Sub T_A() Dim Sh As Worksheet Dim R As Range, Rc As Range Set Sh = Sheet3 With Sheet1 For Each R In .Range("A2:J261").Rows If R.Cells(R.Row, 9) = "بنك" Then R.Copy Sh.Cells(Sh.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row, 1).PasteSpecial xlPasteValues End If Next End With With Sh Sheet1.Range("A1:J1").Copy .[A1] For Each S In Array("الأول2", "التفتيش", "الامن", "مستقل") For Each Rc In .Range("J2:J1500") If Not IsEmpty(Rc) Then If Rc.Text = S Then Rc.RowHeight = 90 End If End If Next Next With .Rows("2:" & .Cells(Rows.Count, 1).End(xlUp).Row) .Sort Key1:=.Cells(2, 10), Order1:=xlDescending, Header:=xlNo End With End With Set R = Nothing: Rc = Nothing End Sub

لا أعلم مالفرق بينه وبين المرفق من قبلي ؟؟؟ سوف اضيف لك فورم للتحكم في الاصناف ان شاء الله لاحقاً سوف اعدل عليه بأذن الله بيكون مع التعديل الجديد لم افهم ماتقصد هل المقصود اختصار اسم المستودع ؟ مثلا حفظ امر شراء بالاسم التالي كيف تريده ان يختصر RIYADH STORES 130000 لاتختفي استعرض رقم الشراء من القائمة وشاهد التعديل الذي قمت به

جزاك الله خير اخي himass اكيد بيستفيد منه الكثير حبذا ترفق نسختين نسخه 2003 واخر 2007 تقبل مروري

السلام عليكم تفضل nicola_A.rar

السلام عليكم الاخ يوسف تفضل Private Sub CommandButton2_Click() Dim Pas As Integer Pas = InputBox(" إدخل رمز المرور للإظهار ", " منتدى أوفسينا ") If Pas = False Or Pas = Cancel Then Exit Sub If Pas = "123" Then Worksheets("ورقة2").Visible = True: Exit Sub MsgBox " رمز المرور غير صحيح ", vbCritical, " تنبية !!! " End Sub

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

السلام عليكم شاهد المرفق اما اضافة صلاحيات المستخدمين لم يضاف بعد ان شاء الله ان توفر وقت لاحقا سوف احاول اضيفه لملفك جرب المرفق واذا وجدت لديك ملاحظات ارفقها Kh_Purchase-Order.rar