نجوم المشاركات

السلام عليكم 🙂 هذا المنتدى للتبادل العلمي ، حتى يستفيد منه الجميع ، وليس صاحب الموضوع / السؤال فقط 🙂 فيا ريت ان نضع الاجابة بالتفصيل في الرد (سواء الخطوات او الكود او صور من شاشة البرنامج) ، ولا نتوقف عند ارفاق المرفق الذي به الرد / الجواب ، والسبب هو ، حتى يستطيع الجميع رؤية الرد ومعرفته مباشرة ، دون اللجوء الى انزال المرفق وفهمه 🙂 نعم ، هذا عبء إضافي ، ولكن نتائجه ستكون مثمرة ان شاء الله 🙂 وتذكروا ، هذا مجرد طلب ورجاء ، وليس اجباري 🙂 شكرا جزيلا 🙂 جعفر

تفضل حسب طلبك Dim fildMaxHeight As Integer Dim ctl As Control Private Sub hed1_Format(Cancel As Integer, FormatCount As Integer) Me.hed1.Height = fildMaxHeight End Sub Private Sub hed1_Print(Cancel As Integer, PrintCount As Integer) For Each ctl In Me.Section(5).Controls If ctl.Height > fildMaxHeight Then fildMaxHeight = ctl.Height End If Next For Each ctl In Me.Section(5).Controls Me.Line (ctl.Left, ctl.Top)- _ Step(ctl.Width, fildMaxHeight), vbWhite, BF Me.Line (ctl.Left, ctl.Top)- _ Step(ctl.Width, fildMaxHeight), vbBlack, B Next End Sub ضبط ارتفاع جميع الخلايا_ تقرير .mdb

بالنسبة لهذين السطرين يعملان معي جرب وضع السطر الاول في بداية كود الترحيل sheet1.Unprotect pwd اما السطر الثاني في نهاية كود الترحيل sheet1.Protect pwd مع مراعاة اسم الورقة

يمكن العمل على شيت محمي بواسطة الكود دون ازالة الحمابة باستعمال هذا السطر (اذا كانت الشيت Sheet1 هي الشيت المحمبة) Sheets("Sheet1").Protect , UserInterFaceOnly:=True هذا مثال عما اقصده النطاق الأصفر في هذا الملف محمي بدون كلمة سر الكود Option Explicit Sub test() Dim i% Sheets("Sheet1").Protect , UserInterFaceOnly:=True For i = 1 To 10 Sheets("Sheet1").Range("A" & i) = i * 10 Next End Sub الملف مرفق للمعاينة Prot_sheet.xlsm

تفضل لك ما طلبت final1.xlsx

وعليكم السلام-اهلا بك بالمنتدى ... تفضل لك ما طلبت AA-1-Modified101.xlsm

وعليكم السلام بكل بساطة اجعل نظام الحساب كما بالصورة وليس Manuel

بارك الله فى جهودكم وأعمالكم

بارك الله فيكم استاذى الكريم وجزاكم الله خير الثواب

مجهود ممتاز بارك الله فى جهودكم

بارك الله فى جهودكم

بارك الله فيك ... عمل رائع

جزاك الله خير الثواب ورحم الله والديك

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

وعليكم السلام-يمكنك استخدام هذه المعادلة =IF(I2="","",IF(I2+(J2*30.5)<TODAY()," ســـارى",DATEDIF(TODAY(),I2+(J2*30.5),"d"))) 1تنبيه عقود.xlsx

تفضل بالتنسيقات الشرطية ... فيمكنك استخدام هذه المعادلة =OR(AND($D11="أعزب",$H11>=75),AND($D11="متزوج",$H11>=60)) مستند 02.xlsx

وعليكم السلام - تفضل تحويل PDF إلى Excel مُحوّل PDF إلى Excel PDF to Excel تحويل ملف بي دي اف pdf الى اكسل excel بدون برامج| هام جدا

بارك الله فيك استاذ محمد وجزاك الله خير الثواب

