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

جرب هذا الملف لا يتم ترحيل الفاتورة من الشبت Main الى الشيت Fatura أكثر من مرة واحدة اذا كانت مكررة (الاسم الأرقام والتاريخ) Hasan_Fatura.xlsm

أظن اته لا حاجة الى اليوزر و مشاكله اذا استعملتي هذا النموذج 1- أضيفي الى الشبت ما تريدين من الأعمدة مع عناويتها 2- تعبئة البيانات في الصفحة Main (يمكن تعبئة صف واحد أو عدة صفوف دفعة واحدة ) ليس كما في اليوزر 3- تحددين الورقة التي سيتم الترحيل اليها من الصفحة Main ( القائمة المنسدلة الحمراء) 4- تضغطين على الزر Run الكود Option Explicit Sub transfere_data() Dim M As Worksheet Dim sh As Worksheet Dim Rg As Range Dim ALL_Rg As Range Dim Max_ro% Set M = Sheets("Main") If M.Range("G2") = vbNullString Then Exit Sub Set sh = Sheets(M.Range("G2") & "") Max_ro = sh.Cells(Rows.Count, 2).End(3).Row + 1 If Max_ro <= 3 Then Max_ro = 4 Set Rg = M.Range("B3").CurrentRegion If Rg.Rows.Count = 1 Then Exit Sub Set Rg = Rg.Offset(1).Resize(Rg.Rows.Count - 1) Rg.Copy sh.Cells(Max_ro, 2).PasteSpecial (12) Set ALL_Rg = sh.Range("B3").CurrentRegion If ALL_Rg.Rows.Count > 1 Then sh.Range("A4").Resize(ALL_Rg.Rows.Count - 1) = _ Evaluate("row(1:" & ALL_Rg.Rows.Count - 1 & ")") End If Application.CutCopyMode = False End Sub الملف مرفق Omhamza.xlsm

1- هناك خطأ فب تصميم اليوزر قمت بتسمبة المبلغ في ListBox والمفروض TextBox كما في الصورة 2- ما هي أرقام الأعمدة (1 2 3....الخ) أو أسمائها ( AB M B A الخ....) من بين 30 عامود فهل تريدين ان نفتش عنها

امين واياك .... جزاك الله خيرا على الدعوات الطيبة منك يا طيب ..... هذا ما نحتاجه

تفضل --------->>>>>>> تجربة_(0).accdb

تفضل يا صديقي قدر الامكان تجنب الخلايا المدمجة حبث يوجد معادلات اكنب الاسم في الخلية G3 ولو كنت تراه في H3 Hasan.xlsx

ممكن كفكرة : تعمل تقريرين فرعيين ( للاستعلام بحث - والاستعلام بحث_وارد ) ثم تضيفهم في التقرير واحد ... بحيث يمكنك تنسيق التقريرين كما تريد ملاحظة البيانات الموجودة في التقرير كثيرة .... لذلك يمكن جعل التقرير غير منضبط أي غير جدولي

جرب المرفق التالي .... الصادر والوارد.rar

وعليكم السلام @Ahmed_J حياك الله ...

ممكن تستخدم مثلا هذا الكود ان اردت ..... If Len([mobile1]) < 11 Or Len([mobile1]) > 11 Then Beep MsgBox " عقواً .... تأكد من رقم الموبايل الصحيح ", 64, "تنبيه" Cancel = True Me.mobile1 = "" End If With mobile1 If Not IsNumeric(.Value) And .Value <> vbNullString Then Beep MsgBox "عفوا ... مسموح ادخال الارقام فقط", 16, " تحذير" .Value = vbNullString End If If Mid(mobile1, 1, 3) <> "078" Then MsgBox "عفوا ... تأكد من رقم الشبكة", 16, " تحذير" Me.mobile1 = "" End If End With

اصنع زر امر وضع فيه هذا الكود ..... DoCmd.PrintOut

