شوقي ربيع

هههه ميغلاش عليكم غالي استادنا ابراهم المرفق موجود

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

صحيح صقطت مني سهوا لم اضع كود يمحى البيانات الموجود سابقا انضر هدا واعلمني Dim ws As Worksheet: Set ws = Sheets("æÑÞÉ2") Dim Tableau() As Variant: Tableau() = ListBox1.List Dim I As Integer: I = ListBox1.ListCount + 2 Dim J As Byte: J = ListBox1.ColumnCount Application.DisplayAlerts = False ws.Range("A3:G3" & Range("A3").End(xlDown)).ClearContents ws.Range("A3:" & Cells(I, J).Address).Value = Tableau() Me.Hide ws.PrintPreview Application.DisplayAlerts = True Me.show

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

OK الخطاء كان ان المعاينة تكون لشيت المتاكتف و هو شيت الداتا الكود صبح Dim ws As Worksheet: Set ws = Sheets("æÑÞÉ2") Dim Tableau() As Variant: Tableau() = ListBox1.List Dim I As Integer: I = ListBox1.ListCount Dim J As Byte: J = ListBox1.ColumnCount Application.DisplayAlerts = False ws.Range("A3:" & Cells(I, J).Address).Value = Tableau() Me.Hide ws.PrintPreview Application.DisplayAlerts = True Me.show استعلام2.rar

لم افهم السؤال الاخير ارفق الملف الذي طبقت عليه الكود لاعاينه

2015..zip اجل كل يرحل كل صنف في مكانه

لا عليك اخي انما احبد ان يعتمد الاعضاء على انفسهم ليتعلمو بعد عملك لشيت وضبط تنسيقاته استخدم هذا الكود بدل الكود الاول Private Sub CommandButton2_Click() Dim ws As Worksheet: Set ws = Sheets("هنا اكتب اسم الشيت المنسق") Dim Tableau() As Variant: Tableau() = ListBox1.List Dim I As Integer: I = ListBox1.ListCount Dim J As Byte: J = ListBox1.ColumnCount Application.DisplayAlerts = False ws.Range("A1:" & Cells(I, J).Address) = Tableau() Me.Hide ActiveWindow.SelectedSheets.PrintPreview Application.DisplayAlerts = True Me.Show End Sub

السلام عليكم احسنت وجازاك الله خير اخي ياسر ملاحظة بسيطة استخدمة كود تخطي الاخطاء On Error Resume Next الذي شخصيا لا احبذ استخدامه الا لضرورة القصوة ؟؟؟؟ وبعدها استخدمة On Error GoTo 0 الذي يقول عند وجود خطاء ادهب الى الصفر على حد علمي الكود الاول يلغي عمل الكود الاخير سؤالي ما فئدة الاخير علما ان الصفر ليس مدرج في الكود هو مجرد استفسار اخي ياسر ارجو ان تتقبله بصدر رحب فغايتي هي تحريك المواضيع و تطويرها بواسطة الاستفسارات والنقد البناء معا لرفع المستوى تحياتي للجميع

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

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

السلام عليكم استخدم هذا الكود Private Sub CommandButton2_Click() Dim Tableau() As Variant: Tableau() = ListBox1.List Dim I As Integer: I = ListBox1.ListCount Dim J As Byte: J = ListBox1.ColumnCount Application.DisplayAlerts = False Workbooks.Add Range("A1:" & Cells(I, J).Address) = Tableau() Me.Hide ActiveWindow.SelectedSheets.PrintPreview ActiveWorkbook.Close False Application.DisplayAlerts = True Me.show End Sub

بسم الله الرحمان الرحيم السلام عليكم تكملة لموضوع النص التنبئي على الكمبوبوكس http://www.officena....showtopic=59463 الموضوع السابق ذكره تم التطرق الى البحث داخر القائمة المنسدلة ذات عمود واحد الجديد اليوم هو البحث داخل القائمة المنسدلة بواسطة النص التنبئي لاكن مع وجود اكثر من عمود في القائمة تم عمل مثالين توضيحين الاول مطبق على الشيت اما الثاني مطبق على الفورم وكلاهما لهم نفس الوضيفة انما تم عمل المثالين ليتكون الفكرة وضحة واشمل في الاخير ارجو من الاعضاء تقديم ارائهم و ملاحضاتهم لنطور الموضوع اكثر ونصل الى افضل النتائج معا لرفع المستوى ******************* تحياتي للجميع تم تغير المرفق بعد 12 تحميل النص التنبئي.rar

