طارق محمود

السلام عليكم تفضل أخي صفوف-اعمدة_TAREQ2.rar

عفوا Sub y() 'TAREQ Sheets("تحليل العملاء").Activate For Each ce In [AD9:AD58] If ce.Value = 0 Then ce.Offset(0, -1).ClearContents Next ce [AC8:AD58].Select Selection.Sort Key1:=[AC8] [AC8].Select Sheets("ترحيل").Activate End Sub

السلام عليكم معذرة أخي فالكود به جزئية لايتم التعرف عليها بالأكسيل 2003 استبدله بهذا الكود Sub y() 'TAREQ Sheets("تحليل العملاء").Activate [AC8:AD58].Select [AD8].Activate Selection.Sort Key1:=[AD8], Order1:=xlDescending For Each ce In [AD9:AD58] If ce.Value = 0 Then ce.Offset(0, -1).ClearContents Next ce Sheets("ترحيل").Activate End Sub

أحسنت أخي أحمد بارك الله فيك

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

السلام عليكم أخي العزيز قد تكون هذه الخاصية من برنامج قارئ الباركود وليست من الإكسل

السلام عليكم أختي الفاضلة لكتابة كود في ال userform ، إتبعي الخطوات التالية 1- من محرر الأكواد - أنقري علي ال userform 2- ثم دبل كليك علي ال button المراد تشغيل الكود منه فستفتح نافذة وبها كود من سطرين مثل هذا Private Sub CommandButton1_Click() End Sub 3- إنسخي الكود المراد وضعيه فيما بينهما

جزاك الله خيرا ورزقك مثل مادعوت وأكثر وجعلني عند حسن ظنكم

السلام عليكم أخي الحبيب / أبوأنس ، حفظك الله تفضل المرفق به المعادلات مُعدّلة project Tarq2.rar

عندك حق المرفق به التعديل المطلوب لاأدري أي عمل عملته حتي تظهر الرسالة ، وضح ماعملته بالضبط دليل المرتبات6.rar

السلام عليكم أخي الحبيب / أبوأنس ، حفظك الله نعم أخي الكريم أنا إعتمدت في المعادلة INDIRECT("Sheet"&K2&"!B5") علي أن إسم الورقة Sheet وبعدها رقم بمعني Sheet1 و Sheet2 وهكذا كما كان بمثال أخونا السائل ولكن ان كانت الشيتات ذات أسماء وليست Sheet1 و Sheet2 فلن ينفع هذا وليكون الموضوع عام اتبع الخطوات الخمسة التالية (1) اكتب الكود التالي في الملف لإيجاد كافة أسماء الشيتات Sub x() For i = 1 To Sheets.Count ActiveCell.Offset(i, 0) = i ActiveCell.Offset(i, 0) = Sheets(i).Name Next i End Sub (2) قف علي أي خلية في منطقة فارغة من الشييت ولتكن الخلية الصفراء في الملف المرفق ثم شغل الكود سينتج أسفلها أرقام وأسماء جميع شيتات الملف بالترتيب ممكن تعمل الخطوتين السابقتين يدوي لو لاتحب الأكواد (3) أضف معادلة Vlookup أعلي الجدول (الخلية الخضراء مثلا) لتجلب لنا أسماء الورقات (4) غير في المعادلة لتناسب تلك الإضافة (5) غير في مواصفات الزر ليناسب ذلك أيضا في المثال المرفق ، مثلا سأغير فقط الحد الأقصي للزر ليكون 6 بدلا من 3 سابقا لتغيير الحد الأقصي للزر : كليك بيمين الماوس عليه ، ثم Format Control ثم Control ثم Maximum Value تفضل المرفق وبه التعديلات وبه الكود الصغير أيضا Project_TAREQ.rar

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

السلام عليكم أضفت زر جديد (أخضر) لحذف البيانات المتكررة في ورقات الفروع تفضل المرفق دليل المرتبات5.rar

السلام عليكم اخي الكريم أنظر الفيديو المرفق ستجد الموضوع سهل جدا تفضل FORM_CONTROL.rar

السلام عليكم تفضل أخي الكريم هذا الكود Sub TRANS() LC = [IV1].End(xlToLeft).Column For c = 5 To LC Step 4 r = [A1].End(xlDown).Row + 1 Range(Cells(1, c), Cells(6, c + 3)).Cut (Cells(r, 1)) Next c End Sub وبالمرفق إضغط الزر الأحمر صفوف-اعمدة_TAREQ.rar

بسم الله ما شاء الله بارك الله فيك وزادك من فضله العظيم عمل ممتاز ورائع فعلا وللأسف لم أراه إلا الآن جزاك الله خيرا والى مزيد من الإبداع تقبل مروري

السلام عليكم أخي الكريم تفضل المرفق Project_TAREQ.rar

السلام عليكم بعد إذن اخي رجب ، للإثراء أخي الكريم تفضل المرفق Book1_TAREQ.rar

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

؟؟؟

السلام عليكم أخي العزيز طلبك غير واضح تماما ولكن تفضل المرفق عسي أن يكون هو ماتريد New ورقة عمل Microsoft Excel2.rar

السلام عليكم أخي العزيز عذرا للتأخير تفضل المرفق وبه يتم التحويل أوتوماتيكيا لجميع معادلات ورقة "Stor" إلي قيم فقط بعد كل ترحيل مع الإحتفاظ بالمعادلات بآخر صفين بالورقة فقط للنسخ منهما Store4.rar

السلام عليكم أخي العزيز لاأدري أين العيب يجوز بالملف عندك ، مرفق 400 سطر إضغط ز الترحيل ، ,,, >>>> سيتم ترحيلهم جميعا عدل كما تشاء ، بالفعل يتم التعرف علي آخر مجال بالورقة أوتوماتيكيا فقط بعد التعديل في أسماء الفروع أو البنوك أو زيادتها أو ... ، يفضل بعد الإنتهاء من التعديل ضغط الزر الأصفر "إعادة تسمية المجالات بعد حذف أو إضافة فروع للمصارف" تم وضع فورم لهذا الغرض يتم تشغيله بالزر الأحمر "إختيار الورقة" يمكنك من إختيار المصرف في عمود الفورم الأول ، فيتم تحديث العمود الثاني من الفورم أوتوماتيكيا بأسماء فروع المصرف الذي تم اختياره ثم باختيار الفرع يخبرك ان الورقة الخاصة بهذا الفرع غير موجودة أو ينتقل إليها إن كانت موجودة تفضل المرفق دليل المرتبات4.rar

رائعة أخي محمد بارك الله فيك

السلام عليكم اخي العزيز جرب الخطوات الموضحة بالصور بالمرفق تفضل Text to Column.rar