السلام عليكم و رحمة الله وبركاته تم استخدام الكود التالي Sub az_mokhtar() 'نقل البيانات Dim FS As Worksheet, TS As Worksheet Dim Q1, TR, FR, ER, SH Set FS = Sheets(ActiveSheet.Name) ER = 99 For FR = 12 To ER Q1 = FS.Cells(FR, 3).Text If Q1 = "" Then GoTo 9 For SH = 1 To ActiveWorkbook.Sheets.Count If Sheets(SH).Name = Q1 Then TR = Sheets(SH).[C65536].End(xlUp).Row + 1 For FC = 2 To 13 Sheets(SH).Cells(TR, FC) = FS.Cells(FR, FC) Next FC End If Next SH 9 Next 'FR '' End Sub جرب المرفق مع التحية و التقدير ترحيل بيانات.xlsm

السلام عليكم من اعدادت الحساب اختار Security and privacy باذن الله سيتم الترجمة الي الحماية و الخصوصية ثم اعد ادخال كلمة السر و اضغط re-authenticate باذن الله سيتم ترجمتها الى إعادة المصادقة عندها سيظهر لك خيار الدخول مخفياً Hide my online status و باذن الله سيتم ترجمتها الى الدخول متحفياً ( للتشجيع على عدم استعمالها بكثرة 😂)

اغلق البرنامج من شريط مهام الكمبيوتر .... ثم شغل البرنامج مرة اخرى بالضغط على شيفت

تم تعديل المرفق السابق ايضا Aziz (1).rar

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

السلام عليكم و رحمة الله وبركاته تم عمل المطلوب مع رسالة عند تكرار الاسم Sub az_mokhtar() 'äÞá ÇáÈíÇäÇÊ Dim WB1 As Workbook, WB2 As Workbook Dim FS As Worksheet, TS As Worksheet Dim Q1, Q2, TR, TR2 Set WB1 = Workbooks(ActiveWorkbook.Name) Set FS = WB1.Sheets(ActiveSheet.Name) Q1 = FS.Range("J2").Text Workbooks.Open (Q1) 'Workbooks.Open "C:\Users\Ad\Desktop\ãÎÊÇÑ\mokhtar4 (1).xls" Set WB2 = Workbooks(ActiveWorkbook.Name) Set TS = WB2.Sheets(1) TR = TS.[a65536].End(xlUp).Row + 1 '' Q2 = FS.Cells(1, 2).Text For TR2 = 2 To TR If TS.Cells(TR2, 1) = Q2 Then MsgBox "ãæÌæÏ: " & Q2 & " - - ÕÝ= " & TR2 TR = TR2 GoTo 7 End If Next '' 7 TS.Cells(TR, 1) = FS.Cells(1, 2) TS.Cells(TR, 2) = FS.Cells(2, 3) TS.Cells(TR, 3) = FS.Cells(5, 4) TS.Cells(TR, 4) = FS.Cells(3, 3) TS.Cells(TR, 5) = FS.Cells(4, 3) TS.Cells(TR, 6) = FS.Cells(5, 3) TS.Cells(TR, 7) = FS.Cells(1, 7) TS.Cells(TR, 8) = FS.Cells(2, 7) WB2.Save WB2.Close FS.Activate End Sub شاهد المرفق مع التحية مختار.rar

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

في مصدر عنصر التحكم لمربع النص ضع هذا ..... =DLookUp("[xxx]";"x1")

الكود لا يكتب المسار بصورة مباشرة الكود يعمل بالطريقة التالي : عند اختيار صورة الكود يقوم بانشاء مجلد باسم uname ثم يضع الصورة في هذا المجلد باسم sn المقابل له مع الشارحة مع اسم المجلد الذ هو اسم uname ويقوم بالقراءة بنفس الطريقة ليظهر الصور لذا عليك ان تنشا مجلدات بنفس اسم uname وتضع فيها الصور المطلوبة وبالاسم الذي بين اعلاه بالنسبة لبقية الامتدادات لم اتتبع الكود جيدا لكن اعتقد انه لا يتعامل مع بقية الامتدادات واعتقد يمكن التعديل عليه ليقبل بقية الامتدادات لكن المشكلة بطريقة عرضها هل ممكن عمل جدول تبين فيه ما تريد من بيانات داخل الجدول لانه لم افهم القصد من كلمة ارشفة واستخراج امتداد الملفات

يعمل 100% كنت احتاج هذا السطر جداااااااااااااااااااا لكى يعمل الكود على ملف محمى تحفة تسلم ايدك