السلام عليكم اخوتي في الله KHMB الصـقـر إبراهيم ابوليله YasserKhalil Eng : Yasser Fathi Albanna أكرم جلال ضاحي الغريب أب مارية الحدادي كل باسمه مع حفظ الالقاب لكم مني جزيل الشكر وفائق الحترام جزاكم الله كل الخير

لا اعرف المشكلة التي واحهتك الكود شغال مية مية اما بالنسبة بخصوص تغير العمود التغير فقط يكون في هذا السطر If Not Intersect(Range("N12:N" & lrw), Target) Is Nothing And Target.Count = 1 Then حيث N هو العمود مثلا نريد العمود P الكود سيكون If Not Intersect(Range("P12:P" & lrw), Target) Is Nothing And Target.Count = 1 Then

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

السلام عليكم فرضا ان lastColumn =50 فالنتيجة الحتمية ل Range("a2") & lastColumn هي Range("a2") 50 ماهذا لا تعني شيئ اذا الفيوجل يعتبرها خطاء اما لو كتبنا Range ("a2" & lastColumn) النتيجة تكون Range ("a250") هذا صحيح لاكنه ليس الذي تريده اليس كذالك لانه عندما نرجع الى الصيغة العامة للكود If Not Intersect(Target, Range("a2" & lastColumn)) Is Nothing Then والذي معناه انه اذا حدث اي تحديد او تغير في المدى الذي اخترته والذي وجدنا نتيجته Range ("a250") منه النتيجة الحتمية تكون الكود يشتغل فقط عند تحديد او حدوث تغير في الخلية a250 اما سؤالك بخصوص الفرق بين If Not Intersect(Target, Range("a2:g" & lastColumn)) Is Nothing Then وبين If Not Intersect(Target, Range("a2:g2")) Is Nothing Then ببساطة هو انه مثل ماقنا في الاول ستكون نتيجة الكود الاول سيطبق على المدى Range("a2:g50" بافترضنا انا lastColumn =50 وهو المطلوب والصحيح اما الكود الثاني فالمدى واضحRange("a2:g2") ولك الحكم ارجو ان يكون قد تم التوضويح بشكل مفهوم تحياتي للجميع

شاهد هذا الموضوع وحاول التطبيق http://www.officena.net/ib/index.php?showtopic=59523

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

بسم الله الرحمان الرحيم السلام عليكم تكملة لموضوع النص التنبئي على الكمبوبوكس http://www.officena.net/ib/index.php?showtopic=59463 و لمعرفت احد فوائد ذلك الموضوع غالب مايعاني الاشخاص في ادخال اصناف فواتير البيع او الشراء رغم الطرق الكثيرة التي رئيتها لفعل ذلك الا انها تتسم ب: (الركاكة) ان صح التعبير او نقول غير مريحة في الادخالات احسن اقدم لكم اليوم هذته الطريقة التي وحسب رئي الشخصي افضل الطرق للوصول الى هدفنا المتمثلة في نموذج بسيط لفاتورة لكنه يشرح الفكرة بوضوح في الاخير ارجو من الاعضاء تقديم ارائهم و ملاحضاتهم لنطور الموضوع اكثر ونصل الى افضل النتائج معا لرفع المستوى ******************* ملاحظة يوجد ملفان في المرفق احدهما اوفيس 2003 لاكن الاخير يعطى خطاء في المعادلات المستعملة في الملف اضن بسبب دالة IFERROR و على ما اعتقد ان النسخة لا تدعمها اما الملف الثاني 2007 فما فوق شغال عادي تحياتي للجميع تم تغيير المرفق بعد 7 تحميلات Model Facteur.rar

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

السلام عليكم بالمختصر نضع الاكواد في thisworkbook عندما نريد من ذالك الكود التعامل مع مصنف معين لا غير مثلا لو تريد ان يقلع الفورم مع فتح الملف تضع الكود في حدث اقلاع الملف (Workbook_Open) الذي تجده في ThisWorkbookحيث ان الكود او الاكواد التي تكتبها فيه ستعمل فقط مع هذا الملف اما Sheet تكتب الاكواد في احد احداثه من اجل التعامل مع شيت معين عموما او خصوصا عموما التعامل مع الشيت كله اما خصوصا التعامل مع جزء من الشيت (خلية او مجموعة خلايا او عمود او مجموعة عواميد) باختصار الاكواد المكتوبة في ما سبق ذكره تتعامل مع مصنفف معين وشيتاته لا غير اما Module فاستعمالاته اوسع فبالامكان كتابة اكواد في الموديل تتعامل مع اكثر من شيت واكثر من مصنف وذلك حسب التعاريف التي نعطيها للمتغيرات في ذلك الموديل فيمكن عمل متغيرات عامة تستطيع الوصول اليها من اي مصنف او شيت الى ذالك المتغير بالنسبة لي تعريف المتغيارت بالطريقة الصحيحة اهم حاجة في بالبرمجة لذى يجب الحذر والتعامل معها بعناية في بعض الاحيان نبرمج اكواد خاصة بعمل ماء وتكون جيدة لاكن مثلا يوكن لديا اكثر من ملف مفتوح ممكن ان تاثر تلك الاكواد على ملف ثاني لم نبرمجها من اجله وهذا راجع لطريقة تعريفنا للمتغيرات اما بخصوص استعمال اكثر من Module في مشروع ما هنالك بعض المشاريع تكون كبيرة جدا فليس من الجميل و المناسب برمجت كافت الاكواد في موديل واحد لذى نستعما عدت موديلات ونعطيها اسماء تقرب لنا محتوى كل كود وهذا لتنضيم وتسهيل العمل فقد يكون اكثر من مبرمج يعمل على ذلك المشروع او نقول ان صاحب ذلك المشروع وجد خطاء ما او اراد تطوير جزء ما من ذلك المشروع سيكون من السهل الوصول اللى المكان المناسب الذي سيعدل فيه ..... ..... .... هذا مجرد شرح بسيط شخصي يحتمل الصح و يحتمل الخطاء يمكن ان يكون هناك شرح اشمل و اوسع من احد اساتذة المنتدى ارجو ان اكون وفقت ولو في القليل لاصال القكرة تحياتي للجميع

السلام عليكم استبدل كودك الخاص بالنقر المزدوج على اليست بوكس بهذا الكود Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim rw As Long: rw = ActiveCell.Row Range("D" & rw) = Me.ListBox1.Column(0) Range("E" & rw) = Me.ListBox1.Column(1) Range("H" & rw) = Me.ListBox1.Column(3) Unload Me ActiveCell.Offset(0, 2).Select End Sub كما يمكنك استعمال كمبوبوكس مع النص التنبيء من اخر موضويعي سيكون الامر اجمل واسهل من استخدام الفورم شاهد الموضوع وحاول تطبيقه على ملفك http://www.officena.net/ib/index.php?showtopic=59463 تحياتي للجميع

السلام عليكم الكود المستعمل Private Sub Worksheet_Change(ByVal Target As Range) Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("ãØÇáÈÇÊ") Dim lrww As Long: lrww = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1 Dim lrw As Long: lrw = Cells(Rows.Count, 1).End(xlUp).Row If Not Intersect(Range("N12:N" & lrw), Target) Is Nothing And Target.Count = 1 Then Dim rw As Long: rw = Target.Row If Target = "" Then Exit Sub ws.Range("A" & lrww) = Range("D" & rw) ws.Range("B" & lrww) = Range("B" & rw) End If End Sub تحياتي للجميع تسجيل.rar

السلام عليكم مجرد رئي عند التعامل مع الشيت من الافضل استخدام الدول في المثال الذي ارفقته مثلا دالة SUM قايمة بالواجب وحتى عند تغير القيم كما طلبت في اخر رد تعمل اتو ماتيكايا ان كنت تريد استخدام العمليات الحسابية من خلال vba فالافضل استخدامها مع Object مثال التكسات في الفورم تحياتي