نرحب بالأخ صالح البريكان (أبو آمنة) فى فريق الموقع🌼 أهلا وسهلا بك أخي الكريم ، و تقبل الله جهودك و جهود باقي الأخوة فى نشر العلم و المعرفة

اين الملف للعمل عليه؟؟؟ وهل تريدين ان تمسح البيانات من الشيب Main يعد الترحيل؟؟

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

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

لا يهمني ما يوجد في العامود (المطلوب اسمه و رقمه)

السلام عليكم ورحمة الله وبركاته 🙂 حياك الله اخوي صالح ضمن فريق العمل ، خطوة مباركة ان شاء الله 🙂 جعفر

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

مبارك الترقية استاذ صالح ونتمنى لكم النجاح والتفوق دائماً

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

قلت لك سابقاً ممنوع دمج الخلابا (ثم ما هذا التاريخ 1/1/1900 في الخلية D3 الذي يرجعنا 120 سنة الى الوراء)

جرب ...... Select Case Me.المجموع1 Case Is < 31 Me.نص45 = 1 Case Is < 61 Me.نص45 = 2 Case Is < 91 Me.نص45 = 3 End Select

ماشاء الله تبارك الله شغل معلمين كبار اوي ====================== اسمحولي ان اقترح ان يتم حفظ كامل بيانات الفاتورة بالتفصيل ثم يتم استخراج البيانات المطلوبة

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

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

بالخدمة اخي العزيز في نموذج STD يوجد مربعي نص باسم Name ,Date تابعين لحقلي تاريخ الدرجة واسم الموظف

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

اليك هذه الاضافة الى الملف (عسى ان تنال الاعجاب) ايجاد pos_sum و Neg_sum و All_sum بين تاريخين في صفحة واحدة "Test_All" Yara_All_In_One.xlsm

جرب هذا الماكرو Sub extractmonth_name() Dim i As Long For i = 4 To 115 Cells(i, 5).Value = Month(Cells(i, 2).Value) Next i End Sub 5.xlsm

تفضل طلبك جاهز اضافة خمس درجات.xlsm

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

كل المحبة والاحترام اخي العزيز صالح

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

ليس من الضروري ادراج الكثير من الصفوف يكفي نموذج بسيط (20- 30) صف Ammaro.xlsx

أخي الفاضل، بعد ما تنفذ الخطوات اللي تطرق لها الأستاذ أحمد اضف التواريخ في الملف المرفق حددها واضغط على الزر اللي داخل الملف. اللي بيصير وقتها إن الملف تلقائيا بيحرر كل خلية ويضغط إنتر تلقائيا، فبالتالي بتتحدث الخلايا وتتعرف على التاريخ الهجري تحياتي F2 and Enter.rar

السلام عليكم ورحمة الله استخدم الكود الآتى Sub RepTxt_Num() Dim C As Range, i As Long, x As String, Z As String For Each C In Range("AI5:AI" & Range("AI" & Rows.Count).End(xlUp).Row) For i = 1 To Len(C) x = Mid(C, i, 1) y = Application.HLookup(x, Range("A1:AF2"), 2, 0) Z = Z & y C.Offset(0, 1) = Z Next Z = "" Next End Sub

ماالجديد فى اكسيل 2016 في السنوات السابقة كانت اغلب التحديثات التي تتم في الإصدارات الجديده على مستوى الخلية او ورقة العمل واقصد بذلك انها التحديثات كانت تتم على الدوال او الشكل الجمالى ....الخ . ولكن في الإصدار الجديد 2016 ركزت ميكروسوفت على تثبيت أدوات التحليل الإضافية التي غالبا ماكانت بشكل منفصل عن الاكسيل في صورة تطبيقات وأدوات إضافية مثل POWER PIVOT-POWER VIEW– POWER 3D MAP-POWER QUERY-POWER BI ........ الخ. يحتوى الإصدار الجديد من EXCEL 2016 على العديد من المزايا والامكانيات المفيده والتي لم تكن موجوده في الإصدارات السابقة والان نتعرف على هذه المزايا الجديده . من خلال خلال هذا الملف لاتنسونا بصالح دعاؤكم تحميل الملف http://excelfinancial1.blogspot.com.eg/p/blog-page_16.html

