جلال الجمال_ابو أدهم

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تقرير بواسطة فورم تم ارفاق كود التعديل من الفاضل _ أ /عبدالله باقشير _ عادل حنفي و لا تنسونا من صالح الدعاء الموظفين (KH).rar الموظفينform2 (ADEL).rar

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

م رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تعديل الترحيل في فاتورة محل تم ارفاق كود التعديل من الفاضل _ أ / أبوعبد الله و لا تنسونا من صالح الدعاء برنامج الفاتورة-1 (1).rar

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة التعديل على الفورم تم ارفاق كود التعديل من الفاضل _ أ / طلعت محمد حسن و لا تنسونا من صالح الدعاء الكتاب بشكل ثاني تعديل 4 (1).rar

مرفق فورم الشيكات المستحقه لـ اخى الفاضل طلعت محمد حسن مطلوب التعديل 1_ تعديل بيانات الادخال بالفورم لتكون كالاتى اسم العميل (بحث بحساسية الاحرف) من صفحة تكويد رقم الوحده من صفحة تكويد قيمة الشيك تاريخ الشيك البنك الفرع ملاحظات 2 _ يتم ترتيب الشيكات المدخله تلقائيا حسب التاريخ 3 _ عرض كشف الشيكات المستحقه بالليست بين تاريخين و ليس تاريخ واحد فقط مع الجمع بالليست . 4_ تصدير الكشف الى شيت جديد لطباعته مع رؤوس العناوين فورم الشيكات القائمه.rar

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

يرجى البحث فى الروابط الاتيه مواضيعى فى منتدى اوفيسنا _ بوابة نور التعليمية بالفورم منظومة شؤون عاملين مدخل الي الفورم التفاعلي - مع مثال لشئون الموظفين

خالد الرشيدى اخى الفاضل ما شاء الله عليك تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة برنامج متكامل للصادر والوارد تم ارفاق ملف الموضوع من الفاضل _ أ / شوقي ربيع _ضاحي الغريب pass_111 و لا تنسونا من صالح الدعاء ترتيب الملفات من الاحدث الى الاقدم البريد والصادر 2003-LastUpdate (5).rar البريد والصادر 2003-LastUpdate (4).rar البريد والصادر 2003-LastUpdate (3).rar البريد والصادر 2003-2 (2).rar البريد والصادر 2003-2 (1).rar Classeur1 (version 1)B (1).rar برنامج الصادر والوارد - شوقي ربيع (2).rar

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة طلب برنامج صادر ووارد تم ارفاق ملف الموضوع من الفاضل _ أ / أبو حنــــين و لا تنسونا من صالح الدعاء الصادر و الوار-3.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق ملف الموضوع من الفاضل _ أ / ياسر العربى تفضلوا عرض صور المنتج و معلوماته داخل يوزر فورم http://yasserelaraby86.blogspot.com.eg/2016/10/blog-post_6.html و لا تنسونا من صالح الدعاء

ياسر خليل أبو البراء اخى الفاضل تحياتى

