toyota

شكرا اخي العزيز ياسر خليل لتجاوك معي وشكرا لجميع الاخوة الذين شاركو واعدك سوف سوف لتزم بالتعليمات

هذا هو ما اريد شرحه لي ولكم جزيل الشكر

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

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

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

ارجوا الرد علي تعديل الملف المرفق وسوف اعدك في المرة القادمه ان اطرح الموضوع في مشاركه جديده

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

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

رجاء عمل كود حذف للمثال المرفق

بارك الله فيك اخي YasserKhalil

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

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

استاذ ياسر هل من الممكن ان تساعدني في عمل قائمه منسدله مثل السابقه ولكن داخل فورم ولك جزيل الشكر

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

السادة الافاضل السلام عليكم ورحمه الله اثناء بحثي في هذاالمنتدي العظيم وجدت الملف المرفق ارجوا من العباقرة شرح طريقه عمل هذا الملف وتوضيح طريقه تطبيقه علي ملف اخر حيث انني حاولت مرارا وتكرارا ولكن دون جدوي ولكم جزيل الشكر وفي انتظار تفاعلكم Automatically Add to a Data Validation List.rar

الساده الافاضل هل يمكن عكس الموضوع بمعني انه اريد ترحيل قيمة خليه الي مربع نص لقد قمت بعمل الكود التالي ()Private Sub TextBox6_Change (TextBox6.Value = Sheet1.Cells(1, 11 End Sub

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

عزيزي الغالي ibn_egypt اقدر مجهودك واشكرك علي حل المشكله ولكن عمليه الترحيل لا تتم بالصورة المطلوبه حيث انه يقوم بترحيل اخرعمليه فقط دون الباقي اثقلت عليك بطلباتي ولكن منكم نستفيد لدي ملاحظة يمكن ان تفيد وهي اذا قمنا بإقاف السطر 'sh.Range("A1:G1000").ClearContents يتم الترحيل بصورة سليمه وايضا عمليه مسح البيانات من الشيتات المضافه انهت ولكن اذا قمت بعمل ترحيل مرة اخري فانه يقوم بتكرار البيانات جميعها ارجوا ان تكون ملحوظه مفيده ولك جزيل الشكر

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

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

برجاء المساعده في تعديل كود الترحيل التالي حيث انه يقوم بإنشاء صفحه فارغه بعد كل عمليه ترحيل ---------------------------------------------------------- Sub ragab() Dim cl As Range, sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If Not sh.Name = "Sheet1" Then sh.Range("A1:G1000").ClearContents End If Next LR = Cells(Rows.Count, 2).End(xlUp).Row For Each cl In Range("B2:B" & LR) x = Trim(cl.Value) On Error Resume Next If Worksheets(x) Is Nothing Then Sheets.Add.Name = x Sheets(x).Move After:=Sheets(Sheets.Count) End If Sheets("sheet1").Range("A1:f1").Copy Sheets(x).Range("A2").PasteSpecial xlPasteValues Sheets(x).Range("A2").PasteSpecial xlPasteFormats cl.Offset(0, -1).Resize(1, 6).Copy Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteFormats Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteColumnWidths Application.CutCopyMode = False Next MsgBox "تم الترحيل بنجاح" Sheets("sheet1").Select Application.ScreenUpdating = False End Sub --------------------------------------------------------------------------- ومرفق معه الملف المراد التعديل عليه office.zip

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

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

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

شكرا اخي ابو ردينه علي هذه الملاحظة واتمني لك التوفيق