السلام عليكم 🙂 في الواقع ، هذا السؤال من الاسئلة التي تُثار بين الحينه والاخرى ، واليك السبب في عدم امكانية الحصول على قيمة ذيل الصفحة ، في رأس الصفحة : التقرير عندك فيه 3 اقسام : . خلينا نشوف قيم التاريخ لصفحة: . والآن خلينا نشوف التاريخ ، بالطريقة اللي اقسام التقرير تشوفه ، بإستخدام حدث التنسيق لكل قسم: Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) Debug.Print "Header= " & Me.Edate End Sub Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Debug.Print " Detail= " & Me.Edate End Sub Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) Debug.Print "Footer= " & Me.Edate Debug.Print End Sub . والنتيجة لصفحتين : Header= 18-Oct-20 Detail= 18-Oct-20 Detail= 19-Oct-20 Detail= 20-Oct-20 Detail= 21-Oct-20 Detail= 22-Oct-20 Detail= 23-Oct-20 Detail= 24-Oct-20 Detail= 25-Oct-20 Detail= 26-Oct-20 Detail= 27-Oct-20 Detail= 28-Oct-20 Detail= 29-Oct-20 Detail= 30-Oct-20 Detail= 31-Oct-20 Detail= 01-Nov-20 Detail= 02-Nov-20 Detail= 03-Nov-20 Detail= 04-Nov-20 Detail= 05-Nov-20 Detail= 06-Nov-20 Detail= 07-Nov-20 Detail= 08-Nov-20 Footer= 07-Nov-20 Header= 08-Nov-20 Detail= 08-Nov-20 Detail= 09-Nov-20 Detail= 10-Nov-20 Detail= 11-Nov-20 Detail= 12-Nov-20 Detail= 13-Nov-20 Detail= 14-Nov-20 Detail= 15-Nov-20 Detail= 14-Jan-21 Detail= 15-Jan-21 Detail= 16-Jan-21 Detail= 17-Jan-21 Detail= 18-Jan-21 Detail= 19-Jan-21 Detail= 20-Jan-21 Detail= 21-Jan-21 Detail= 22-Jan-21 Detail= 23-Jan-21 Detail= 24-Jan-21 Detail= 25-Jan-21 Detail= 26-Jan-21 Detail= 27-Jan-21 Footer= 26-Jan-21 . من هنا نلاحظ ان رأس الصفحة يرى اول سجل ، بينما ذيل الصفحة يرى آخر سجل ، والتقرير يطبع / يُظهر رأس الصفحة قبل ان تكون البيانات وصلت الى ذيل الصفحة (يعني ذيل الصفحة لا يحتوي على اي قيمة حينها ، لما رأس الصفحة يحصل على القيمة) ، لهذا سبب ما نحصل على التاريخين معا في رأس الصفحة !! ------------------------------------------------------------------------------------------------------- الآن وبعد ان عرفنا طريقة عمل التقرير ، خلينا نستفيد منه في عمل المطلوب : خلينا نفتح التقرير بطريقة مخفية ، نأخذ قيمة سجل رأس صفحة التقرير وذيل صفحة التقرير لكل صفحة ، نحفظهم في مصفوفة Array ، ثم نفتح التقرير بالطريقة العادية ونأخذ بيانات رأس وذيل التقرير من المصفوفة ، ونضعهم في التقرير ، في رأس الصفحة 🙂 1. عمل نموذج لحصر البيانات بين قيمتين (مع اننا لسنا بحاجة الى هذه الخطوة ، ولكن لأن جدولك في سجلات بدون قيم تواريخ ، فهذا يعمل خلل في الكود) ، ونعمل استعلام يصفي بيانات الجدول حسب تواريخ النموذج ، ويكون هذا الاستعلام مصدر بيانات التقرير: . 2. النقر على زر فتح التقرير في النموذج ، يحتوي على هذا الكود : والذي يعمل مصفوفة لـ 100 صفحة في التقرير (اذا تقريرك يحتوي على صفحات اكثر ، فقط اجعل هذا الرقم اكبر ، ما يضر اذا تركته = 200 او اكثر) 'accept adding dates Add_Dates = True 'initilize the arrays with a larg number of pages ReDim Fd(100) 'first E_date ReDim Ld(100) 'last E_date 'open the Report in Hidden mode, to put the E_dates in an array DoCmd.OpenReport "rpt_chfit", acViewPreview, , , acHidden 'close the Hidden Report DoCmd.Close acReport, "rpt_chfit" 'stop adding dates Add_Dates = False 'now open the Report in the normal way DoCmd.OpenReport "rpt_chfit", acViewPreview . وهناك وحدة نمطية تحتفظ بقيم المصفوفة ، حتى تكون متوفرة لجميع كائنات البرنامج: Option Compare Database Option Explicit Public Add_Dates As Boolean Public Fd() As Date 'first E_date Public Ld() As Date 'last E_date . والتقرير فيه هذا الكود: Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) If Add_Dates = True Then 'add the array items, based on the Report page number Fd(Me.Page) = Me.F_Edate Else 'show the results Me.myF_Edate = Fd(Me.Page) Me.myL_Edate = Ld(Me.Page) End If End Sub Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) If Add_Dates = True Then 'add the array items Ld(Me.Page) = Me.L_Edate End If End Sub Private Sub Report_Close() If Add_Dates = False Then 'Empty the array ReDim Fd(0) 'first E_date ReDim Ld(0) 'last E_date End If End Sub . فإذا قيمة Add_Dates = True في النموذج ، فيعمل التقرير المخفي لعمل المصفوفة ، بينما عندما تتغير قيمة Add_Dates ، فيقوم التقرير بإظهار قيم المصفوفة في التقرير الغير مخفي ، وعند اغلاق التقرير ، نقوم بحذف بيانات المصفوفة 🙂 لذلك ، وللحصول على النتائج الصحيحة ، يجب تشغيل التقرير من النموذج ، حتى يقوم الكود بما يجب 🙂 . . جعفر 1277.addDateHideRport.accdb.zip