ياسر العربى اخى الفاضل ما شاء الله عليك تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة مطلوب فورم بحث تم ارفاق كود الحل من الفاضل _ أ / طلعت محمد حسن شاشة إستعلام اوفيس _برقم الهاتف.rar و اخر بدلالة مسلسل الهاتف من الفاضل _ أ / KHMB شاشة إستعلام اوفيس _برقم الهاتف.rar و لا تنسونا من صالح الدعاء شاشة إستعلام اوفيس 2013 (مسلسل).rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كيف يتم الربط بين الفورم والشيت و هو تعديل على برنامج دليل هاتف متطور لـ أ / احمد حمور-ابوعبدالله تم ارفاق كود الحل و التعديل من الفاضل _ أ / طلعت محمد حسن و لا تنسونا من صالح الدعاء التعديل الثاني (فورم ترحيل و استدعاء).rar بحث2 (فورم ترحيل و استدعاء).rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود ترحيل البيانات بشكل مميز + شرح مصور تم ارفاق المشاركه من الفاضل _ أ / أحمد بكر مع الكود On Error Resume Next If Range("a3") = "" Or Range("b3") = "" Or Range("c3") = "" Then MsgBox "bla bla1", vbDefaultButton1, "bla bla1 " Else azsh = Sheet2.Range("c50000").End(xlUp).Row + 1 Sheet1.Range("A3:C3").Copy Sheet2.Cells(azsh, 1).PasteSpecial Paste:=xlPasteValues MsgBox "bla bla2", vbDefaultButton1, "bla bla2 " Sheet1.Range("A3:C3") = "" End If مع الشرح الموضوع : كود ترحيل البيانات بشكل مميز سأتناول أولا : شرح الكود حتى يسهل على الجميع أستخدامة داعيا الله ان يوفقنى الى ما يحبة ويرضة أ - سأقوم بضرب مثال يفضل ان تنفذة معى لكى تصل لكيفية عمل الكود وتطويعه لما تريد عملة أبدأ بفنح ملف أكسيل جديد : قم بتسمية ورقة العمل الاولى بأسم ادخال بيانات والورقة الثانية فواتير ثم فى صفحة العمل الاولى والتى تسمى بـ ادخال البيانات قوم بتصميم جدول كما هو موضح فى الصورة ثم تصميم زر فى نفس الصفحة حتى يصبح بنفس الشكل هذا لم لا يعرف كيفية تصميم زر يمكنة ذلك من خلال : ----------------------------------------------------- اصدار 2003 من مربع أدوات التحكم > ادارج زر ------------------------------------------------------ اصدار 2007 من المطور > ادراج زر ------------------------------------------------------- وفى الصفحة الثانية التى تم تسميتها باسم فواتير نصممها على هذا الشكل بعد تصميم تسمية الصفحتين والزر فى الصفحة الاولى يمكنك اضافة الكود من خلال اختيار وضع التصميم والضغط على الزر الذى سبق تصميمة دبل كليك ايسر على الماوس ثم نضع الكود التالى وسأقوم بشرحة تفصيليا كما بالصورة (الكود مرفق ) الجزء الاولى من الكود الجزء الثانى من الكود الجزء الثالث من الكود الجزء الرابع من الكود الجزء الخامس من الكود الجزء السادس والأخير ملاحظة : الكود يرحل بترتيب الادخال . و لا تنسونا من صالح الدعاء ترحيل بين ورقتين_احمد بكر.rar كود ترحيل البيانات- أوفيسنا (1).rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة البحث فى لست بوكس وترحيله لورقة معينة تم ارفاق المشاركه من الفاضل _ أ / عمرو.محمد 11 Amr.rar مع شرح الكود Private Sub TextBox1_Change() 'اخر الكريم تقبل تحياتى وهذا شرح بسيط بالعامية المصرية والبلدى كدة بدون التطرق للشرح العملى 'للمتغيرات والمعادلات لان هذا يطول شرحة وستجد ما طلبت اذا بحثت بالمنتدى الرائع اوفيسنا '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ' السطر القادم لتفادى اى خطأ فى الكود ومنع اظهار رسالة ال debug للمستخدم On Error Resume Next ' بقوله افرغ محتويات الليست بوكس علشان لما تفتح الليست المرة القادمة متلاقيش البيانات المبحوث عنها المرة اللى فاتت موجودة ListBox1.Clear ' متغيرات لاسم الصفحة والصفوف Dim ws As Worksheet Set ws = Sheets("data") Dim i As Long Dim v As Integer 'بقوله هنا لو التكست بوكس اللى ببحث فيه مش فاضى نفذ اللى جاى If Me.TextBox1.Text <> "" Then '================================================ 'هنا بقوله لو اتكتب فى التكست بوكس من غير ما تعلم على نوع البحث من التلات خيارات يطلعلك رسالة تنبيه انك لابد ان تختار اولا 'ويوقف تنفيذ باقى الكود If Me.esm.Value = False And Me.ra2eesy.Value = False And far3y.Value = False Then MsgBox "رجاء اختر نوع البحث اولا" Me.TextBox1 = "" Exit Sub End If '============================================== 'هنا بقى متغير اسمه lr وده بيحددلى اخر صف فيه بيانات فى العمود lr = ws.Range("b" & Rows.Count).End(xlUp).Row ' بقوله من الصف الخامس لغاية اخر صف فيه بيانات نفذ اللى جاى ' وديه اسمها حلقة تكرارية For i = 5 To lr ' هنا متغيرات لتحديد الصفوف المبحوث بها سواء بالاسم او الفرعى او الرئيسي comp = ws.Cells(i, "b") 'اسم comp2 = ws.Cells(i, "c") 'فرعى comp3 = ws.Cells(i, "d") 'رئيسي If ws.Cells(i, 1) <> "" Then '============================================================ 'لو البحث بالاسم هو اللى متحدد كومب هتبقي زى ماهى وهيبقى عمود البحث هو b If Me.esm.Value = True Then comp = comp End If 'هنا لو الفرعى هو المتحدد كومب هتساوى كومب 2 اللى هو عمود البحث بالفرعى If Me.far3y.Value = True Then comp = comp2 End If 'كذلك الامر هنا If Me.ra2eesy.Value = True Then comp = comp3 End If '============================================================ ' اللى فات هنستخدمه هنا فى داله البحث باى حرف فى الكلمة من غير شرح كتير علشان يطول الشرح ' اللى يشغلك فيها كومب اللى احنا معرفينه فوق وهو نطاق البحث 'واللى انت هتبحث فيه وهو التكست بوكس 'وهيقارن اللى كتبته فى التكست بوكس بالبيانات اللى فى نطاق البحث If InStr(1, comp, Me.TextBox1.Text, vbTextCompare) Then ' هنا بقوله لما تلاقى بيانات البحث ضيفها فى الليست بوكس ListBox1.AddItem 'v ده متغير زى i وده للصفوف 'الليست بتبتدى من الشمال لليمين وهما اربع صفوف (v,0) معناها الصف v اللى هيتكرر لو فى اكتر من نتيجة للبحث 'و zero معناها العمود الاول فى الليست من الشمال وهكذا ' وهنا بقوله ضيف نتائج البحث فى العمود 1 والصف i فى العمود التالت والصف v فى الليست بزكس وهكذا Me.ListBox1.List(v, 3) = ws.Cells(i, 1).Value 'مسلسل Me.ListBox1.List(v, 2) = ws.Cells(i, 2).Value 'اسم Me.ListBox1.List(v, 1) = ws.Cells(i, 3).Value 'حساب فرعى Me.ListBox1.List(v, 0) = ws.Cells(i, 4).Value 'رئيسي 'وديه علشان لو اكتر من نتيجة للبحث تتكرر ولو مكتبتهاش هيجيبلك نتيجة واحدة فقط v = v + 1 ' اقفل معادلات if End If End If ' اقفل الحلقة التكرارية for i = 5 to lr Next i 'ولو الليست بوس فاضية مفيهاش صفوف او عدد صفوفها 0 امسحها علشان نتايج البحث السابقة متفضلش موجودة If Me.ListBox1.ListCount = 0 Then Me.ListBox1.Clear End If 'كل اللى فات هيحصل لو التكست بوكش مش فاضى طيب لو فاضي امسح الليست بوكس Else Me.ListBox1.Clear 'اقفل قاعدة if End If End Sub و لا تنسونا من صالح الدعاء

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة البحث فى لست بوكس وترحيله لورقة معينة تم ارفاق المشاركه من الفاضل _ أ / أبو حنــــين و لا تنسونا من صالح الدعاء 5555 (111).rar 4444(11).rar 3333(1).rar 2222 (1).rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة بحث متقدم - سرعة عالية ومرونة باستخدام المصفوفات تم ارفاق المشاركه من الفاضل _ أ / ياسر العربى اولا _ البحث بالاسم الاول و بشروط SERCH_ARRY_YASSER_ELARABY1 (2).rar ثانيا _ البحث بالاسم الشامل و بشروط SERCH_ARRY_YASSER_ELARABY1_بحث شامل بالاسم و بشروط.rar ثالثا_ البحث بالاسم الاول و بشروط بالفورم و الليست listbox.rar و لا تنسونا من صالح الدعاء

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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تشفير وفك تشفير البيانات Encrypt And Decrypt Function تم ارفاق ملف جديد لنفس الموضوع من الفاضل _ أ / ياسر العربى تفضلو تشفير كل انواع الملفات ولا يستطيع احد فتحها من الخارج http://yasserelaraby86.blogspot.com.eg/2016/04/blog-post_24.html و لا تنسونا من صالح الدعاء تحياتى الاحتمالات.rar

هديه على السريع مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_ مكتبة و محفظة منتدى اوفيسنا_ تعلم الكود ( VBA ) و الدوال حتى الاحتراف