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

أ.حسين العربى عسى أن يكون المطلوب test.accdb

بعد اذن استاذنا الكبير سليم ولإثراء الموضوع يمكنك تجربة هذا اكثر من شخص1.xlsx

هذه المعادلة =IF(COUNTIF(البيانات!$E$2:$E$500,الخلاصة!A2)>1,"ERROR",VLOOKUP(الخلاصة!A2,البيانات!$E$1:$F$1500,2,0))

أستاذنا kha9009lid .. أ.حسين العربى أعزكم الله .. ولكن لى طلب بعد إذنكم .. يعنى بالمصرى اللى سؤاله إتجاوب يفوت أى حاجة مش كله شكر شكر شكر .. مفيش دُعا ..🥰

الف الف شكر استاذي الفاضل essam rabea هذا هو المطلوب بالظبط جزاك الله خير والله افرحت قلبي ولك المثل وجعله الله في ميزان حسناتك

اهلا بك فى المنتدى-تفضل 1التسويات.xlsx

شوف المرفق Database501.accdb

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

رائع اخي @essam rabea

جرب المرفق back.rar

جرب الكود الموجود بهذا الرابط من أعمال أستاذنا الكبير ياسر خليل ابو البراء https://pastebin.com/DdEr76jc

اخوانى و احبابى أطـــــباء الاسنان وأعضــــــاء المنتدى الكــــــريم يســـــــعدنى أن اقـــــــــدم لكم برنامـــــــــج عيــادة طـــبيب اســــنان يتميز هذا البرنامج بالبســــــــــــــــاطة و ســـــــــــــهولة الاســـــتخدام و يجمع العـــــــــديد من المــــزايا الاحــــــترافية لبرنامـــــج الاكســس اتمنى ان يحوز رضاكم و مستعد لتنفيذ اى ملاحــظات لاخواننا الاطباء و فى الختـــــــام أسألكم الدعاء لى و لكل من أحببت بالمغفرة و الجنة و الى لقاء قريب مع هدية جديدة .. حتى تحبوا الاكسس البرنامج مكون من جزئين .. قم بوضعهم فى فولدر واحد ثم فك ضغط الملف الاول فقط قم بتغيير دقة الشاشة الى 768 × 1024 للحصول على رؤية ممتازة للبرنامج اخوكم/ عـــلاء الـــدين محمـــــــــــــــــد النكلاوى مصر - البحيرة - شبراخيت ت:3803009/045 موبايل : 0108455973 أخصائى تخطيط برامج بشركة مياه الشرب بالبحيرة neklawy1968@yahoo.com الجزء الاول Dr_net.part01.rar

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

فورم السابق والتالى والبحث واضافة البيانات فيديو 3 الفيديو

فورم السابق والتالى والبحث واضافة البيانات فيديو 2 الفيديو

اخي واستاذي عصام دعوة طيبة من زميل ساعدته تسوى الدنيا ومافيها بارك الله لك في صحتك واصلح لك ذريتك فَمَا أُوتِيتُم مِّن شَيْءٍ فَمَتَاعُ الْحَيَاةِ الدُّنْيَا ۖ وَمَا عِندَ اللَّهِ خَيْرٌ وَأَبْقَىٰ لِلَّذِينَ آمَنُوا وَعَلَىٰ رَبِّهِمْ يَتَوَكَّلُونَ لَٰكِنِ الَّذِينَ اتَّقَوْا رَبَّهُمْ لَهُمْ جَنَّاتٌ تَجْرِي مِن تَحْتِهَا الْأَنْهَارُ خَالِدِينَ فِيهَا نُزُلًا مِّنْ عِندِ اللَّهِ ۗ وَمَا عِندَ اللَّهِ خَيْرٌ لِّلْأَبْرَارِ اسأل الله ان يجعلنا من الابرار وممن تقضى حوائج الناس على ايدينا فذلك فضل من الله

راجع هذا الرابط ستجد به احد الامثله بالاستعلام لعلك تجد ماتريد به بالتوفيق ان شاء الله

انت ادرى منى بما تريده ولكنى احببت ان اوضح ما اعرفه من خلال ما قرات وتعلمت القليل فى هذا البحر الشاسع والمشاركه وان شاء الله سوف احاول وحتى اتعلم ايضا وحتى يساعد احد اساتذتنا الافاضل بما لديهم من علم بالتوفيق استاذى وتقبل تحياتى

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

اشكرك على المرور ان اقاصد انه يكون بجدولين منفصلين وهذا مثال فقط لكي انقل الطريقة على البرنامج الرئيسي حيث فيه سند قبض وسند صرف

استاذ @عبد اللطيف سلوم السلام عليكم ورحمه الله وبركاته لما جعلتهم فى جدولين منفصلين؟ اجعله جدول واحد وبدل حقل Notes اجعله حقل نوع العمليه وبه دائن او مدين او حتى بجدول منفصل كود 1 = دائن كود 2 يساوى مدين ثم هتحتاج حقل ترقيم بعيد عن الترقيم التلقائى لضبط العمليه ثم هيتم التجميع والطرح ع اساس كود النوع دائن و مدين وكود العميل هذه مساهمه منى لعلها تكون بفائده والله اعلى واعلم وان شاء الله تجد اقتراحات وحلول اخرى من اساتذتنا الافاضل ذوى الخبره بالمجال تقبل تحياتى وبالتوفيق ان شاء الله

