وليد عبدالغني

نفس المشكلة

يا ريت احد الاخوة يدلنا علي الحل

تسلم كل سنة وحضرتك طيب

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

جيث تبقي الكائنات محددة بعد التنفيذ

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

هل يمكن تعديل الكود ليعمل علي جميع الصفحات مرة واحدة

كود تعديل تنسيق الكتابة الموجودة في المخططات الانسيابية الت يكتب بها نص للمحازاة لمحتواها من الكتابة فى المنتصف

وصلت الية من خلال التسجيل

Sub dodo()

    Sheets("cards_pin").Select
    ActiveSheet.Shapes.SelectAll

    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
    Range("J5").Select
    
    Sheets("PIN").Select
    ActiveSheet.Shapes.SelectAll
 
    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
    Range("f4").Select
        
    Sheets("cards").Select
    ActiveSheet.Shapes.SelectAll

    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
    Range("J11").Select
    

    Sheets("main").Select
    ActiveSheet.Shapes.SelectAll

    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
    Range("I77").Select
    

    Sheets("HOME").Select
        ActiveSheet.Shapes.SelectAll
    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
    Range("L33").Select
End Sub

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

وشكرا

تسلم يا كبير كل سنة وحضرتك طيب

شكرا

مطلوب تعديل كود اظهار اليورزر فورم  للعلامة   عبدالله باقشير (خبور خير)

اريد تعديل اظهار اليورزر فورم  لليوزر فورم مثال 2 

حتي يسمح بالتنقل بين الصفحات خلف اليوزر فورم

كود الفتح الحالي

Sub kh_Show_UFormChang2()
On Error GoTo 1
With UFormChang
    .kh_SetAddrss "مثال2", "C4:H4", "B4"
    .Show
End With
1:
If Err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في  : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء"
On Error GoTo 0
End Sub

كنت سابقا اضيف  .Show (0)  ليعمل الكود

لكن لا يعمل مع هذا الكود

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

فورم ادخال و تعديل مرن.rar

الاستاذ القدير / 

عبدالله باقشير

هل يمنكن جعل عملية البحث في عمودين بدل عمود واحد

'  رقم عمود البحث
Private Const MyFind_Column As Integer = 1

ولكم جزيل الشكر

اين انت اخي واستاذي

                ياسر خليل أبو البراء

برجاء المساعدة لتوقف ملفي علي هذا الطلب وشكرا

السادة الاعضاء الكرام

طلب التعديل علي اكواد يوزرفورم البحث

للبحث فى عمودين بدل عمود ليكون البحث في العمود الثاني والثالث فى نفس الوقت

سواء بالاسم او رقم الحساب

المصنف1.rar

الاستاذ / ياسر خليل أبو البراء

جزيل الشكر علي سرعة الرد دوما جزاك اللة خيرا

لكن الملف يعطي خطا عند تعديل الكود

-2الإدارة3.rar

الاستاذ / أبوعيد

هل يمكن ان تتكرم فى ملف الادارة 3 وتحدد لي اسم الصفحة  التي يعمل عليها الكود

حيث اني حاولت ولم يوفقني الحظ ودائما يتم المراقبة الصفحة الاخيرة بصرف النظر عن الاسم

ولكم جميعا جزيل الشكر

المرفق ولكم الشكر

تم إرفاق مرفق

New .rar

المساعدة في قاعدة if لاكثر من شرط

يا جماعة حد يديني بداية وانا اكمل 

والله لم اتعود منكم دائما الي العون

واني منتظر ان شاء اللة

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

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

المشكلة ان حساب العميل قد يحتوي علي واحد او اكثر من الحسابات التالية 

وقد تكون عملة الحساب جنية مصري فقط وقد يكون للعميل مصري ودولار لنفس البند

وقد يوجد حساب العميل علي اكثر من فرع 

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

مرفق الشهادة وورد والتي ترهقنا في محاولة الترجمة والنقل لها مرة اخري

مرفق محاولتي بورقة الاكسيل وبها دالتي تفقيط بالجنية والدولار

CERTIFICATE2.rar

المصنف1.rar

ياريت حد يساعدني لان معادلة vlookup بتديني خطأ

السادة اعضاء المنتدي الكرام بعد التحية

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

وحصلت علي المثال المرفق (نتيجة ام المؤمنين ) وحاولت التطبيق ولكني لم استطيع

برجاء المساعة علي مثالي المرفق

ولكم جزيل الشكر

New .rar

نتيجة ام المؤمنين.rar

أخي الاستاذ عبد العزيز البسكري

الف شكر

جزاك اللة خيرا فعلا هذا هو المطلوب

وتحياتي

استاذي يتم الترحيل بالفعل لكن لايتم ترحيل المسلسل

ولايتم تحديث ال ComboBox1 بالادخالات الجديدة ليتم التعديل عليها

ولك الشكر

والاسف علي التقصير فى السؤال

الف شكر

الاستاذ عبد العزيز البسكري الف شكر على المساعدة

ما تفضلتم بة هو المطلوب ولكن ينقص ترحيل رقم المسلسل ليبدأ من جديد

فى السطر التالي ولا يقوم بالادخال علي نفس الصف

الف شكر

برجاء المساعدة وتكملة معادلات اليوزر فورم

الموجود في الصفحة 1

اضافة المسلسل

استدعاء

تعديل بيانات

ولكم جزيل الشكر

2015.rar

برجاء حل مشكلة

"VBA project password" window opens after closing the excel

تظهر رسالة تطلب باسوورد بعد اغلاق الملف