ممكن ان تستعين بهذا الملف صفحة (Finish) nany4mg_Final.xlsm

السلام عليكم 🙂 وهذا شغل اخوي ابا جودي ، بس يأخذ اكثر من ملف دفعة واحدة (يعني تقدر تختار مجموعة ملفات ، ثم تضيف مجموعة اخرى الى القائمة ، دفعة واحدة) 🙂 تقدر بالفأرة تختار اكثر من ملف ، او عند طريق الضغط على الزر shift او ctrl اثناء النقر على اسماء الملفات 🙂 جعفر ImportExcel.accdb

وعليكم السلام -تفضل هذا من أفضل البرامج للأستاذ محمد الريفى له منا كل المحبة والإحترام برنامج المصروفات - الاصدار الثالث

جرب المحاولة في المرفق لعلها ما تريد 44.xlsm

اخي الكريم ماهو المقصود بتقسيم الملفات الى مجلدات ؟؟ في حال تريد انشاء ملف بإسم محدد استخدم الكود التالي Dim fso As Object Dim fldrname As String Dim fldrpath As String Dim fldNewName As String fldNewName ="اسم المجلد" Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & fldNewName If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If و لحفظ نسخة من ملف مجدد في مجلد محدد استخدم الكود التالي فقط انسخ و الصق الكود بالكامل واضعه في حدث ازرار مع مراعاة تعديل ما يلزم ================== انشاء مجلد =========================== Dim fso As Object Dim fldrname As String Dim fldrpath As String Dim fldNewName As String fldNewName ="اسم المجلد" Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & fldNewName ' هنا شرط في حال لم يجد المجلد في المسار اعلاه سيتم انشاء مجلد جديد If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If ================== تصفح الملفات لاختيار الصورة =========================== Dim Addfile As Object Dim xFile As String Set Addfile = Application.FileDialog(3) With Addfile .AllowMultiSelect = False .InitialFileName = "" .Filters.Clear .Filters.Add "All Files", "*.*" If .Show = True Then xFile = Trim(.SelectedItems(1)) Else Exit Sub End If End With ================== حفظ الصورة المختارة =========================== Dim MyFile, DstFile As String Dim Syso As Object Dim IDStudint As String IDStudint =[هنا حقل رقم هوية الطالب في النموذج] MyFile = xFile ' مسار الصورة المختارة من متصفح الملفات اعلاه DstFile = CurrentProject.Path & "\" & fldNewName & "\" & IDStudint & ".jpg" ' هنا مسار الصورة الجديد في المجلد الجديد DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing

