لزهر مدلل

السلام عليكم لدي كود vb موجود في كل ورقة عمل و اريد ان اكتبه مرة واحدة في workbook و يعمل مع كل ورقات العمل حتى في حال اضافة ورقة عمل جديدة الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$1" Then Range("C6").Select ActiveCell.FormulaR1C1 = "NAFTAL EL OUED" Range("E7").Select ActiveCell.FormulaR1C1 = "EL-OUED " Range("F7:G7").Select ActiveCell.FormulaR1C1 = "=TODAY()" Range("F2").Select End If End Sub

مشكور أخي الكريم أرجو الا اكون قد اثقلت عليك مازال شيئ واحد عندي كود vb معاد في كل ورقة عمل هل استطيع أن اكتبه مرة واحدة و يعمل مع كل ورقات العمل الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$1" Then Range("C6").Select ActiveCell.FormulaR1C1 = "NAFTAL EL OUED" Range("E7").Select ActiveCell.FormulaR1C1 = "EL-OUED " Range("F7:G7").Select ActiveCell.FormulaR1C1 = "=TODAY()" Range("F2").Select End If End Sub

مشكور اخي الكريم أنا اقصد خلية عادية ليست مرتبطة بدالة

لو سمحت أيضا أريد تنسيق في خلية بحيث أكتب مثلا 398 تكون على النحو التالي 8 9 3 أي تجعل مسافة بين الارقام على حسب عرض العمود أي عند زيادة في عرض العمود تزيد المسافة آليا و شكرا

مشكور أخي الكريم سمير نجار هو ذاك

السلام عليكم أريد تنسيق معين في خلية بها ماكرو الملف في المرفقات CHEQUE1.rar

نعم هو ذاك بارك الله فيك أخي الكريم

مشكور مرة أخرى أخي سليم مازال الجمع في الخلية E بشرط الكلمة في الخلية C

مشكور أخي سليم ممكن إرجاع اللون الأبيض عند جذف الخلية c أيضا أقوم بجمع على حسب اللون

السلام عليكم أريد تلوين السطور بشرط قيمة في خلية معينة و التلوين ليس للسطر بأكمله. الملف في المرفقات بارك الله فيكمClasseur.rar

مشكور أخي الكريم

السلام عليكم أريد تعديل في كود الترحيل بحيث يقوم بلصق البيانات إبتداءا من السطر الثامن بدل من السطر الثاني مشكورون gestion conversion GPLC.rar

مشكور أخي الكريم و بارك الله فيك

السلام عليكم لدي برنامج visual basic يعمل في ملف إكسل 2003 لكن عند تحويل الملف إلى إكسل 2010 ظهر به مشكل و لم يعد يعمل في المرفقات ملفين الأول 2003 الذي يعمل به و الثاني 2010 الذي به المشكل وفقكم الله Fiche de paie.rar

للرفع

مشكور أخي الكريم جمال عبد السميع هل يمكن تحويلها إلى أكواد

السلام عليكم أريد مقارنة بين جدولين كل واحد في ورقة على حسب العمود الأول بحيث تكون في الورقة 3 الموجود في ورقة 1 و غير موجود في ورقة 2 و في الورقة 4 الموجود في ورقة 2 و غي موجود في ورقة 1 و إن أمكن تكون المقارنة بالمعادلات و الأكواد مشكورين أنظر المرفقات Book1.rar

للرفع أين أختنا الكريمة / أم عبد الله أرجو أن يكون الغياب خيرا

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

أخي أبو عيد السلام عليكم عند الذهاب إلى الورقة 2 تخرج رسالة خطأ و يقوم بتحديد هذا السطر Sheets(i).Range("A1:F3") = Sheets(1).Range("A1:F3").Value

أخي الكريم حمادة عمر نعم يقوم بنسخ مثلا A1:F50 و لصقها في جميع الورقات و في نفس النطاق وأيضا سيتم اللصق في باقي اوراق العمل جميعها ماعدا ورقة 1 طبعا أما الإستفسار الأخير فمعذرة فقط أخطأت في التعبير مثلا بعد التعديل في الورقة 1 و عند الدخول إلى ورقة 2 يقوم الماكرو تلقائيا بنسخ و لصق الخلايا في كل الأوراق و في نفس النطاق مرة واحدة فقط المرفق به بيانات من A1:F3 معذرة مرة أخرى أخي الكريم و بارك الله فيكم Book1.rar

السلام عليكم أريد تشغيل ماكرو تلقائيا عند التنقل إلى الورقة 2 الملف به عدة ورقات و الماكرو يقوم بنسخ خلايا محددة من ورقة 1 و لصقها في جميع الأوراق مثال يقوم بنسخ A1:F50 و لصقها في جميع الأوراق أي عند فتح الملف أذهب إلى الورقة 1 و أقوم بالتغييرات في خلايا معينة ثم أنتقل إلى ورقة 2 يشتغل الماكرو و يقوم بنسخ و لصق البيانات الكود يجب أن يشتغل مرة واحدة كلما دخلت إلى الورقة 2 مشكورين

مشكورين إخوتي الكرام و بارك الله فيكم

السلام عليكم عند ملف و به عدة ورقات و أريد عند فتحه يذهب مباشرة إلى ورقة معينة مثلا رقم 1 دون تدخل مني مشكورين

الأخت الكريمة أم عبد الله مشكورة جدا على هذا العمل الجميل و لكن لو سمحتي أريد النتيجة في ورقة 3 للأرقام الموجودة في 1 و غير موجودة في 2 و الورقة 4 الأرقام الموجودة في 2 و غير موجودة في 1 بارك الله فيكم