عبدالله باقشير

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

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

جزاكم الله خيرا

السلام عليكم اخي الحبيب /حمادة....حفظكم الله جزاكم الله خيرا تقبلوا تحياتي وشكري

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

السلام عليكم تم استخدام دالة معمولة بالكود kh_AddPicture تجد شرحها في الرابط http://www.officena.net/ib/index.php?showtopic=40613 المعادلة موجودة في العمود C في شيت الاصناف والعمود N في شيت الفاتورة Option Explicit Option Compare Text '============================================= '============================================= ' اسم مجلد الصور ' اذا كان مجلد الصور في نفس مجلد ملف الاكسل ' اكتب اسمه فقط ' والا اكتب المسار كاملا ' "D:\MyDocument\MyFunction\photo" Private Const kh_pic As String = "MyImeg" '============================================= ' امكانية تحرير اي نوع من الصور لديك ادناه Private Const MyTyp As String = ".jpg,.bmp,.gif,.png,.tif" '============================================= '============================================= Function kh_AddPicture(MyRng As Range, iName As String) Dim Tp Dim MyShap As Shape Dim MyFile As String, MyPath As String Dim ibo As Boolean '----------------------------------------- On Error Resume Next Set MyShap = MyRng.Worksheet.Shapes(iName) If iName = "" Or Err Then Err.Clear: GoTo 1 '----------------------------------------- MyShap.Fill.Solid If Not InStr(kh_pic, ":") Then MyPath = ThisWorkbook.Path MyFile = MyPath & "\" & kh_pic & "\" & CStr(MyRng) '----------------------------------------- For Each Tp In Split(MyTyp, ",") If Not Dir(MyFile & Trim(Tp), vbDirectory) = vbNullString Then MyShap.Fill.UserPicture MyFile & Trim(Tp) ibo = True Exit For End If Next '----------------------------------------- 1: Set MyShap = Nothing kh_AddPicture = ibo End Function شاهد المرفق 2010 فاتورة مبيعات بصورة الصنف.rar

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

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

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

السلام عليكم اخي ابو ردينة.......جزاك ربي خيرا اخي محمد حمدي.......جزاك ربي خيرا تقبلوا تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اخي الفاضل /هاني بدر-----------حفظكم الله هذا التقرير بعد اضافة عمود رصيد ما قبل الفترة وعمود الاجمالي في المرفق 2003 (نموذج بدون اكواد) mmm.rar

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

السلام عليكم احسنت اخي جمال...حفظكم الله تقبلوا تحياتي وشكري

السلام عليكم Private Sub CommandButton1_Click() If Len(Trim(Me.TextBox1)) Then Me.ListBox1.AddItem Me.TextBox1.Value End If End Sub شاهد المرفق 2003 tgr1.rar

السلام عليكم ورحمة الله وبركاته تهنئة بالترقية للاخ ضاحي الغريب الى عضو خبير الف مليون مبرووووووك والى الامام دوماً .........

السلام عليكم ورحمة الله وبركاته اخي الفاضل /هاني بدر-----------حفظكم الله هل هذا التقرير الذي قصدته في المرفق 2003 (نموذج بدون اكواد) mmm.rar

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

السلام عليكم و رحمة الله و بركاته الاخ الفاضل / شوقي ربيع........حفظكم الله جزاكم الله خيراً وبارك فيكم تقبلوا تحياتي وشكري

عنوان موضوعك مخالف وقد تم تعديله

السلام عليكم ارجو الالتزام بقواعد المشاركة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

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

السلام عليكم اخي الحبيب حمادة -------حفظك الله وجزاك خيرا يعجبني نشاطك الفعال في كل المنتدى ما شاء الله عليك بالنسبة لكود الانتقال هذا ليس من اعمالي وانما انا استخدمته كثيرا في اعمالي وخاصة الاعمال المدرسية هذا اختصار للكود: يكفي هذا السطر ليقوم بذلك Application.CommandBars("Workbook Tabs").ShowPopup تقبل تحياتي وشكري

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

السلام عليكم الشكر واصل لاخي حمادة........حفظه الله ولاخي احمد يعقوب .......حفظه الله انا جهزت هذا قبل ان ارى مشاركتكما في المرفق ادخال الكود والاسم والرصائد في صفحة العملاء شاهد المرفق 2003 78s78.rar