خالدو

جزاك الله خيراً أخي واستاذي طارق

مش ممكن يتم النقل والنسخ بنفس التنسيق اللي موجود بالصفحة الاصلية؟

بارك الله فيك

جزاكم الله خيراً اخواني على إثراءنا بالمعلومات القيمة .... أكواد متقدمة جداً

ملحوظة بسيطة واظن ممكن أخذها في الحسبان:

في الخلية A12 مكتوب التالي

درجة الحرارة -12.5 مئوية

العلامة السالبة لا يتم أخذها في الحسبان كلازمة للرقم.

وأشكركم

أخي المعتصم

جزاك الله خيراً

السلام عليكم ورحمة الله وبركاته

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

أرجو التكرم ومراجعة الشرح في الملف المرفق

وجزاكم الله خيراً

CopyMove.rar

جزاك الله خيراً أخي الفاضل

جزاك الله خيراً

جزاكم الله خيراً

السلام عليكم ورحمة الله وبركاته

عمل راااائع فعلاً

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

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

جزاك الله خيراً أخي أبو عبد الله

مبروك علينا ترقية الأخ معتصم ودائماً منتدانا الغالي إلى الأمام باذن الله.

بارك الله فيك أخي وأستاذي العزيز طارق

هل من الممكن إضافة حجم الملف بالاضافة إلى ذلك أم أنه غير ممكن

جزاك الله خيراً على مساعدتك

جزاكم الله خيراً أخواني الكرام على مجهودكم الرائع.

هذه المشاركة فعلاً مرجع مهم جداً لنا جميعاً يجب الاستفادة منها.

أسأل الله أن يجعلها في ميزان حسناتكم وينفع بها.

آسف على الخطأ الغير مقصود

xlmsacom

السلام عليكم ورحمة الله وبركاته

الملف المرفق يظهر المجلدات والمجلدات الفرعية

أرجو منكم التكرم وادخال التعديلات اللازمة ليقوم بعمل قائمة بجميع الملفات داخل المجلد.

وشكراً

ListFoldersSubFolders.rar

أخي طارق

الكود سيكون موجوداً في ملف آخر وليس نفس الملف المطلوب نسخه

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

ActiveWorkbook.SaveAs Filename:="D:\Bacup\" & txtNM, FileFormat:=xlTextWindow

وأكرر شكري لك أستاذي العزيز طارق

السلام عليكم ورحمة الله وبركاته

حسبما شرحت في العنوان:

لدي ملف cust.xls اريد من خلال ملف آخر نسخ هذا الملف نفسه من C:\Customers إلى D:\Bacup

باسم Cust(date).txt

هل هذا ممكن من خلال الماكرو؟

وجزاكم الله خيراً

جزاك الله خيراً أخي طارق ... جربته وشغال ولله الحمد.

أشكرك كتيراً

السلام عليكم ورحمة الله وبركاته

ممكن كود يصنع لي ملف عن طريق Notepad ويحفظه بامتداد vbs كالتالي:

افتح تطبيق Notepad واكتب فيه التالي:

on error resume next

dim ExcelApp, ExcelWB

set ExcelApp = createobject("Excel.Application")

ExcelApp.visible = true

set ExcelWB = ExcelApp.Workbooks.Open("d:\fleet\monthlySalesReport.xls")

ExcelApp.AutoRecover.Enabled = False

wscript.quit

يحفظه باسم

SalesReportReminder.vbs

Location

C:\Sales

أرجو منكم التكرم والمساعدة... وجزاكم الله خيراً

ربما أكون فشلت في توصيل المطلوب و عجزت عن الشرح.سأحاول تنفيذ الأمر بشكل يدوي.

جزاك الله خيراً على مجهودك ...

مرفق الملف

نقل سجل معينن- kemas.rar

جزاك الله خيراً أخي كيماس ولكن ليس بالضبط أنا أريد التالي:

هل من الممكن كود لنقل الجزء من (B2:M2) إذا كانت قيمة الخلية فيL2=OK

إلى الصفحة التالية في أول سطر فارغ

وبعد ذلك يتم حذف الصف من هذه الصفحة

وشكراَ

بمعنى آخر

أي سطر في المدى من :

B:M

إذا كانت الخلية في العمود L = OK

يتم نقله إلى صفحة 2 مع مسح الاصل

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

بحيث يتم نقل الصفوف اللي تحنوي على كلمة OK إلى أول سطر فارغ في الصفحة التالية

فإن لم يكن هناك كلمة ok وضغطت الزر فلا يحدث شيء

في الماكرو الخاص بك تم مسح السطور في صفحة 2

السلام عليكم ورحمة الله وبركاته

أخواني الكرام أرجو المعذرة لاني أثقلت عليكم بطلباتي ولكن أطمع في كرمكم وسعة صوركم

في الملف المرفق أريد نقل المدى من :

B2:M2

من صفحة 1 إلى صفحة 2 في أول سطر فارغ مع مسحه من صفحة 1 بشـــــــــــــــــــرط

أن :

L="ok"

أي خلية في العمود L قيمتها ok يتم نقل السجل إلى صفحة 2 مع مسحه بالكامل من صفحة 1

وجزاكم الله خيراً

نقل سجل معين.rar

جزاك الله خيراً أخي الكريم ولكن هل من الممكن الوصول إلى النتيجة المرفقة في صفحة: "النتيجة المطلوبة" حسب الملف المرفق أدناه.

3055_2.rar