الصـقر

الحمد لله تم حل مشكله رفع الملفات

بالفعل استاذى ياسر ادركت ذالك وعدلته الى 6 ليصل السريل الى مليون لكن للاسف فى مشكله فى رفع الملفات مش عارف مشكله عامه ولا عندى انا بس

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

بعد أذن استاذى الكبير سليم بك حاصبيا اخى الكريم أ/ محمد عبدالمجيد موضوع معادله او كود للسيريال بشكل عام سهل جدا لكن المشكله انك عايزها فيها هذه العلامه (/) والعلامه دى كما قال استاذى سليم ان اكسيل يقراءها تاريخ فكان لابد من فكر للحل بطرق ملتويه نظرا لانى من عشاق التفكير خاصه فى الامور الاكسلية والمحاسبية الفنية بعد تفكير عميق وجدت الحل لحضرتك من خلال فكرة بسيطه جدا وهى استخدام دالة ( mid) الخطوة الاولى للحل هى المعادله التالية ضعها فى الخلية (j7) لون الخط بالخلية حاليا فى الملف المرفق احمر لكن بعد الاطلاع يفضل ان تكون بالابيض حتى لا يظهر ويعطى شكل جمالى اكثر =1 & "/" & MID(K7;3;6)+1 الخطوة الثانية هو وضع هذا السطر فى كود الترحيل الخاص بك للفاتورة قبل نهاية الكود ( اى قبل نهاية End Sub ) [k7] = [j7] مرفق ملف به تنفيذ فكرة الحل ارجو ان ينال اعجابك تقبل منى وافر الاحترام والتقدير serial1.zip

أخى الكريم انظر الصورة غير رقم 3 الى الى عدد اعمده انتى عايزها اولا افتح الفورم اقف على الست بوكس ثم من الخصائص غير 3 الى 7 او اى رقم اتمنى ان اكون وفقت بالشرح تقبل تحياتى

اخى الكريم المقصود ب DADA هو المعلومات اللى بالست بوكس واللست بوكس ياتى بالمعلومات من اى تغيير على TextBox4 اللى هو البحث بمجرد كتابة حرف فى TextBox4 اللى هو البحث يتم جلب كل المعلومات من الجدول المطابقه للبحث المعلومات اللى تم جلبها دى بقى اسمها DADA يتم تعريفها بهذا الاسم ودى الجزئية اللى بالكود الخاصه بجلب البيانات الى الست بوكس ثم تعريف هذه البيانات باسم DADA Set AL_2 = Sheets("ورقة1") With AL_2 LastRow = .Cells(.Rows.Count, "b").End(xlUp).Row Set q = .Range("b3:b" & LastRow).Find(M) If Not q Is Nothing Then F = q.Address Do If Application.WorksheetFunction.Search(M, q, 1) = 1 Then ListBox1.AddItem q.Value ListBox1.List(V, 1) = q.Offset(0, -1).Value ListBox1.List(V, 2) = q.Offset(0, 1).Value ListBox1.List(V, 3) = q.Offset(0, 2).Value ListBox1.List(V, 4) = q.Address V = V + 1 End If Set q = .Range("b3:b" & LastRow).FindNext(q) Loop While Not q Is Nothing And q.Address <> F End If End With ودى الجزئية الخاصه بتعريف DaDA DADA = ListBox1.List(ListBox1.ListIndex, 4) Set MYSH = Sheets("ورقة1") With MYSH .Application.Range(DADA).Activate .Range(DADA).Value = TextBox2.Text '.Range(DADA).Offset(0, -1).Value = TextBox1.Value .Range(DADA).Offset(0, 1).Value = TextBox3.Value End With اتمنى ان اكون وفقت بالشرح تقبل تحياتى

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

استاذى الحبيب والله الباسورد 111 عموما يا غالى اتفضل الملف بدون الباسورد جدول متحرك.zip

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

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

اخى الكريم Yasiressa شكرا على مرورك العطر وبارك الله فيك تقبل منى وافر الاحترام والتقدير

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

استاذ / ياسر الاخ mxfouad لم يتلفظ بلفظ خارج هو قال كلمة ( ..... ) يبدو انه من اسكندرية والكلمة دى هناك بيقولها الكبير والصغير الراجل والست الشاب والبنت ومشهورة جدا وهى توحى بالدهشة والاستغراب ثم انا عملت عليها اعجبنى وايضا تعقيب بضحكه يعنى انا لم ارها خطا فاذا كنت ترى انه تلفظ بلفظ خارج وأخطأ اذن انا كمان تلفظت بلفظ خارج وأخطأت ( لأن مؤيد الشئ كفاعله ) كلاهما سواء

عموما غير الكود بالكود ده Private Sub Workbook_Open() ActiveWindow.DisplayWorkbookTabs = true End Sub

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

Private Sub Workbook_Open() ActiveWindow.DisplayWorkbookTabs = False End Sub جرب الكود دا فى حدث الملف اضغط على Alt +F11 سيظهر لك محرر الاكواد على اليسار فى this work book اضغط دبل كليك عليها هيفتح معك شاشة بيضه انسخ هذا الكود بها

اخى الكريم افتح ايقونه الاكسل فوق على اليسار ثم اختار Excel options سيظهر لك شاشة اختر منها advanced على اليسار موجوده انزل بالماوس الى Display options for this work book ثالث خيار show sheet tabs ازل علامه الصح من المربع تقبل تحياتى

استاذى الفاضل جرب المرفق هل هو ما تريد تقبل تحياتى حالة الاصناف بناء على عدة متغيرات.zip

اولا قم بضغط الملف ببرنامج وينرار ومن المحرر الكامل اخترا لملف وثم رفع

تفضل اخى الحبيب حسب فهمى للموضوع جرب المرفق هل هو ما تريد تقبل تحياتى جرد ن.zip

استاذى الفاضل جرب المعادله التالية ستفى بالغرض =OR($Z$1>30;$Z$1<28)

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

تفضل اخى الكريم جرب الملف المرفق عذرا ابو حنين انت ليه كل اسئلتك صعبه وفنيه ؟؟؟؟ تقبل تحياتى Book1.zip

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

بطل حجج شوية تعبان وشوية ملكش بالكورة يالا لف التراك 100 مرة هههههههههههههههههههه