محمد الورفلي1

السلام عليكم اريد كود وليس معادلة لانه في فورم

السلام عليكم اريد ان اجمع رقم مع تاريخ في تكست بوكس مثال : بداية الاقساط : 1/1/2017 عدد الاقساط : 10 نهاية الاقساط : 31/10/2017 وهذا الناتج المطلوب جمع تاريخ.rar

السلام عليكم انظر الي هذا الموضوع مفيد جدا https://www.officena.net/ib/topic/49169-شرح-تحويل-ملف-الاكسل-الى-exe-ثم-تغيير-الايقونة-ثم-setup-شوقي-ربيع/?page=1 https://www.officena.net/ib/topic/29463-%D8%AA%D8%AD%D9%88%D9%8A%D9%84-%D8%A7%D9%84%D8%A7%D9%83%D8%B3%D9%84-%D8%A7%D9%84%D9%89-%D9%85%D9%84%D9%81-%D8%AA%D9%86%D9%81%D9%8A%D8%B0%D9%8A-exe/

السلام عليكم ماذا تعني هذه الرسالة

تمام التمام شكراً بارك اله فيك

السلام عليكم اريد عدم الترحيل اذا كانت احدى خلايا العمود d فارغة Sub حفظ() Application.ScreenUpdating = False Dim Lr As Integer Lr = [A10000].End(xlUp).Row Range("A3:i" & Lr).Copy Sheets("مخزن").Range("A" & Sheets("مخزن").[A10000].End(xlUp).Row + 1).PasteSpecial xlPasteValues Application.CutCopyMode = False MsgBox "تم الحفظ بنجاح", vbOKOnly, "تنبية" Range("A3:e10000").ClearContents End Sub ترحيل بشرط.rar

بارك الله فيك

السلام عليكم هل ممكن تلوين ازرار الفورم بمجرد مرور الماوس عليها

السلام عليكم هذا المصحف الكريم قراءة فقط بدون صوت الحجم 60 م تقريباً https://www.gulf-up.com/do.php?id=328578

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

السلام عليكم كيف يمكن انشاء مجلد على سطح المكتب عن طريق الاكسيل انشاء مجلد على سطح المكتب.rar

شكراً استاذ محمد تم إضافة Range("A1:E16").Select لتحديد المكان والكود يعمل بشكل رائع شكراً لك اتعبتك معاي نسأل الله ان يجعلة في ميزان حسناتك وهذا الملف جاهز للاستخدام حتى يتم الاستفاد ملاحظة ستجد ملف بإسم " ملفي " انقله الي سطح المكتب حتي يتم وضع الصور به التقاط صورة.rar

السلام عليكم استاذ محمد حلت المشكلة مع الكود الجديد ولكن لم يصور النطاق بل يصور الخلية النشظة فقط Range("a1:e12")

استاذ محمد اعطاني هذا الخطاء

السلام عليكم استاذ محمد شكراً لسعت صدرك هذه صورة الخطاء

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

هل عمل معك الملف الذي انزلته 2003 في المشاركة قبل السابقة بشكل جيد ام اعطى نفس الخطاء

للرفع

استاذ محمد عند تحويل الملف الي اكسيل 2003 اعطاني هذا الخطاء التقاط صورة2.rar

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

السلام عليكم اصبحت الان عملية النسخ ممتازة ولكن لم يتم فتح الملف المسمي "saes" ولكن يضع الصورة علي سطح المكتب وانا اريدها داخل الملف Set rng = Range("a1:e12") saes = "mas" Application.DisplayAlerts = 0 rng.CopyPicture xlScreen, xlPicture Sheets.Add , Sheets(Sheets.Count) With Sheets(Sheets.Count) .Shapes.AddChart .Activate .Shapes.Item(1).Select Set objChart = ActiveChart .Shapes.Item(1).Width = rng.Width .Shapes.Item(1).Height = rng.Height objChart.Paste objChart.Export ("C:\Users\4\Desktop\saes" & saes & ".jpg") .Delete End With Application.DisplayAlerts = 1 MsgBox "ok" End Sub

نقس المشكلة استاذ خليل حتى بدون مسافة

للرفع

جاري التجربة تم تغيير المسار ولكن لم افلح

السلام عليكم نفس المشكلة