اخى ابو عمار لست باستاذ مجرد طالب علم مبتدئ مثلك بارك الله فيك اتفضل هل هذا التقرير ما تريد ؟ جزاه خيرا الاستاذ @kha9009lid على هذا العمل الجميل جعله الله فى ميزان حسناته تقبل تحياتى وبالتوفيق ان شاء الله هههههه نسيت ارفاق الملف Database481_up.accdb

حسب ما فهمت : تريد جمع العدد الموجود في حقل HO لكل دورة الا وهي الحقل المسمى: sub اذن نستخدم هكذا معيار: =DSum("[ho]","[searchfinal2]","sub='" & [sub] & "'") report.accdb

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

جرب هذا الملف My project_new.xlsm

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

عليكم السلام اتفضل اخي الكريم اليك الداله التي تقوم بالمطلوب حل مشكلة الخلايا الفارغة مع الدالة VLOOKUP.xlsm

الشكر لله اخي @mostafa_27

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

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

أ.محمد صلاح1 فك الضغط .. شغل .. سيتم إنشاء فولدر على المسار التالى C:\Users\Public\Way to Heaven وستجد بداخله RenameDB.cmd به كود التحقق من إسم الملف وإمتداده برمجيا جرب ورد Test.zip

السلام عليكم اخ ايهاب ملاحظ انك نسخت اكواد حدث Workbook لماكرو وهذا غير صحيح تعتبر احداث خاصة لاتعمل الا بواجهة المصنف فقط او يرمز لها بأكواد مثلا حدث WorkBook Open بـ Auto_Open Private Sub Workbook_Open() Ref_Sh End Sub اذا اردات استخدامه عبر مودويل كالتالي Sub Auto_open() Application.Run "Thisworkbook.Ref_Sh" End Sub واليك المرفق وبه طلبك ehab3.xlsm

جرب كده نسخة_من_تطبيق_فرق_السعر_هيئة.xlsm

يمكنك استخدام هذا الكود فسوف يتم عمل ملف منفصل برقم الفاتورة عند الضغط على ترحيل فبذلك يمكنك طباعة اى فاتورة تريدها Sub Splitbook() Dim xPath As String ActiveSheet.Name = ActiveSheet.Range("AP2") & " NO" & Range("E6") xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True Range("E6") = ([E6]) + 1 End Sub Invoice.xlsm

بارك الله فيك عمل اكثر من رائع

تفضل لأنك لم تطبق المعادلة بطريقة صحيحة تقاطع العمود مع السطر OK.xlsx

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

تم التعديل قليلاً على الملف بحيث انك تستطيعين اختيار بداية البيانات من خلال Combobox و نزولاً 16 صف الصفحة Namouthaz VIVA_Mia_new.xlsm

السلام عليكم ورحمة الله هذه محاولة أولى (بتحفظ) في الملف المرفق... بن علية حاجي الفرق بين الاجراءات - Copy.xlsx

السلام عليكم هذا هو الرقم السرى 1278 الى الاستاذ طاهر / ارجو الرد بعد تجربة الباسوورد

