ياسر العربى

تقديري واحترامي لمرورك الكريم اخي الكريم ابو البراء لن يكون اروع منك ومن مشاركاتك تقبل تحياتي

تفضل اخي الكريم لعله المطلوب زر اخفاء واظهار السعر اشراء.rar

بسم الله الرحمن الرحيم بعض الاحيان اثناء تعاملنا مع الفواتير واكواد الاصناف نحتاج الى حفظ الاكواد او معرفة ما اسم الكود المكتوب اذا لم يكن اسم الصنف مدرج ضمن الفاتورة اوالبيان فهذه طريقة لوضع اسم الصنف على نفس خلية الكود في كومنت لسهولة معرفة الصنف وتصلح لاشياء اخرى كثيرة كمعرفة اسم الشخص من رقمه القومي مثلا وغيرها صورة توضيحية الكود المستخدم داخل الملف Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 13 Then If Target.Value = "" Then Target.Comment.Delete Else On Error Resume Next Target.Comment.Delete Target.AddComment Target.Comment.Text Text:="Yasser:" & Chr(10) & Application.WorksheetFunction.VLookup(Target.Value, Sheet1.Range("a5:c29"), 2, 0) End If End If End Sub لتحميل الملف اضغط هنا تحياتي ياسر العربي comment.rar comment.rar

اضافة التنسيق الشرطي لحل الاخ الكريم سيبدأ تغيير لون الصف عند وصول التاريخ قبل الانتهاء بثلاث ايام New Microsoft Office Excel Worksheet.rar

تفضل Book1.rar

كل الشكر والتقدير لشخصكم الكريم اخي الغالي محي الدين تقبل فائق احترامي

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

اخي الكريم سعد تقبل فائق احترامي لمروركم الكريم

لكم نفتقد ايامنا المتميزة التي جمعتنا بكم بالمنتدى جزيت خيرا اخي الكريم ابو البراء تقبل فائق احترامي

طيب الحمد لله اخي الكريم واعذر الجميع فالكل يشارك بقدر تفرغه واستطاعته تقبل فائق احترامي

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

اخي الكريم هذا ليس رابط الملف دا رابط رسالة عندك ضع الرابط الصحيح

تفضل اخي الكريم Book1.rar

يرجى عمل موضوع جديد بالمطلوب في الملف الجديد تقبل تحياتي

اخي الكريم تفضل دا مثال لترحيل البيانات اما موضوع البحث ياريت توضح محتاج تبحث ازاي والبحث يبقي في شيت مستقل ولا ازاي التفاصيل تساعد الاخوة الكرام في مساعدتك اما طلبك 1) شاشة ادخال 2) شاشة بحث مبهم قليلا ياريت تفاصيل تقبل تحياتي نموذج.rar

تفضل الملطوب Book1.rar

كل الشكر وا لتقدير لكم احبائي ابو يوسف عبدالعزيز البسكري تقبلوا فائق احترامي وتقديري

اخي الكريم عليك بقسم الاكسيس وليس الاكسيل نقل الى قسم الاكسيس

تفضل جرب المرفق Book1.rar

تفضل اخي الكريم المشكلة تكمن في الحدث للتكست بوكس حيث انه عند كتابة اي شي يتم تنفيذه وتم تغيير الحدث من Private Sub A4_Change() End Sub الى Private Sub A4_AfterUpdate() End Sub اي بعد ملئ التكست بوكس يتم تنفيذ الكود Book1.rar

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

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

بسم الله الرحمن الرحيم اليوم اقدم لكم بحث متقدم للبحث عن الاسم بالحرف او الكلمة او الجملة وعرض النتائج في كمبوبوكس والليست بوكس وايضا تم اضافة امكانية تحديد الاسم من الليست بوكس وعمل شيت بنفس الاسم المحدد داخل اللسيت كما يمكنك ايضا من الذهاب الى شيت الاسم المحدد داخل الليست بوكس الكود المستخدم داخل الملف كود البحث Private Sub ComboBox1_Change() Dim a() Dim b, c, d, e Dim Ws As Worksheet: Set Ws = Sheets("Sheet1") Dim l As MSForms.ComboBox: Set l = Me.ComboBox1 Dim i As Long: i = 0 e = Ws.Range("a40000").End(xlUp).Row a = Ws.Range("A2:a" & e).Value With Me.ComboBox1 .List = a .ListRows = 20 .MatchEntry = fmMatchEntryNone .TextAlign = fmTextAlignCenter End With Set b = CreateObject("Scripting.Dictionary") d = "*" & UCase(Me.ComboBox1) & "*" For Each c In a If UCase(c) Like d Then b(c) = "" Next c Me.ComboBox1.List = b.keys While i < l.ListCount If "" = Trim$(l.List(i, 0)) Then: l.RemoveItem (i): Else i = 1 + i Wend ListBox1.AddItem ListBox1.List = ComboBox1.List End Sub كود اضافة شيت بالاسم المختار من الليست بوكس Private Sub CommandButton1_Click() Dim Ws As Worksheet Application.ScreenUpdating = False Application.EnableEvents = False On Error Resume Next Set Ws = Worksheets(CStr(ListBox1.Text)) On Error GoTo 0 If Ws Is Nothing Then Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = CStr(ListBox1.Text) Sheet1.Activate Set Ws = Nothing End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub كود الذهاب الى شيت الاسم المختار Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim Ws As Worksheet On Error Resume Next Set Ws = Worksheets(CStr(ListBox1.Value)) Ws.Activate Set Ws = Nothing End Sub لتحمل البرنامج اضغط هنا تقبلو تحياتي ياسر العربي

بصراحة لو في اجمل من كلامك كنت قلته لك اخي الكريم محي الدين تقبل فائق احترامى

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