ابا اسماعيل

السلام عليكم ورحمة الله وبركاته اخواني في الله هذا كود الى الاخ الكبير salim كود بحت رئع جدا لقد قمت بعدت محوالات لضبط الكود في الملف ولم استطيع اخواني المرجو ضبط الكود ليتوفق مع كود الليست بوكس في ملف العمال وجزاكم الله خيرا Private Sub TextBox1_Change() ListBox1.Clear ListBox1.RowSource = "" Dim k#: k = 0 Dim laste_row# Dim All_Rg As Range 'Range when we saecrh Dim Fd_Rg As Range 'Range to find Dim F_row#, A_row# 'First row by saerch,Actual row by saerch With Sheets("data") laste_row = .Cells(Rows.Count, 1).End(3).Row Set All_Rg = .Range("a5:B" & laste_row) Set Fd_Rg = All_Rg.Find(Left(TextBox1.Value, Len(TextBox1.Value)), lookat:=2) If Not Fd_Rg Is Nothing Then F_row = Fd_Rg.Row: A_row = F_row Do If Left(Fd_Rg, Len(TextBox1.Value)) = _ TextBox1.Value Then ListBox1.AddItem .Cells(F_row, 1) ListBox1.List(k, 1) = .Cells(F_row, 2) k = k + 1 End If Set Fd_Rg = All_Rg.FindNext(Fd_Rg) F_row = Fd_Rg.Row If F_row = A_row Then Exit Do Loop End If End With Me.TextBox_num = k End Sub فاتورة.xlsm

السلام عليكم ورحمة الله وبركاته... إخواني الأعزاء، عندي طلب هل من طريقة لحذف ملف اكسيل تلقائيًا اذ لم يفتح بعد تاريخ معين في الحاسوب يعنى الملف يحذف نفسه تلقائيا ما لم اقوم يفتح الملف على الحاسوب الملف يحذف نفسه تلقائيا بعد انتهاء المدة.xls

السلام عليكم ورحمة الله وبركاته اخوانى الكرام اتمنى من الله ان تكونو جميعكم بخير ان شاء الله اريدعندما افتح ملف إكسل معين يتم إغلاق أي ملف إكسل آخر تلقائياً ولا يفتح اى ملف اكسل اخر وهذا يسبب لي المشاكل اغلاق.xls

المرجو تعديل الكود لي ادراج 20 اسطر من كل نطاق معين من الخلايا .D40. يتم ادراج 20 اسطر ومن الخلايا .D80. يتم ادراج 20 اسطر اخر ومن الخلايا .D120

أخي الكريم أود أن أشكرك على جهودك الكبير جزاك الله خيرا لطلب اريد اضافة تعديل في الكود اذا كان باستطاعتك اتك اريد اضافه في الكود لي ادراج 20 اسطر من كل خانة محددة لما تساوي الخانة .D40. يتم ادراج 20 اسطر و عندما تساوي صفر يتم اخفاء صفوف وعندالخانة .D80. تساوي يتم ادراج 20 اسطر اخر وفي الخانة .D120. تساوي ادراج 20 اسطر حتى نطاق 158 Hidden_rows .xlsm

أخي الكريم أود أن أشكرك على جهودك الكبير جزاك الله خيرا لطلب اريد اضافة تعديل في الكود اذا كان باستطاعتك اتك اريد اضافه في الكود لي ادراج 20 اسطر من كل خانة محددة لما تساوي الخانة .D40. يتم ادراج 20 اسطر و عندما تساوي صفر يتم اخفاء صفوف وعندالخانة .D80. تساوي يتم ادراج 20 اسطر اخر وفي الخانة .D120. تساوي ادراج 20 اسطر حتى نطاق 158 Hidden_rows .xlsm

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

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

اخي سليم ارجو المعذرة لو سمحت اريدلما اكتب اي شئ في عمود d يتم إدراج سطر بدلا من عمود a

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

