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

نفس المشكلة أخي الحبيب أحمد لا أدري ما سبب المشكلة ..؟

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

نعم أخي الكريم أحمد هذا هو آخر ملف تم تحميله ..

هذا ما أتحدث عنه ...كنت أتوقع مثل الصورة المرفقة في المشاركة الأخيرة لك ولكن يفتح نموذج إدخال به بيانات (كود موجود بالفعل) .. ولا يظهر النموذج بشكل كامل .. ولا يظهر لدي زر الأمر "حفظ" هذه صورة أول ما بفتح الملف

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

وعليكم السلام أخي العزيز محي الدين وجزيت خيراً بمثل ما دعوت لي وزيادة مشكور على مرورك العطر بالموضوع وبارك الله فيك على دعواتك الطيبة تقبل تحياتي وهدية مني لأخونا الحبيب ياسر العربي إليكم الملف المرفق فيه معادلة تقوم بعمل ارتباط تشعبي للملفات حتى تكتمل الفكرة توضع المعادلة التالية في الخلية B2 (الموضوع طلع بسيط لكني لم أكن على علم بهذه الدالة الرائعة) ... =IF(A2="","",HYPERLINK(LEFT($A$1,FIND("*",$A$1)-1)&A2, A2)) تقبلوا تحياتي حمل الملف من هنا

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

أخي الحبيب ياسر العربي اللي مكملوش اتفضل إنت وهات الفكرة .. يوجد أكواد تقوم بالأمر لكن إنشاء ارتباط تشعبي بالمعادلات ليس لدي علم به ، لكن على ما أعتقد يوجد طريقة أخي الغالي أحمد الفلاحجي بارك الله فيك ومشكور على مرورك الكريم بالموضوع تقبلوا وافر تقديري واحترامي

وجزيت خيراً أخي الفاضل أحمد مشكور على مرورك العطر بالموضوع وبارك الله فيك ووفقك لما يحب ويرضى تقبل تحياتي

أخي الكريم إذاً مزيد من التوضيح لإزالةا لغموض ..أنا عملت الكود بناءً على ما فهمت من كلامك .. ما هو شكل النتائج المتوقعة؟

أخي الحبيب الغالي أحمد بارك الله فيك وجزيت خيراً على مبادرتك الطيبة بتقديم يد العون لي أنا شغال في محافظة مطروح مدينة الحمام ..على بعد ساعة من إسكندرية تقريباً .. وإن شاء الله بشرة خير تقبل وافر تقديري واحترامي

بارك الله فيك أخي الحبيب صلاح المصري ومشكور على مرورك العطر ...

تصدقوا الإعلان ده .. مجابش ولا مدرسة !! يبدو ان جهدي ضاع هباءً والحمد لله قدر الله وما شاء فعل ....ولعله خير إن شاء الله يكفيني الـ 15 مدسة اللي اشتغلت معاهم .. بس دول مجوش بالإعلان عن الخدمة في المنتدى ..

هل تبرع أحدكم لعمل بحث في الموضوع لمزيد من الاستفادة؟

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم اليوم طريقة لعمل قائمة بأسماء الملفات في مسار محدد وتبدأ القائمة من الخلية A2 في العمود الأول طريقة العمل : روح للتبويب Formula ثم إدارة الأسماء Name Manager ثم أنشيء نطاق معرف باسم FileList ثم في صندوق الـ Refers to اكتب المعادلة التالية =FILES(Sheet1!$A$1) في الخلية A1 اكتب المسار الذي ترغب في عرض قائمة أسماء الملفات الموجودة فيه .. أو يمكن عمل معادلة بالشكل التالي ليشير إلى المجلد المسمى Test في نفس مسار المصنف الحالي ، ويتم عرض كل أنواع الملفات باستخدام *.* ثم اكتب المعادلة التالية في الخلية A2 وقم بسحبها لأسفل لأي عدد من الصفوف تريده =IFERROR(INDEX(FileList,ROW()-1),"") وأخيراً أرجو أن يكون الموضوع ذو فائدة ... تقبلوا وافر تقديري واحترامي حمل الملف من هنا

أخي الكريم لؤي جرب الكود التالي في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Row > 7 And Target.Column >= 1 And Target.Column < 11 And Target.Column <> 6 Then Cells(Target.Row, 6).Interior.ColorIndex = 3 End If If Target.Row > 7 And Target.Column = 6 Then Target.Interior.ColorIndex = xlNone End If End Sub تقبل تحياتي

ما رأيك باستخدام معادلات عادية ... لما لم تستخدم معادلة تذكر فيها أن الخلية في العمود B تساوي قيمة الخلية في العمود G في الصفحة السابقة لها أقصد مثلاً في ورقة العمل المسماة 2-3 في الخلية B6 ضع المعادلة التالية واسحبها ='1-3'!G6 وكرر نفس الشيء مع بقية الأوراق هل أدى الغرض أم لا؟

أخي الكريم وعليكم السلام ورحمة الله وبركاته كما فهمت من طلبك تريد ترحيل الخلايا من العمود G إلى العمود B في الورقة التالية لليوم التالي .. ماذا عن القيم الموجودة بالفعل في العمود B هل سيتم جمع القيم التي ترحيلها إلى القيم الموجودة أم يتم استبدال القيم القديمة بالجديدة ؟؟ وهل التعامل سيكون مع كل أوراق العمل مرة واحدة أم أنك تريد الكود أن ينفذ على يوم يوم ؟؟ الأفضل إرفاق شكل النتائج المتوقعة .. ليسهل الوصول لحل تقبل تحياتي

