Yousefessam

تسلم - هجرب وافيدك بس لو عندى الستيكرات ملف اكسل ازاى اضيفها شرايح فى الباور بوينت بدل ما اعمل نسخ ولصق

الاخوة الافاضل عايز برنامج او طريقة لطباعة ستيكر مقاس 6 سم * 4سم كما بالصورة بحيث لو كان عدد الاسطر 5 او 6 او 7 بيكونوا وسط الستيكر تمام وكمان لو عندى مجموعة ستيكرات البرنامج يطبع الكل بضغطة واحدة بدلا من طباعة كل ستيكر لحاله ستيكر.xlsx

دعمكم الكريم

دعمكم الكريم

دعمك الكريم استاذ محى الدين مع كل الشكروالتقدير لك

الف الف شكرا استاذ محى الدين على المجهود الجبار - يعمل بامتياز بس كرما بعد اذنك - لاحظت ان لو رقم ال tb ثابت مع عدد 2 سبلتر - المعادلة بتقرا البورت المقابل من سبلتر 1 وبتنهى بالبورت المقابل فى سبلتر 2 دون تغيير السبلتر مرفق الملف - ارجوا تعديل المعادلات لتتناسب مع الايضاح الملون بالملف GRANITE-Macro.xlsm

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

الملف المرفق يحتوى على بيانات فى جدول والمطلوب قراعة البيانات من الجدول ووضعها كما فى العمود L ملحوظة / الجدول عينة فقط GRANITE.xlsx

مرفق لكم شيت به مجموعة من الازرار تقوم باعمال ما المطلوب تثبيت هذة الازرار حتى لا يتم تغيير مكانها او حذفها مع ملاحظة ان الازرار لها اكواد حماية الازرار من الحركة والحذف.rar

برجاء المساعدة فى حماية الاكواد فى الاكسل من التعديل عليها

مرفق لكم ملف به تلوين الصف والعمود للخلية المختارة ارجوا عمل هذا بالكود بدل التنسيق الشرطى وتطبيقة على جميع الشيتات مع الشكر تلوين الخلايا.rar

شاكر كرمك اخى الفاضل

فى انتظار رد الأساتذة الأفاضل

شكرا لكم جميعا وبالفعل الكودين بيشتغوا بامتياز بس لو الخلية بها صفر لا يعمل الكود حيث الكود يعمل على الخلايا الفارغة برجاء تعديل الكود حتى يعمل على الخلايا الفارغة والتى تحتوى على صفر

شكرا لك استاذنا وتم عمل المطلوب باستخدام الكود التالى وذلك بمساعدة مهندسى الموقع ( الاخ عبدالله ) مع الشكر Private Sub CommandButton1_Click() Application.ScreenUpdating = False If [B3] = "" Or [B4] = "" Then MsgBox "ادخل الييانات صحيحة " Exit Sub End If Range("B1:B27").Copy Sheets("in").Cells(1, Sheets("in").Range("Q3").End(xlToLeft).Column + 1).PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox "تم الترحيل" End Sub