ياريت يتم إدراج حدود الطباعة مع سطرفارغ في أخر صفحة في آخر سطر فيه بيانات

ممتاز جزاك الله حيرا اخي سليم حاصبيا هل يمكن ادراج حدود الطباعة مع سطر

ياريت كود يقوم بخفاء واظهار صفوف الفارغة تلقائيا ولما يتم اضافه بيانات جديدة يتم ااظهار وادراج سطرتلقائيا من نطاق 35 الى 100 اخفاء واظهار.zip

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

السلام عليكم ورحمة الله وبركاته المرجو المساعدة في تعديل واسألوا الله لكم الصحة والعافية

كود رائع الستاذ عبد الله باقشير

السلام عليكم ورحمة الله وبركاته طلب تعديل كود المشكلة في لكود هي عندما اقوم بمسح البيانات من ورقة nvoice يتم الحدف حتى من ورقة Codes اريدلما يتم حدف ورقة nvoice لايتم حدف البيانات من ورقة Codes اتمنا من احد للأساتذة والخبراء المحترمين المساعدة واسألوا الله لكم الصحة والعافية طلب تعديل كود يقوم بعديل البيانان من صفحة الى صفحة اخر.rar

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

هل طلبي غير توضح ام مستحيل هدا طلب جزاكم الله خيرا

المرجو المعذرة في هذه تعبير لم أنتبه لذلك عند الكتابة

لســلامَ عليكـــم ورَحِمَـــة الله وَبَركــآتــه لاخوة الافاضل محتاج مساعدة من حضراتكم في الكود يقوم بتعديل البيانات من ورقة invoice من عمود e او عمود h يقوم تلقائيا بتعديل في ورقة codes في عمود h.e المشكلة في لكود هي عند المسح البيانات من ورقة nvoice يتم المسح من ورقة codes  هدالكود الأخ الكريم أبو عبد النور Private Sub Worksheet_Activate() Dim Rg As Range Application.Visible = True With Sheet1 LtRow = .[D10000].End(xlUp).Row Set Rg = Union(.Range("D10:E" & LtRow), .Range("G10:H" & LtRow)) End With Rg.Copy Sheet2.[A2] Application.CutCopyMode = False End Sub طلب تعديل كود يقوم بعديل البيانان من صفحة الى صفحة اخر.rar

السلام عليكم ورحمة الله المرجو المساعدة في اجاد طريقة اوعمل زر ايقاف الكود عندما اريد مسح الفاتورة او اي طريقة اخرا كلايتم مسح البيانات من صفحة الأخرا جزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته عند البحث في المنتدى واجت هد الملف يوجد فيه كود رئع الأخ الكريم أبو عبد النور وهو يلائم طلبي وعندا تعديل سعر اوصنف في صفحة invoice يتم تعديل تلقائيا في صفحة codes وهذا رائع المشكلة في لكود هو عند حدف البيانات من ورقة nvoice يتم الحدف حتى من ورقة codes وهده مشكلة في الكود المرجو المساعدة في ضبط اهد الكود جزاكم الله خيرا عند تعديل على اسم في الصفحة يتم تعديل في صفحة الأخرى_v003.1.rar

السلام عليكم ورحمة الله وبركاته اخي احمد يوسف جزاك الله خيرا اريد ان يكون تعديل من صفحة Invoice عند مراجعاة الفاتورة وتعديل علي سعر اوصنف يتم تعديل صفحة Codes تلقائياً لتوفير البحت في قائمة اليانات

السلام عليكم ورحمة الله وبركاته اخوانى واحبابى اعضاء المنتدى الرائع اوفيسنا حفظكم الله واعزكم هدا الملف عبارة عن فاتورة المطلوب عندا تعديل على اسم صنف اوسعر في ورقة invoice حتى في ورقة codes كمتال في الأكسيس لما يتم تعديل في الفاتورة يتم تعديل تلقائي في ورقة البيانات invoice3.xlsm