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

حد عنده حل

جزاك الله خير يا أ / محمد 

محتاج اعمل تكرار للجدول ده تلقائي كل 26 صف
او نفس التنسيق للمربع يتكرر كل 26 صف

 تجريبي3.xlsx

جزاك الله خير اتحلت عندي المشكلة والمعادلة تمام اشتغلت

بشكر حضرتك وبشكر الاستاذ lionheart والاستاذ مصطفي محمود

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

محتاج اعمل معادلة تنسيق شرطي بلون معين لكل 5 خلايا مثلا

لملف تجريبي في المرفقات وجزاكم الله خير

تجريبي.xlsx