عاشق الاكسيل

تم فتح موضوع جديد فى انتظار ردك اخى الكريم

السلام عليكم ورحمة الله وبركاته

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

Copy Sheet Based On Range Values YasserKhalil.rar

الاخ الكريم مصطفى

فينك بقالك فترة مختفي (لعله خير)

إليك الملف التالي رغم أنك لم توضح بالتفصيل طلبك ، ولكني حاولت التدقيق في الطلب حتى فهمت مرادك

Sub CopySheets()
    Dim I As Long
    Dim WS As Worksheet, SH As Worksheet
    Set WS = Sheets("نسخ"): Set SH = Sheets("بداية")
    Application.ScreenUpdating = False
        For I = 3 To 10
            If blnWorksheetExists(SH.Cells(I, "B")) Then GoTo 1
            WS.Copy after:=Sheets(Sheets.Count)
            ActiveSheet.Name = SH.Cells(I, "B").Value
            ActiveSheet.Range("B2").Value = SH.Cells(I, "B").Value
1        Next I
        SH.Activate
    Application.ScreenUpdating = True
End Sub

Function blnWorksheetExists(strWorksheet As String) As Boolean
    On Error Resume Next
    blnWorksheetExists = Not (ThisWorkbook.Worksheets(strWorksheet) Is Nothing)
    On Error GoTo 0
End Function

تقبل تحياتي

أخى واستاذى ومعلمى ياسر خليل

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

ولكن لظرف قهرى ليس بيدى منعنى من الدخول - الحمد لله على كل شىء -.

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

ثانيا بالفعل هذا ما كنت اريده بالتحديد

اشكرك بشدة اخى واستاذى

واتمنى ان امكن ذلك عمل زر لمسح الصفحات اللى تحمل نفس اسم الخلايا (كما عودتنا الشىء ونقيضه)

السلام عليكم ورحمة الله وبركاته

فضلا وليس امرا ارجو من الاخوة مساعدتى فى هذا الطلب

وتسلسل الطلب كالاتى :

 هناك نطاق فى صفحة بداية وهناك صفحة اخرى اسمها نسخ

مطلوب 1 : عمل نسخة من صفحة نسخ بعدد خلايا النطاق وتسمية الصفحة مساوى لقيمة الخلية

مطلوب 2 : جعل قيمة خلية B2 مساوى لاسم الصفحة

مرفق ملف للتوضيح

Request.rar

أخي الحبيب مصطفى أبو ملك

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

فقط قم بتنسيق الخلية بالشكل المناسب ..كليك يمين ثم Format Cells واختر Date واختار تنسيق التاريخ كما تحب

ايه الاحراج ده ^^

بارك الله فيك استاذ ياسر الموضوع طلع بسيط جدا ^^

السلام عليكم ورحمة الله وبركاته

لدى تساؤل بسيط

كيف يمكنى استخدام الدالة VLookup للبحث عن تاريخ

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

vdate.rar

اهلا بعودتك استاذ أبو اسامة العينيوسى

اساتذتى ياسر خليل , حمادة عمر

يعلم الله ان نيتى هى مساعدة الاخرين دون انتظار مقابل وهدفى الاول هو ابتغاء مرضاة الله فقط

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

وشرف كبير لى مرور اساتذة مثلكم على موضوعى

وفقنا الله فيما يحبه ويرضاه

استفسار كيف يمكنى تعديل المشاركة الاولى ؟؟

مفيش حد استفاد منها خالص

بارك الله فيك استاذنا

لمن يواجه مشكلة فى اضافة الاداة الى Toolbox

1- الدخول الى قائمة Start

2- عمل اختصار للاكسيل على سطح المكتب

3- كليك يمين واختيار خصائص Properties واختيار compatibility Tab

4- وضع علامة امام run this program in compatibility mode for

5- الضغط على Apply

استاذى ياسر خليل

لو كنت استنيت بس شوية انت كتبت وانا كنت بعدل فعلا ^^

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

السلام عليكم ورحمة الله وبركاته

