AliBadawy

جزاك الله خيرا يا استاذي ..كود ممتاز ادي الغرض

السلام عليكم اولا محتاج اجيب اكبر قيمة بين ال 1000 و 3000 مثلا في مربع النصوص الأقل قيمة مع العلم ان دوال minif و maxif مش موجودين عندي في اوفيس 16 برو بلاص والمثال في المرفقات وشكرا جزيلاً مقدماً test.xlsm

'غير xlPasteValuesAndNumberFormats 'مكان xlPasteValues 'وضيف الكود ده لو حابب تاخد الوان الخلايا والحدود Sheets("sheet1").Range("a9").PasteSpecial xlPasteFormats كدا هينسخ القيم والتنسيق مع بعض

Dim ss As Long Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "Capture2.jpg" 'لو عايز تغيير مكان الحفظ تقدر تغييره مكان كلمة desktop ولو عايز تغيير الاسم تقدر تغيير capture2 ss = Cells(235, 7).End(xlUp).Row ' ss دي عملتها عشان اخر سطر فيه بيانات 'celles(235,7) انا هنا حددت اخر سطر هيبحث من عنده لفوق و اخترت 7 عشان ياخد من اخر سطر في بينات العموم رقم 7 Set Rng = Sheets("اسم صفحة العمل").Range("e171:g" & ss) 'e171:g ده النطاق اللي عايز يتاخد ليه سكرين شوت ' اما باقي الكود مش فاكر والله كنت جايبه منين تقريبا من موقع اجنبي Call Rng.CopyPicture(xlScreen, xlPicture) With Sheets.Add .Shapes.AddChart .Activate .Shapes.Item(1).Select Set aChart = ActiveChart .Shapes.Item(1).Line.Visible = msoFalse .Shapes.Item(1).Width = Rng.Width .Shapes.Item(1).Height = Rng.Height aChart.Paste aChart.Export (Path) Application.DisplayAlerts = False .Delete Application.DisplayAlerts = True End With MsgBox "Saved to " & vbCr & Path, vbInformation, ""

اتمني يكون الكود ده ساعد حضرتك Dim LR As Integer LR = Sheets("اليومية الامريكية").[m1000].End(xlUp).Row Sheets("اليومية الامريكية").Range("a9:w" & LR).Copy Sheets("sheet1").Range("a9").PasteSpecial xlPasteValues MsgBox "تمت الاضافة بنجاح", vbInformation, "تم" ترحيل.xlsm

السلام عليكم لو حد عنده علم بالكود الموجود في الماكرو اللي في المرفقات لاني حاولت افهمه واعدل عليه ما فهمتهوش المطلوب اني انا عايز كل الخلايا تظهر في الليست بوكس حتي المكرر لان الكود بيظهر القيم بدون تكرار ولو ينفع القيم تظهر في الليست بوكس علي هيئمة اعمدة ومش خلايا ورا بعضها يبقي جزاكم الله خيرا test.xlsm

ألف ألف مبروك يا استاذ اسأل الله ان يبارك فيك

محتاج المساعدة في الاتي لمن يستطيع المساعدة وجزاكم الله خيرا مقدماً : 1- حل مشكلة التعديل علي بيانات البحث حيث انه عند التعديل يقوم الفورم بالتعديل في مكان تاني غير المطلوب 2- عايز اخلي زر الحذف يحذف محتويات الخلايا بس ما يمسحش الصف كله 3-عايز لو اخترت optionbutton1 يبحث في نطاق العهد من c2 الي m ولو اخترت optionbutton2 يبحث في نطاق السلف من p2 الي s ورؤس الاعمدة تتظبط علي اساس البحث لان موضوع رؤس الاعمدة ده جنني بصراحة 4-لو في اي تعديل او تظبيط في الفورم يبقي كتر خيركم وجزاكم الله خير بحث وتعديل واضافة.xlsm

الحمد لله بعد ان بحثت في الدروس الموجودة علي المنتدي توصلت الي ضالتي واتممت ما كنت اريد عباره عن form به عدة textbox و lable و scrollbar و button باوامر بسيطة اعتقد في احسن من كدا بكتير بس علي قدر استطاعتي وفهمي من بعض الدروس الموجودة وها هو الان في المرفقات لمن يريد ان يستفيد به تــــم تعديل رفع الملف بدون ضغط ... فممنوع رفع الملف مضغوط طالما حجمه صغير الفئات.xlsm

مطلوب عمل فورم ادخال في خانة العدد من c6 الي c12 لزيادة او طرح اعداد معينة بحيث اني اطرح او ازود بدون ما اكتب + او - المثال في المرفقات الفئات.xlsm

الحمد لله حليت المشكلة ؟ الحل اني دخلت اعدادت الاكسيل ودخلت علي trust center وبعد كدا macros setting وعدلت الخيارات الي disable all macros with notifications

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

المشكلة عندي في جميع الاعمدة والصفوف وليكن مثلا من h187 الي h209 وان كان شغال مع حضرتك ومفيهوش مشاكل اعتقد انها مشكلة من اعدادات الاوفيس نفسه عندي لا اعلم هي ايه انا عندي اوفيس 2016 وجزاك الله خيرا علي تعبك معايا

عذرا ظننت انني ارفقت الملف Book122.xlsm

امر undo و امر redo لا يتشغل الا اثناء الوقوف علي الخلية اللي بدخل فيها البيانات وان ضغط بعيد عنها يختفي الامرين ولا يشتغل ايضا الا عند تفعيل وضع Design Mode حد عنده حل