تفضل تم ضبط تنسيق التواريخ بتكست بوكس 9 وتكست بوكس12 داخل فورم3 وفورم4 ... وذلك بإضافة هذان السطران بكلا الفورمين داخل حدث هذا الكود Private Sub TextBox1_Change() TextBox9.Text = Format(TextBox9.Text, "dd/mm/yyyy") TextBox12.Text = Format(TextBox12.Text, "dd/mm/yyyy") AHMAD.xlsm

تفضل اخى الكريم هذه معادلة حساب الأيام =MOD(E4+E6,30) وهذه لحساب الشهور =MOD(F4+F6,12)+QUOTIENT(E4+E6,30) وأخرى لحساب اجمالى السنوات =G4+G6+QUOTIENT(F4+F6,12) وهذا هو ملفك ... بارك الله فيك حساب الترقيات1.xlsx

تفضل هذا الشيت سيفيدك Commission.xls

السلام عليكم أخي الكريم الكود في حدث الوزرقة أي أنه يتم تفعيله أوتوماتيكيا إذا حدث التغيير المناسب في هذه الورقة ويعتمد الكود علي خطوتين 1- إذا تم إختيار خلية بالعمود E ، يتم تسجيل محتوي هذه الخلية ، وهذا هو الدور القديم للموظف قبل التغيير 2- إذا تم تغيير خلية بالعمود E ، يتم نقل الدور القديم (الذي تم تسجيله) وبيانات الموظف لمساحة التغييرات تفضل المرفق تتبع التغيرات.xlsm

دائماً وأبداً ممنوع دمج الخلايا حيث توجد معادلات (الصفوف 7/ 8 / 9) Yaser_W.xlsm

وعليكم السلام-يجب عليك جعل الكود هكذا .. وحاول معرفة الفرق البسيط والإضافة السهلة بين كودك وهذا الكود بارك الله فيك Private Sub CommandButton1_Click() Dim Lrow As Integer Lrow = Sheets("data").Range("b10000").End(xlUp).Row + 1 Sheets("data").Cells(Lrow, "b").Value = Sheets("fan").Range("d5").Value Sheets("data").Cells(Lrow, "C").Value = Sheets("fan").Range("D7").Value Sheets("data").Cells(Lrow, "D").Value = IIf(OptionButton1.Value = True, "ذكر", "انثى") Sheets("data").Cells(Lrow, "E").Value = Sheets("fan").Range("D11").Value Sheets("data").Cells(Lrow, "F").Value = Sheets("fan").Range("D13").Value Sheets("data").Cells(Lrow, "G").Value = Sheets("fan").Range("D15").Value Sheets("data").Cells(Lrow, "H").Value = Sheets("fan").Range("G7").Value Sheets("data").Cells(Lrow, "I").Value = Sheets("fan").Range("G9").Value Sheets("data").Cells(Lrow, "J").Value = Sheets("fan").Range("G11").Value Sheets("data").Cells(Lrow, "K").Value = Sheets("fan").Range("G13").Value MsgBox "تم اضافة البيانات بنجاح", vbInformation, "تأكيد" Sheets("fan").Range("D5").Value = "" Sheets("fan").Range("D7").Value = "" Sheets("fan").Range("D11").Value = "" Sheets("fan").Range("D13").Value = "" Sheets("fan").Range("D15").Value = "" Sheets("fan").Range("G7").Value = "" Sheets("fan").Range("G9").Value = "" Sheets("fan").Range("G11").Value = "" Sheets("fan").Range("G13").Value = "" OptionButton1.Value = "" OptionButton2.Value = "" End Sub forms1.xlsm