هذه اداة جديدة لاضافة شكل جديد للازرار فى اليوزر فورم ب 3 استايلات

(ميديا بلاير - فيستا- اوفيس 2007 )

كيفية اضافة الاداة:

1- فك الضغط عن الملف واضافته فى المسار التالى :

C:\Windows\System32

لمستخدمى النسخ 64 بت هذا المسار

C:\Windows\SysWOW64

2- عمل تثبيت للاداة عن طريق الاتى
 تم الاستعانة بالشرح المقدم فى موضوع حركة جديدة (تجليد الفورم)

الان نقوم باضافة الاداة الى اليوزرفورم عن طريق

فتح اليوزر فورم ثم الضغط كليك يمين على صندوق toolbox واختيار Additional Controls

ونقوم باختيار Styler button

ثم Ok

النتيجة النهائية بعد استخدام الاداة

تم بحمد الله

Styler_button.rar

شكرا تم حل المشكلة والحل لمن يريده لعله يفيد الاخرين

المشكلة كانت عندى عشان شغال على Windows Seven 64X

1- الدخول الى قائمة Start

2- عمل اختصار للاكسيل على سطح المكتب

3- كليك يمين واختيار خصائص Properties واختيار compatibility Tab

4- وضع علامة امام run this program in compatibility mode for

5- الضغط على Apply

السلام عليكم ورحمة الله وبركاته

كيف يمكننى اضافة اداة جديدة الى صندوق الادوات فى اليوزر فورم

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

بارك الله فيك وزادك من علمه

بارك الله فيك استاذ حمادة عمر

اذا كان افضل طريقة لحماية الملف هو تحويله الى ملف تنفيذى فكيف يمكننى التعديل على الملف مع الحفاظ على البيانات والمتغيرات المسجله به

بارك الله فيك استاذ حمادة عمر

ولكن ما هى افضل طريقة لحماية الملف ؟؟

السلام عليكم ورحمة الله وبركاته

لدى استفسارين

الاول : ما هى افضل طريقة حتى الان لحماية الملف

الثانى : هل من الممكن جعل الملف يغلق نفسه فى حالة تعطيل الماكرو

 بمعنى اذا تم فتح الملف فى حالة تعطيل وحدات الماكرو يقوم الملف باغلاق نفسه

يسعدنى ان اكون اول من يهنئك على هذا الموضوع

استاذ ياسر خليل

سلمت يمينك وبارك الله فيك

وتزال مواضيعك صرح ومرجع كبير للكثير بل للجميع.

استاذ ياسر خليل

بارك الله فيك ويستمر عطاؤك اللانهائى

جعله الله فى ميزان حسناتك

لدى استفسار لماذ لا استطيع الكتابة باللغة العربية

فكلما احاول تظهر بشكل علامات غريبة

السلام عليكم اخي مصطفى هل يمكن تنفيذ هذا الكود على يوزر فورم بحيث تضع لكل progress bar يوزر فورم خاص به ارجو منك ذلك لان الموضوع فعلا مميز

اخى العزيز زيزو

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

شكرا اخي الكريم مصطفي

بارك الله فيك على اي حال وشكرا على جهودك 

ولكن

هذا المرفق معروف لدي جميع المنتديات ومنتشر منه امثلة كثيرة جدااا

وهو قديم ومعروف

اما مرفقك الموجود بالمشاركة الاولى فهو بالفعل مميز جدااا وجديد ويصلح للبرامج الاحترافية فى الاكسس (البرامج التجارية)

وهو جديد جدا مثل الموجود فى ويندوز 8 

شكرا لك على اى حالا واتمنى لك التوفيق

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

بارك الله فيك وسوف احاول باذن الله ان اجد لك طلبك

وشكرا على مرورك

اهلا بك مصطفي

معك اخوك محمد سلامة

سوف اقوم بمعاينة المشاركة رقم 3 واقوم بالرد عليك

شكرا

اهلا بك اخى محمد سلامة

فى انتظار ردك الكريم

جزاك الله كل خير

وعودا حميدا استاذ / ابو اسامة