ياسر العربى

ياريت توضيح المشكلة اكتر وارفاق الملف اللي فيه مشكلة

بص ياعم ناصر حاجه من الاخر هتريحك وهما مش عاوزين ينفعوك امشي ورايا وهتكسب اتفرج ياعم علي الفيديو وشوف واتعلم تحديد الخلايا في الشيت 1 بيتم بعد تحديد الصف الاول نقوم بالضغط علي shift+End + السهم لاسفل دا لتطبيق كلام حبيبي ابو البراء طبعا الكود هيحتاج شوية تغيير عشان نستغنى عن ا ي زيادة ملهاش لازمة aaaaa.rar ياعم الحاج انا مش كل شوية اجيبلك كتالوج وانت تضيعه ركزو شوية بقي وبعدين الشتا مفيهوش حركات نص كوم ابدا دا الحركات كلها بكمام وشربات وجونتيات وزعابيط واخد بالك من زعابيط دي ودي هدية ليكم بردو مسجلها بالماكرو قاعد فاضي قلت اعمل كدا بس نسيت نقطة بقي مش مشكلة egypt.rar

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

اخي الغالي تفضل Application.Visible = False هذا السطر لجعل برنامج الاكسيل غير مرئي اما تمسحها او تعكسها Application.Visible = True وهذا الكود Dim S As Worksheet Const wsKeep As String = "Sheet7" Worksheets(wsKeep).Visible = True For Each S In Worksheets If S.Name <> wsKeep Then S.Visible = xlSheetVeryHidden Next S يعمل علي اظهار الشيت 7 ويقوم باخفاء الباقي وانت لا تحتاح هذا فنستبدلة بهذا Sheet7.Activate مجرد كود لتنشط الشيت فقط وهكذا مع كل الاكواد مشكور اخي العزيز الكريم عبد العزيز البسكري لدعمك الجميل لنا كل الشكر والتقدير لك اخي الغالي ومرة اخري اخي الغالي يرجى مراجعه المرفق جيدا لعلك فتحت نفس الملف الموجود عندك لتشابه الاسماء بين الملفين وشكرا

تفضل اخي شاشة دخول شيت كنترول برقم سرى - سعيد بيرم.rar

اذا الحمياية لابد منها نريح دماغنا ونعمل كدا حماية عادية بدون رمز حماية كدا نحط في اول كود الطباعة ActiveSheet.Unprotect وفي نهاية الكود نضع دا ActiveSheet.Protect برمز نزود الرمز كدا اول الكود ActiveSheet.Unprotect "123" اخر الكود ActiveSheet.Protect "123" غير كدا يبقي ترفق الملف عشان الامور تبقي واضحة

العملية بسيطة خالص نحط دا في تنشيط الشيت المراد تفعيل النسخ فيه Private Sub Worksheet_Activate() Call ToggleCutCopyAndPaste(True) End Sub و هذا في حدث اذا كان الشيت غير نشط يقفل النسخ Private Sub Worksheet_Deactivate() Call ToggleCutCopyAndPaste(False) End Sub مطبق علي شيت 3 في المرفق Disable Enable Cut copy paste .rar

يامعلم خليك ايزي كدا وحط مرفق احنا هندور على ملفات

تفضل حبيبي الغالي ابو يوسف لعله هو المطلوب بالاكواد وجدت هذا الكود لاحد الاساتذة الافاضل فقمت بتعديله ليناسب ملفك الكود للاستاذ المرحوم له باذن الله الحسامي رحمة الله عليه وجعل هذه الاعمال صدقة جارية له باذن الله إيجاد الارقام المفقودة.rar

تفضل المطلوب officena2.rar

تفضل اخي الغالي لعله المطلوب officena.rar

نحن واهلنا في كل مكان من المسلمين اللهم امين

تفضل لعله المطلوب داخل هذه المواضيع http://www.officena.net/ib/topic/40762-عمل-قائمه-منسدله-باسماء-الشيت/ وهذا اخر http://www.officena.net/ib/topic/64985-طلب-كود-قائمة-منسدلة-علي-الشيت-بأسماء-الشيتات-بشرط/

تفضلو تعديل بسيط ياجماعة لتحريك الادوات علي الفورم ودا اكثر دقة واحترافيه شوية 'دا مثال للكوماند With CommandButton1 .Left = WorksheetFunction.RandBetween(20, 400) .Top = WorksheetFunction.RandBetween(20, 400) End With ودا لليبل' With Label1 .Left = WorksheetFunction.RandBetween(20, 400) .Top = WorksheetFunction.RandBetween(20, 400) End With وممكن كل الادوات بنفس الطريقة كدا' الكود دا تمام التمام كل اللي بيعملو انه (بيولد) لينا رقم عشوائي بس في رنج احنا محددينه له والتحديد هنا عشان الزرار ميسبشي الفورم ويجري يفضل محبوس جواه (زي المصيدة كدا نشوف ارتفاع الفورم بتاعنا وعرضه ومنها نحدد قيم الراند في التوب و(الليفت اظن كدا وفيت ولا لسه move.rar

تفضل ال mid مدموجة مع vlookup دالة VlookUp.rar الmid وحدها لن تكفي في حالتك نفترض ان البيانات تتغير ونريد معرفتها عن طريق الvlookup فدمج الاتنين معا يفي بالغرض حيث يتم استدعاء الكلمة عن طريق الvlookup وتقوم الدالة mid بعرض ما قمنا بتحديده فقط وشكرا

تفضل حبيبي ابو يوسف =MID($B3;1;1) =MID( المصدر; رقم الحرف; عدد حروف الظهور) واشوفلك باذن الله موضوع الvlookup دالة VlookUp.rar

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

اولا ياريت توضيح بمرفق ارفع لينا مثال للتسهيل للوصول لطلبك ثانيا وضح بردو الطباعة طباعة الشيت ولا طباعة الفورم نفسه وشكرا وطبعا ياريت تغيير الاسم للغة العربية

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

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

ش*** شد شعر ش*** شدة شديدة شالت شوية شعر شايب النت موجود والاختراعات موجودة استني مني مفاجأة قريبة هفجرها فيك

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

سهلت الفكره وبسطها اكتر With CommandButton1 .Left = .Left + Int((Rnd() - 2) * X) .Top = .Top + Int((Rnd() - 2) * Y) End With ههههههههههههههههه انا عاوزكم تبدعو هههههههه انا بفكر لو حد طلب حل لمشكلته ان زر الترحيل مش شغال او زر الخروج مثلا وقلت تفضل اخي الغالي الحل في المرفق ويجي يدوس زر ترحيل او خروج يجري منه هههههههه هاخد شتيمة للركب ههههههه move.rar

معلش خش جمب اخواتك ههههههههههه شكرا لمرورك الكريم حبيبي ابو فيصل