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

تفضل جرب هذا تلوين العملاء.xlsm

وعليكم السلام انظر للعلامة الخضراء يسار التقرير..لو وضعت المؤشر قريبا منها ستظهر لك ملاحظة تقول ان عرض التقرير اكبر من عرض الصفحة حاول ان تزحف العناصر اسفل التقرير الى اليسار قليلا ثم قلل من عرض التقرير قليلا حتى تختفي العلامة الخضراء

FirstDay = DateSerial(Year(Date), Month(Date), 1) LastDay = DateSerial(Year(Date), Month(Date) + 1, 0)

Use CHAR(10) instead of the space

السلام عليكم كان لدي طلب في موضوع هذا ادناه ، وتفضل استاذنا بالإجابة عليه بارك الله فيه وفضلت اعمل منفصل هنا لنقطة اخرى وهي اني اريد ان اجعل الإكسل يقوم بعمل في الطباعة صفحة لكل جدول بذاته مهما كان عدد صفوف الجدول كيف يكون ذلك ؟؟ اريد ان اطبع كل جدول في ورقة ، حتى لو تم اخفاء منه بعض الصفوف او لم اقوم بالاخفاء Print.xlsx

1/ ارسل شيت متكامل مثل الذي تستخدمه في عملك حتي اعرف امرين : أ- البيانات تبدا من اي سطر (بدون سطر العنوان)؟ ب- ما هو اول عمود واخر عمود في البيانات؟ بعد معرفتي لما جاء اعلاه سيتم تعديل الكود بكا يتوافق مع شيتات عملك وبعدها ساعطيك طريقة نقل الاكواد 2/ من الصعب تترك الاسم الجديد بدون لون لان بدون لون هو اصلا لون ابيض تخيل انك اضفت 20 اسما جديدا مرة واحدة فقط فكل هذه الاسماء الجديدة سيكون لونها ابيض وتبدو وكانها متطابقة لان لها نفس اللون

You can use helper columns A & B to achieve what you need by formulas مباريات.xlsx

ان شاء الله يكون طلبك Database27.accdb

رحم الله والديك ووالدينا ومن يقرا واسبغ عليك نعمه .. ولي طلب اخير ان شاء الله وهو تطبيق (قاعدة الباقي) على الملف الاول ( مرفق ) _للارسال هو (1).xlsm

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

سلمت يا غالي،، أسعدك الله وبارك فيك، ،ويلزم من ذلك التفاف النص لأنه لم يضبط معي إلا بذلك، لتوجيهكم إذا كنت أخطأت،، مع جزيل الشكر وعظيم الامتنان،،

الحمد لله الذي بنعمته تتم الصالحات

الف الف شكر يا اخى الفاضل تعبتك معى

وهذه مشاركتى المتواضعة يتم وضع الكود فى موديول ويتم استدعاء الكود من خلال السطر الاتى مع الاخذ فى الاعتبار كتابة اسم النموذج الفرعى frmSub Call SwitchDefaultView(Me, "frmSub") Public Sub SwitchDefaultView(frm As Form, ByVal strSubFrmName As String) Dim sFrm As String Dim sFrm2 As String On Error Resume Next frm.Dirty = False If Err.Number <> 0 Then MsgBox Err.Description: Exit Sub On Error GoTo 0 sFrm = frm.Name DoCmd.Close acForm, sFrm, acSaveYes sFrm2 = strSubFrmName DoCmd.OpenForm sFrm2, acDesign, , , , acHidden If Forms(sFrm2).DefaultView = 1 Then Forms(sFrm2).DefaultView = 2 DoCmd.Close acForm, sFrm2, acSaveYes ElseIf Forms(sFrm2).DefaultView = 2 Then Forms(sFrm2).DefaultView = 1 DoCmd.Close acForm, sFrm2, acSaveYes End If DoCmd.OpenForm sFrm, acNormal, , , , acWindowNormal End Sub SwitchViewsubForm.accdb

قم بتطويع هذا الكود مع ما يتناسب مع احتياجاتك Sub export_sheets() Dim Fname As String, ws As Worksheet Application.DisplayAlerts = False ' في هذا السطر ضع اسماء الشيتات المحددة Sheets(Array("sheet1", "sheet2")).Copy For Each ws In ActiveWorkbook.Sheets ws.UsedRange = ws.UsedRange.Value Next ws wb_name = "taqreer" ActiveWorkbook.SaveAs Filename:= _ 'مكان تخزين الملف "C:\Users\alhajaj\Desktop\" & wb_name & " report " & Format(Date, "dd-mm-yy") & ".xlsx", FileFormat:=51 ActiveWorkbook.Close Application.DisplayAlerts = True End Sub

حقيقة موضوع مهم و مميز ونقاش مفيد وأكثر من رائع 👍 نفع الله بعلمكم وجزاكم الله خير 🌸

اخي ادخل بيانات جديدة في جدول tbl_confrmation جدول tbl_promotion جدول tbl_takfl لحسب رقم الموظف لاني قمت بمسح البيانات القديمة بسبب الاخطاء الموجوده لديك لاحظ المرفق Database27.accdb

تكرم عينك أولاً نجلب الأسماء بمعادلة صفيف أي أنك عندما تكتب المعادلة لا تكتفي بالضغط على Enter بل ALT+SHIFT+ENTER =IFERROR(INDEX($A$3:$A$100;MATCH(0;COUNTIF($D$2:D2;$A$3:$A$100);0));"") ثم تجلب مجموع كل اسم في العمود E كما يلي: =IF(D3="";"";SUMIF($A$3:$B100;$D3;$B$3:$B100)) والسلام عليكم Book6.rar

Private Sub CommandButton4_Click() Dim x As Control, s As String, r As Long For Each x In UserForm2.Controls If TypeName(x) = "CheckBox" Then If x.Value = True Then r = r + 1 s = s & IIf(s = vbNullString, vbNullString, vbLf) & x.Name End If End If Next x MsgBox "There are " & r & " Checkboxes" & vbCrLf & s End Sub

تختار الصنف من جدول الاصناف المرتبط بتفاصيل المشتريات بحيث لما تختار الصنف يدرج تفاصيل الصنف والسعر في فاتورة المشتريات

السلام عليكم ورحمة الله وبركاتة يارب ينفع قراءة العداد 2018.xlsx أسال المولى عز وجل أن يكرمك بكل الرضى والسعادة والسلام عليكم ورحمة الله وبركاتة

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

الاخ العزيز كل سنة وانت طيب ورمضان كريم الملف الخاص بالاخ عبد العزيز يالمرفقات على المنتدى مع انه فتح معى بدون فيس كنا نتمنى تغيير اسمك للغة العربية حسب قواعد المنتدى وبالمناسبة الاخ عبد العزيز محمل اسماء الله بملف اكسل على المنتدى كما يوجد اسماء الله الحسنى بعددة طرق بالمنتدى على سبيل المثال http://www.officena.net/ib/index.php?showtopic=56084 http://www.officena.net/ib/index.php?showtopic=53916 http://www.officena.net/ib/index.php?showtopic=37509 أسماءاللهالحسنى.rar

اخى الفاضل جرب المرفق برنامج متابعة المكتبة.rar