أبومروان

السلام عليكم ورحمه الله وبركاته الساده الافاضل تحياتي وكل عام وانتم بخير هل يمكن عمل كود يكون بصيغه add-in xlam لتجنب او تصحيح تلقائي الاخطاء الناتجه عن عدم توافق الكود مع الجهاز 32 او 64 بت كما في الصوره .

استاذ @حسنى سامى محمد اعذرني لجهلي بمفهوم عمل دالهFORECAST في المشاركه السابقه ان شاء الله تكون هذه معادله صحيحه تقبل تحياتي. =FORECAST(AL$3,$B5:$AK5,$B$3:$AK$3) TEST.xlsx

وعليكم السلام ورحمه الله وبركاته دا كود ل اسم المستخدم وكلمه المرور Private Sub CommandButton1_Click() If TextBox1.Text = "username" And TextBox2.Text = "password" Then MsgBox "Welcome " & TextBox1.Text & "!" Else MsgBox "Invalid username or password, please try again." End If End Sub

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

وعليكم السلام ورحمه الله وبركاته لعله المطلوب =FORECAST(AL$3,$B$3:$AK$3,$B5:$AK5) TEST.xlsx

شاهد الموضوع ادناه

وعليكم السلام ورحمه الله وبركاته استخدام الدالة trim في علاج هذه المشكلة ونكتب في خلية فارغة =trim(d2) ونقوم بتطبيق الدالة على هذه الحالة

وجدت هذا الكود ولم اجربه للامانه Sub ExportUserForms() Dim i As Integer For i = 1 To 25 UserForms(i).Export "C:\Users\User\Documents\UserForm" & i & ".frm" Next i End Sub جرب واخبرنا بالنتيجة

وعليكم السلام ورحمه الله وبركاته يمكنك استخدام هذه المعادله =TEXT(A8,"dddd") استخراج اسم اليوم.xls

راجع الموضوع أدناه ⬇️ لعله يفيدك

وعليكم السلام ورحمه الله وبركاته استخدم هذا الكود للاضافه للترحيل بعدا لتعديل عليه بما بناسب الشيت المرفق . Dim i As Byte, Last As Long, Sh As Worksheet Set Sh = Sheets("data") With Sh Last = .Cells(Rows.Count, 2).End(xlUp).Row + 1 For i = 1 To 17 .Cells(Last, i).Value = Me.Controls("Tx" & i).Value Me.Controls("Tx" & i) = "" Next End With tx1.SetFocus

سلمت يمينك يا استاذ👌🌹 @محمد يوسف ابو يوسف

اي كود يعطيك خطأ برجاء ارفق صوره من الخطأ للوصول للحل افضل 🌹

سيتم تحويل حالة العرض الخاصة بكل صفحة بعد تنفيذ هذا الكود. إذا كانت الصفحة مرئية، فسيتم إخفاءها. وإذا كانت مخفية، فستصبح مرئية. يمكنك ضبط الكود حسب احتياجاتك Sub ShowHideSheets() Dim sht As Worksheet For Each sht In ThisWorkbook.Worksheets If sht.Visible = True Then sht.Visible = False Else sht.Visible = True End If Next sht End Sub كود فورم 1 به شاشة دخول للورك بوك Private Sub CommandButton1_Click() ' تحقق من صحة اسم المستخدم وكلمة المرور If TextBox1.Value = "اسم المستخدم الصحيح" And TextBox2.Value = "كلمة المرور الصحيحة" Then UserForm2.Show ' اعرض UserForm2 إذا كانت بيانات الدخول صحيحة Else MsgBox "اسم المستخدم أو كلمة المرور غير صحيحة" ' أظهر رسالة خطأ إذا كانت بيانات الدخول غير صحيحة End If End Sub

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

وعليكم السلام ورحمه الله وبركاته اتفضل استاذ @2saad لعله المطلوب وهذا كود اظهار الفورم هذا كود اظهار الصفحه والاخفاء Private Sub CommandButton4_Click() Sheets("a").Visible = True Sheets("n").Visible = False Sheets("k").Visible = False Sheets("l").Visible = False Sheets("m").Visible = False Sheets("i").Visible = False Sheets("j").Visible = False Sheets("b").Visible = False Sheets("f").Visible = False Sheets("g").Visible = False Sheets("h").Visible = False Sheets("d").Visible = False Sheets("e").Visible = False End Sub محمد.xls

السلام عليكم ورحمه الله

السلام عليكم ورحمه الله وبركاته جزاك الله خيرا 🌹