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

زيادة في اثراء الموضوع هذا الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$A$2" And _ Target.Count = 1 Then My_validation End If Application.EnableEvents = True End Sub Rem================================ Sub My_validation() Dim Bayanat As Worksheet: Set Bayanat = Sheets("البيانات") Dim Amaliate As Worksheet: Set Amaliate = Sheets("العمليات") Dim arr(), Ro%, t%, Col%, st$ Ro = Bayanat.Range("a:a").Find(Amaliate.Cells(2, 1)).Row Col = Bayanat.Cells(Ro, Columns.Count).End(1).Column For t = 2 To Col ReDim Preserve arr(1 To t - 1) arr(t - 1) = Bayanat.Cells(Ro, t) Next st = Join(arr, ",") With Amaliate.Cells(2, 2).Validation .Delete .Add xlValidateList, Formula1:=st End With Amaliate.Cells(2, 2) = arr(1) Erase arr End Sub المبف مرفق variable_data_val.xlsm

وعليكم السلام -بعد اذن الأستاذ مصطفى ولإثراء الموضوع 1ملف العملاء.xlsx

وعليكم السلام تفضل ملف العملاء.xlsx

بعد اذن الاخ وحيه هذا الماكرو Option Explicit Sub Get_Blanks() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim Pr As Worksheet Dim Da As Worksheet Set Pr = Sheets("Print") Set Da = Sheets("Data") Dim LR_Pr%, k% Dim separator%: separator = 14 If IsError(Application.Match(Pr.Range("f2"), Da.Range("G:G"), 0)) Then MsgBox "Wrong name of Section" Pr.Range("A14:f5000").Clear GoTo Exit_Sub End If Dim x%: x = Application.CountIf(Da.Range("G:G"), Pr.Range("f2")) LR_Pr = Pr.Cells(Rows.Count, "b").End(3).Row If LR_Pr > 13 Then Pr.Range("a14").Resize(LR_Pr, 6).Clear End If For k = 1 To x - 1 Pr.Range("PRINCE_RG").Copy Pr.Range("a" & separator).PasteSpecial separator = separator + 14 Next Application.CutCopyMode = False fill_data Pr.Range("c4").Select Exit_Sub: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub Rem==================================== Sub fill_data() Dim col_Dt As New Collection Dim Pt As Worksheet: Set Pt = Sheets("Print") Dim Dt As Worksheet: Set Dt = Sheets("Data") Dim First_Row_dt%, Fix_Row_dt% Dim find_rng As Range Dim kk%: kk = 4 Dim Collec_num% Set find_rng = Dt.Range("g:g").Find(Pt.Range("f2")) If Not find_rng Is Nothing Then Fix_Row_dt = find_rng.Row: First_Row_dt = Fix_Row_dt col_Dt.Add Dt.Cells(Fix_Row_dt, 1).Value Do Set find_rng = Dt.Range("g:g").FindNext(find_rng) Fix_Row_dt = find_rng.Row If First_Row_dt = Fix_Row_dt Then Exit Do col_Dt.Add Dt.Cells(Fix_Row_dt, 1).Value Loop End If For Collec_num = 1 To col_Dt.Count Pt.Range("c" & kk) = col_Dt(Collec_num) kk = IIf(kk < 15, kk + 13, kk + 14) Next Set col_Dt = Nothing End Sub الملف مرفق Print_Shahadat.xlsm

اتفضل الملف لعله يفى بالغرض نسخة من طباعة شهادات.xlsm

اخوان الاعزاء خواتيم مباركه المطلوب مثال للبحث بين تاريخين البداية والنهاية رقم الفاتورة التي من الممكن تتشابه في الارقام من محلات متعددة والمطلوب كود يبحث بشرط ان لايقل عن حقل بداية التاريخ ولا يزيد عن حقل نهاية التاريخ

بعد أذن أخي @محمد احمد لطفى تفضل وهذا كود أخر من استاذنا الكبير @jjafferr DoCmd.OpenForm "employees", , , "[id]= '" & Me.id & "'" هذا لأنك تقوم بالنقر مرتين بالماوس .. قم البضغط مرة واحدة وترى انه يقوم بالتركيز كما تريد .. أو ضع الكود عند حدث النقر المزدوج ..

حبيبي الاستاذ سليم بارك الله فيك وزادك من علمه

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

نعم فتحت

شغاله تمام في ما يخص الاصدار 64 لو سمحت روح لاي صفحة بالاكواد واعمل كمبايل من debug وشوف الاخطاء هناك عناصر تحتاج تعديلات قد تكون المشكلة لدى صديقك هو تعريف اللغة العربية وهنا الطريقة https://www.officena.net/ib/topic/87478-حل-مشكلة-الترميز-في-الاكسل/ بالتوفيق