تم التعديل كما تريد Option Explicit Sub get_data() Application.ScreenUpdating = False Dim dic As Object Set dic = CreateObject("scripting.dictionary") Dim dic_key Dim ro# Dim i%: i = 2 Dim x_titel#: x_titel = 2 Dim find_ro# Dim lrDem# lrDem = Demandes.Cells(Rows.Count, 1).End(3).Row Dim my_rg As Range Set my_rg = Demandes.Range("A1:F" & lrDem) On Error Resume Next Demandes.ShowAllData On Error GoTo 0 Facteur.Range("H:M").Clear lrDem = Demandes.Cells(Rows.Count, 1).End(3).Row Facteur.Range("Q1") = "رقم الفاتورة" With dic Do Until Demandes.Cells(i, 1) = vbNullString If Not .exists(Demandes.Cells(i, 1).Value) Then .Add Demandes.Cells(i, 1).Value, "" End If i = i + 1 Loop For Each dic_key In dic.keys Facteur.Range("H" & x_titel).Resize(8, 2) = _ Range("Header_Rg").Value Range("H" & x_titel + 2).NumberFormat = "0" Facteur.Range("Q2") = dic_key my_rg.AdvancedFilter 1, Facteur.Range("Q1:Q2") Demandes.Range("c1:f" & lrDem). _ SpecialCells(xlCellTypeVisible).Copy _ Facteur.Range("H" & x_titel + 9) Application.CutCopyMode = False Demandes.ShowAllData find_ro = Demandes.Range("A1:A" & lrDem).Find(dic_key).Row With Range("H" & x_titel + 6) .Value = Demandes.Cells(find_ro, 2) .NumberFormat = "d/m/YYY" .Offset(-2, 1) = dic_key End With ro = Facteur.Cells(Rows.Count, "H").End(3).Row Range("K" & ro + 2) = _ Evaluate("SUM(K" & x_titel + 10 & ":K" & ro & ")") Range("H" & ro + 2).Resize(3) = _ Range("RESULT").Value Range("K" & ro + 3) = _ Range("K" & ro + 2) * [D2] / 100 Range("K" & ro + 4) = _ Range("K" & ro + 2) + Range("K" & ro + 3) x_titel = ro + 8 Next dic_key .RemoveAll End With Set my_rg = Nothing Range("Q1:Q2").Clear Columns("H:M").InsertIndent 1 Application.ScreenUpdating = True End Sub '========================= Sub clear_data() Facteur.Range("H:K").Clear End Sub '========================= Sub Print_areas() Application.ScreenUpdating = False Dim My_Area As Range Dim last_row# Dim Serach_RG As Range Dim find_what$: find_what = "الإجمالي شامل الضريبة" Dim My_row#, Fix_row# Facteur.ResetAllPageBreaks last_row = Facteur.Cells(Rows.Count, "H").End(3).Row If last_row = 1 Then GoTo Leave_Me_Alone Set My_Area = Range("H1:K" & last_row) Facteur.PageSetup.PrintArea = My_Area.Address Set Serach_RG = My_Area.Find(find_what, after:=Range("h2")) If Not Serach_RG Is Nothing Then My_row = Serach_RG.Row: Fix_row = My_row Do Facteur.HPageBreaks.Add Before:=Range("H" & My_row + 3) Set Serach_RG = My_Area.FindNext(Serach_RG) My_row = Serach_RG.Row If My_row = Fix_row Then Exit Do Loop End If Leave_Me_Alone: Application.ScreenUpdating = True End Sub '''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Worksheet_Activate() ' Dim t%, h%, w%, l% ' h = 40: w = 140: l = 758 ' With Me.Shapes.Range(Array("Button 1")) ' .Height = h: .Width = w ' .Left = l: .Top = 10 ' End With ' With Me.Shapes.Range(Array("Button 2")) ' .Height = h: .Width = w ' .Left = l: .Top = 60 ' End With ' With Me.Shapes.Range(Array("Button 3")) ' .Height = h: .Width = w ' .Left = l: .Top = 110 ' End With ' End Sub ' '''''''''''''''''''''''''''''''''''''''''''''''' الملف مرفق Tasmim Fatura_with Printing_Special.xlsm

السلام عليكم اخي الكريم حاتم مشكور على كلماتك الطيبه هذه تعديلات على حدث Private Sub TextBox1000_Change() Private Sub TextBox1000_Change() If TextBox1000.Value = "" Then ListBox1.Clear: Exit Sub Dim x As Worksheet Dim c As Range ListBox1.Clear k = 0 For Each x In ThisWorkbook.Worksheets SS = x.Cells(Rows.Count, 10).End(xlUp).Row For Each c In x.Range("D10:D" & SS) b = InStr(c, TextBox1000) If Trim(c) Like TextBox1000 & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = x.Cells(c.Row, 4) ListBox1.List(k, 1) = c.Worksheet.Name ListBox1.List(k, 2) = c.Row k = k + 1 End If Next c Next x End Sub وحدث Private Sub ListBox1_Click() Private Sub ListBox1_Click() For I = 0 To ListBox1.ListCount If ListBox1.Selected(I) = True Then For j = 1 To 32 Controls("TextBox" & j).Text = Sheets(ListBox1.List(I, 1)).Cells(ListBox1.List(I, 2), j) Next j r = ListBox1.List(I, 1) Exit For End If Next I End Sub ان شاء الله يعمل معك كما ترجو تحياتي

السلام عليكم ورحمة الله تم عمل المطلوب بالمعادلات (معادلات بسيطة ومعادلات صفيف)... بن علية حاجي ترحيل الحراس.xlsm

أخي أحمد هناك دالة في الاكسل لهذا الغرض ولا لزوم لل Vlookup (Rept(text,number_times تكفي هذا المعادلة =REPT("*",A2)

اتفضل اخى الكريم الملف الترحيل من الاكسيل الى الورد.xlsm

جرب هذا الملف كنموذج Super Adv_Filter.xlsm

من لا يشكر الناس لا يشكر الله الف الف شكر اخوي nawafabufars الف الف شكر اخوي ali mohamed ali اجبتم فاجتم جزاكم الله كل خير

لك ما تريد percent _simple.xlsx

السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية حاجي جلب بيانات فى خلية من أربع خلايا.xls

تصدير قاعدة بيانات التلاميذ من الاكسيل إلى قاعدة البيانات الخاصة بالحكومة الاكترونية الملف في الرابط التالي https://drive.google.com/file/d/1DP739A1BdYCGxTzIN_WYc_EFKYIcKvsq/view?usp=sharing وللاستفسار أنا في الخدمة وسوف أقوم بعمل فيديو لشرح كيفية تسجيل البيانات في الاكسيل ثم رفع على موقع الوزارة دفعة واحدة وذلك في حال طلب ذلك من الاعضاء الكرام إن شاء الله تعالى