السلام عليكم اولا قم بتحويل المعادلة الموجودة في الخلية A1 بهذا الشكل =IFERROR(VLOOKUP(Sel;M4:N8;2;0);"") ثانيا غير الكود السابق بهذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1") = 0 Then GoTo 100 If Range("A1") = "" Then GoTo 200 If Target.Address = Range("A2").Address Then _ Range("A3:K21").AutoFilter Field:=1, Criteria1:="=" & Range("A1") Exit Sub 100 Range("A3:K21").AutoFilter Field:=1, Criteria1:="<>" & "" Exit Sub 200 Range("A3:K21").AutoFilter End Sub ============== عندما تريد رؤية كل البيانات بما فيها الصفوف الفارغة إمسح الخلية التي تختارمنها الشركات ( A2 ) التي اسمها Sel

السّلام عليكم و رحمة الله و بركاته تفضّل أخى الكريم بعض المحاولات ربما تفي بالغرض .. 1- كود التّرقيم التّلقائي بالتاكست بوكس : Sub Tasselssol() 'tassalssol numerique mm = 5 Do Until Feuil1.Cells(mm, "a").Text = "" mm = mm + 1 Loop TextBox1.Value = mm + 1 - 5 End Sub Private Sub UserForm_Initialize() Tasselssol End Sub على أساس رقم الصف بالشيت هو الصف الخامس (5) و العمود الأوّل (a) ..واسم الشيت Feuil1 ملاحظة : يجب كتابة و إضافة عبارة " Tasselssol " بآخر سطر بالكود الذي سوف تستعمله - تعطيل الكتابة داخل التاكست بوكس .. يمكنك استعمال هذه الخاصّية : 3 - عدم قبول الأرقام بالتاكست بوكس .. بإمكانك استعمال هذا الكود : Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 32 To 64, 91 To 96, 123 To 126 MsgBox ("إنتبه.. يجب كتابة الحروف فقط") KeyAscii = 0 Exit Sub End Select End Sub خالص تحيّاتي

Option Compare Database Dim DBOld As String Dim DBNew As String Private Sub Form_Close() On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = DBOld DBwithEXT = Dir(OldFile) DBwithoutEXT = left(DBwithEXT, Len(DBwithEXT) - 4) Application.SetOption "Use Hijri Calendar", False NewFile = DBNew & "\" & Format(Now, "yyyymmddhhnnss") & ".mdb" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub End Sub Private Sub Form_Load() DBOld = CurrentProject.Path & "\db2.mdb" DBNew = CurrentProject.Path & "\tst\" Call zerNc End Sub Sub delfiles() Dim strFldr As String Dim strFile As String Dim FileToGet As String strFldr = CurrentProject.Path & "\tst" ' modify folder to your own strFile = Dir(strFldr & "\*.*") ' get list of files in folder Do While Len(strFile) > 0 FileToGet = left(strFile, Len(strFile) - 4) If FileToGet <= CStr(Format(Date - 3, "yyyymmdd")) Then Kill strFldr & "\" & strFile Else End If strFile = Dir Loop End Sub Sub zerNc() On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = DBOld DBwithEXT = Dir(OldFile) DBwithoutEXT = left(DBwithEXT, Len(DBwithEXT) - 4) Application.SetOption "Use Hijri Calendar", False NewFile = DBNew & "\" & Format(Now, "yyyymmddhhnnss") & ".mdb" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub Me.Requery Call delfiles End Sub db.rar

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

برنامج ادارة معرض او محل شرح البرنامج --------------------

السلام عليكم مثال مرفق للتحويل عن طريق الكود . تحياتي . HijriToGreg.rar