بارك الله فيك استاذ حسين _ بعد اذنك ولإثراء الموضوع .. على ان يكون ايضاً الكود بهذا الشكل Private Sub CommandButton1_Click() If UserForm1.TextBox1.Value = "admin" And UserForm1.TextBox2.Value = 2020 Or UserForm1.TextBox1.Value = "ali" And UserForm1.TextBox2.Value = 456 Then Application.Visible = True UserForm1.Hide If UserForm1.TextBox1.Value = "admin" And UserForm1.TextBox2.Value = 2020 Then Sheet5.Select End If If UserForm1.TextBox1.Value = "ali" And UserForm1.TextBox2.Value = 456 Then Sheet1.Select End If Else MsgBox "بـرجاء مراجـعـة اســم المستخدم وكلمـة المـرور", , "Error" Label4.Caption = Label4.Caption - 1 If Label4.Caption = 0 Then ThisWorkbook.save Application.Quit End If End If End Sub شيت فاتورة مبيعات .xlsm

بعد اذن استاذ أحمد زمان طبعاً ...يمكنك استخدام هذا الكود فى حدث الصفحة لتكبير حجم الخط فى القائمة المنسدلة وأعتقد ان هذا يكفى فى هذه المشاركة فيجب الغلق فمن الطبيعى والمفترض ان تكون المشاركة لطلب واحد بارك الله فيكم Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo Skipper Dim x As Long x = 100 If Target.Validation.Type = xlValidateList Then x = 130 Skipper: ActiveWindow.Zoom = x End Sub _البرنامج 1-7-2020 - نسخة (2) (1).xls

طبعاً بعد اذن استاذنا الكبير سليم ... اخى الكريم bander22122 , الهدف الأساسى من المنتدى هو محاولة التعلم وليس اخذ المعلومة على الجاهز بدون الإستفادة والتعلم حتى يأتى لك يوم تفيد من يحتاج الى مساعدتك كما تم تقديم المساعدات لك من قبل اساتذتنا الكبار الأمر ليس صعب بل هم بسيط للغاية ويمكنك عمل ذلك بنفسك وكما أخبرك استاذنا الكريم سليم فقط عليك تغيير الرقم 100 الى اى رقم تريد فليكن 900 وبعد التعديل فى كل مواضع المعادلة .. عليك العلم بأن هذه ليست معادلة عادية بل هى معادلة مصفوفة .. اى بعد الإنتهاء من تغيير كل رقم 100 الى الرقم الذى تريده عليك بالضعط على ( Ctrl+Shift+Enter ) فلابد من ظهور الأقواس بهذه الطريقة بالمعادلة بعد هذه الخطوة {} وليس Enter فقط كباقى المعادلات وهذا هو السبب فى انك لم تستطع ضبط المعادلة ... وشكرا واسفغ على الإطالة

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

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

مبارك الترقية استاذ صالح وان شاء الله تكون على قدر هذه المسؤلية العظيمة .... ونتمنى لكم النجاح والتفوق دائماً

تفضل يمكنك جعل المعادلة هكذا ... وتم عمل أيضاً تنسيق شرطى للخلية اذا كان بها كلمة مغادرة =IF(G$7=$D8,"مغادرة",IF(AND(G$7>=$C8,G$7<=$D8-1),$E8,0)) If Function.xlsx

كان عليك استخدام خاصية البحث بالمنتدى -تفضل دالة جميلة للترجمة من الانجليزية الى لغات العالم

اخواني الكرام اضع بين ايديكم الجزء الاول من شرح الترحيل وبإنتظار تعليقاتكم واستفسارتكم ابواحمد الجزء الاول من الشرح ملف شرح الجزء الاول الترحيل.rar الجزء الثاني من الشرح ملف شرح الجزء الثانى الترحيل2.rar الجزء الثالث من الشرح (ترحيل القيم - ترحيل محدوود) ملف شرح الجزء الثالث الترحيل3.rar الجزء الرابع من شروحات الترحيل ملف شرح الجزء الرابع ترحيل حسب اسم الشيت.rar لا تنسوني أخوتي من الدعاء لي بظهر الغيب

بسم الله تحياتى لاعضاء المنتدى المحترم مرفق برنامج مخزنى ( معادلات و اكواد ) يعطى ارصدة الاصناف _ استخراج رصيد حركة الصنف بين تاريخين _ كود رقم الصنف تلقائى تم ادخال كود طباعه و كود بحث عند ادخال حركة الصنف و استخراج رصيد (من اكواد الاستاذ / عبدالله باقشير ) برنامج مخزن اوفيسنا 2020 _ بحث و طباعه.rar