اخي @عبد اللطيف سلوم المشكلة ليست بالنظام المشكلة في الافيس الذي لدى الزبون اعد تنصيبة وستحل المشكلة ان شاء الله

اعتقد لا بد من الجداول وعلى فكره .. في برامجي ابني القوائم في جدول واحد حيث برمجيا استطيع اسناد اي قائمة لاي كمبو باي نموذج @أبو إبراهيم الغامدي تحياتي

@qathi شكرا لمرورك وشكرا لتعاونك وبالعكس انا اكن كل الحب والتقدير والاحترام الى الاخ @مسفر

لدي 64 بت ولكن لا استطيع فتح ملف مضغوط حديث .. اعد الارفاق كملف اكسس مباشره

السلام عليكم عندي نظام 32 و تشتغل بشكل عادي

تفضل New Microsoft Access قاعدة بيانات (4).accdb

استاذ وجيه شرف الدين بارك الله فيكم وزادكم من علمة .تقبل الله منا ومنكم صالح الأعمال .

ما شاء الله استاذ سليم عمل رائع جزاكم الله خير الجزاء

بارك الله فيكم استاذتى الكرام

https://docs.microsoft.com/en-us/previous-versions/office/developer/officetalk2010/ff700513(v=office.11) https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2010/ee691831(v=office.14)

السلام عليكم ورحمة وبركاته هذا برنامج خاص بالوحدات العسكرية وهو عبارة عن المستلم لكل فرد من سيارات وأسلحة وأجهزة منتظر آرائكم وخاصة من أخواننا العسكريين لتطويره .... أبو ليان ________________________.rar

التموين للوحدات العسكرية.mdb

السلام عليكم انا عملت تغيير بسيط فى الملف انى حولت البيانات الى جدول اتوماتيك و اتمنى ان ده يساعدك جرب الملف و شوف تعديل في دالة vlookup1.xlsx

وعليكم السلام تفضل اخى الكريم عليك مشاهدة هذه الصورة لمعرفة سبب توقف المعادلة عن العمل Copy of Bank Statement _ 2019.xlsm

جاري التجربة يا ربي لك الحمد والشكر تم الموضوع بنجاح شكرا اخي @رمهان على جهودك ما قصرت OVER

السؤال الان : هل لديك دوال api في وحدات نمطية عامة ؟ الصقها هنا للتعديل وعلى العموم اذا كان لديك دوال تبدا كالتالي private declare function عدلها ب private declare ptrsafe function وهذا رابط للفائده https://www.officena.net/ib/topic/64325-مثال-يعمل-على-اكسس-32-بت-و-64-بت/ بالتوفيق

لم يترك لنا ابو جودي مجال للتعبير .. اخي الشربيني شكرا لجمال خلقكم وطيب قولكم ،وكل عام وانتم بخير

استخدم الشفرة التالية في زر الأمر START Dim I As Integer Dim DATE_POST As Date DATE_POST = CDate(Forms![TEST1]![Date_M]) For I = 1 To Forms![TEST1]![F] If Not Weekday(DATE_POST) Like "[6-7]" Then Me.no = I Me.date = DATE_POST Else I = I - 1 End If DATE_POST = DATE_POST + 1 DoCmd.GoToRecord , , acNewRec Next

كيف تقوم بعمل زهرة بالحروف فى الباوربوينت How to make flower by letters (powerpoint)

الحمد لله سبحانه وتعالى الذى تتم بنعمته الصالحات الحمد لله الذى هدانى وما كنت لاهتدى لولا ان هدانا الله عزوجل ربنا لا علم لنا الا ما علمتنا انك انت العليم الحكيم 1- الحمد لله تعالى تم عم المطلوب 2- تم التعديل على نموذج الدخول لو تمت كتابة اسم مستخدم غير موجود اصلا تظهر رسالة حتى قبل كتابة كلمة المرور وعندما بكون اسم المستخدم صحيح يتم نقل التركيز لمربع الباسورد فى انتظار رد حضرتك بعد التجربة ان شاء الله اللهم اكرم كل من تعلمت على ايديهم وارزقهم وبارك لهم فى رزقهم واجزهم عنى وعن امة محمد خير الجزاء يارب العالمين اللهم امين امين امين _up_مثال سامي.rar واسم المستخدم وكلمة المرور ناصر 1 احمد 3 سامي 2 وللمرة الثانية عذرا على التأخر فى الرد لضيق وقتى وانشغالى بعملى وكذلك لدراسة وتحليل المرفق دمتم فى امان الله

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