بارك الله فيك أخي الحبيب ياسر العربي .. محتاجين شرح مبسط للتعامل مع البرنامج وإزاي نصدر اللي اتحفظ فيها ونسترجعه تاني .. حاولت أشتغل عليه شوية وجربت أضع Category جديد باسم VBA ووضعت كود .. وقلت أجرب أصدر ..ففشلت في الاستيراد (جربت مرة أصدره كمكتبة ومرة كمجلد ...) وفشل في كلتا الحالتين ..ممك لأن البرنامج تجريبي !!

بارك الله فيك أخي الحبيب سليم على هذه الموضوعات الرائعة والجميلة تقبل وافر تقديري واحترامي

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

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

تسلم ايديك أخي الحبيب أحمد في انتظار تكملة البرنامج الذي أحسبه سيكون طفرة إن شاء الله تقبل تحياتي

وعليكم السلام ورحمة الله وبركاته أخي وحبيبي عبد العزيز البسكري يسعدني أن تكون أول من يرد على الموضوع ومشكور على مرورك العطر بالموضوع وأرجو أن يستفيد منه الجميع ... طبعاً الكود ليس لي .. ولن تجده في مواقع الانترنت هي دي المعادلة الصعبة!! (يرجى من الأخوة عمل بحث في الموضوع .. ليدلوني على المواقع التي تناولت الموضوع) لمزيد من الاستفادة تقبلوا تحياتي

السلام عليكم ورحمة الله وبركاته إخواني الكرام وأحبابي في الله أقدم لكم فورم يقوم بتوليد أرقام عشوائية ما بين رقمين .. الجديد في الموضوع أن الأرقام التي يتم تحديدها كأرقام البداية والنهاية يحتفظ بها في ملف الريجستري ..أي إذا أغلقت المصنف وفتحته مرة أخرى ستجد آخر أرقام تم تسجيلها ومحتفظ بها على سبيل المثال ..أول ما تشغل الفورم يكون رق البداية 1 ورقم النهاية 100 .. قم بتغيير الرقم 1 إلى 5 والرقم 100 إلى 200 ... ونفذ الكود واخرج من الفورم وأغلق المصنف وأعد فتحة مرة أخرى .. ستجد أن الأرقام الأخيرة 5 ، 200 تم الاحتفاظ بهما أرجو أن ينال الفورم إعجابكم الكود التالي يوضع في موديول Public Const PUPNAME As String = "Officena Forums" Public Const APPNAME As String = "Random Number Generator" Sub GetRandomNumber() With UserForm1 .StartUpPosition = 0 .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width) .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height) .Show End With End Sub والكود التالي يوضع في حدث الفورم Option Explicit Dim Stopped As Boolean Dim Cnt As Long Private Sub UserForm_Initialize() On Error Resume Next Label1.BackColor = ActiveWorkbook.Theme.ThemeColorScheme(msoThemeDark2).RGB On Error GoTo 0 Me.Caption = APPNAME If GetSetting(PUPNAME, "Settings", "RememberSettings", True) Then TextBox1.Text = GetSetting(PUPNAME, APPNAME, "TextBox1", 1) TextBox2.Text = GetSetting(PUPNAME, APPNAME, "TextBox2", 100) End If End Sub Private Sub StartStopButton_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Call Start_Or_Stop End Sub Private Sub StartStopButton_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) '"S" Keys Starts And Stops If KeyCode = 83 Then Call Start_Or_Stop End Sub Private Sub Start_Or_Stop() Dim Low As Double, Hi As Double If StartStopButton.Caption = "Start" Then LabelNumberCount.Visible = False 'Validate Low And High Values If Not IsNumeric(TextBox1.Text) Then MsgBox "Non-Numeric Starting Value.", vbInformation, APPNAME With TextBox1 .SelStart = 0 .SelLength = Len(.Text) .SetFocus End With Exit Sub End If If Not IsNumeric(TextBox2.Text) Then MsgBox "Non-Numeric Ending Value.", vbInformation, APPNAME With TextBox2 .SelStart = 0 .SelLength = Len(.Text) .SetFocus End With Exit Sub End If 'Make Sure They Aren't In The Wrong Order Low = Application.Min(Val(TextBox1.Text), Val(TextBox2.Text)) Hi = Application.Max(Val(TextBox1.Text), Val(TextBox2.Text)) 'Adjust Font Size If Necessary Select Case Application.Max(Len(TextBox1.Text), Len(TextBox2.Text)) Case Is < 5: Label1.Font.Size = 72 Case 5: Label1.Font.Size = 60 Case 6: Label1.Font.Size = 48 Case Else: Label1.Font.Size = 36 End Select StartStopButton.Caption = "Stop" Stopped = False Randomize Cnt = 0 Do Until Stopped Label1.Caption = Int((Hi - Low + 1) * Rnd + Low) Cnt = Cnt + 1 DoEvents Loop Else Stopped = True StartStopButton.Caption = "Start" With LabelNumberCount .Visible = True .Caption = Cnt End With End If End Sub Private Sub CancelButton_Click() Stopped = True Unload Me End Sub Private Sub UserForm_Terminate() Stopped = True SaveSetting PUPNAME, APPNAME, "TextBox1", TextBox1.Text SaveSetting PUPNAME, APPNAME, "TextBox2", TextBox2.Text On Error GoTo 0 Unload Me End Sub Private Sub PUPHelpButton_Click() MsgBox "Random Number Generator By YasserKhalil From Officena", 64 End Sub وإليكم الملف المرفق مطبق فيه الأكواد ... عسى أن ينال إعجابكم تقبلوا تحياتي حمل الملف من هنا