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

فورم ادراج وتعديل وحذف سطور واعادة الترقيم من خلال حدث الورقة

السلام عليكم ورحمة الله استخدم الكود التالى Sub TrData() Dim ws As Worksheet, Detl As Worksheet Dim LR As Long, p As Long, i As Long, C As Range Set ws = Sheets("قاعدة بيانات") Set Detl = Sheets("بيان") LR = Detl.Range("H" & Rows.Count).End(3).Row For Each C In ws.Range("E2:E" & ws.Range("E" & Rows.Count).End(3).Row) i = WorksheetFunction.CountIf(Detl.Range("H2:H" & LR), C) If i = 0 Then Detl.Range("H" & LR + 1).Offset(p).Resize(12) = C p = p + 12 End If Next End Sub

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

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

شكرا لكلماتك الطيبة بالنسبة لشرح المعادلة ستجد أنها تتكون من 4 أجزاء الجزء الأول =IFERROR(...................,"") وهو لجعل الخلية قارغة إذا حدث خطأ في ناتج المعادلة .............. والجزء الثاني INDEX($A$3:$A$10,SMALL(IF(C$3:C$10="ح",$A$3:$A$10),ROW()-12)) وهو لجلب رقم المسلسل من العمود a في حالة كون العمود c وما بعده عند السحب يسارا يساوي "ح" ولأن المعادلة في الصف 13 استعملنا row()-12 وتعني 1 والجزء الثالث &" "& للربط بين معادلة المسلسل ومعادلة الاسم الجزء الرابع INDEX($B$3:$B$10,SMALL(IF(C$3:C$10="ح",$A$3:$A$10),ROW()-12)) وهو لجلب الاسم من العمود B في حالة كون العمود c وما بعده عند السحب يسارا يساوي "ح" ولأن المعادلة في الصف 13 استعملنا row()-12 وتعني 1 بالتوفيق

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

تفضل أخي @العوام 🙂 store1.accdb

يمكنك استعمال هذه المعادلة في الخلية C13 =IFERROR(INDEX($A$3:$A$10,SMALL(IF(C$3:C$10="ح",$A$3:$A$10),ROW()-12))&" "&INDEX($B$3:$B$10,SMALL(IF(C$3:C$10="ح",$A$3:$A$10),ROW()-12)),"") مع سحب المعادلة يسارا ثم أسفل وهذا ملفك بعد كتابة المعادلة فيه فربما لا يعرف أحدنا كيفية إضافة المعادلات للملفات بالتوفيق كتابة مسلسل واسم الشخص في خلية واحدة؛ وتعديل معادلة.xlsx

تفضل أخي figo82eg 🙂 Private Sub OpenPDFBtn_Click() Dim DesPath As String Dim D As String: D = "\" DesPath = (BECurrentPath & D & [Text10] & D & [نوع الخطاب] & D & [Combo1] & D & [Combo2] & D & [crn] & D & [crn] & ".pdf") 'Debug.Print DesPath If IsFileExists(DesPath) Then FollowHyperlink DesPath Else MsgBox "لم يتم العثور على الملف", vbOKOnly, "تنبيه" End If End Sub ارشيف - Moosak.rar

جرب استعمال هذا الكود كمحاولة لضبط المدخلات في الخلايا عن طريق الاستبدال ثم بعدها يتم تقسيم النص إلى أعمدة عن طريق الشرطة يدويا ويمكنك إضافة أي عدد من العناصر التي يمكن استبدالها في المصفوفتين Sub mrmas() OldArr = Array("مهندس", "معاون", "درجة", "سادسة", "خامسة", "رابعة", "ثالثة", "ثانية", "اولى", "كبير", "استثنائى", "كبير-ثان", "كبير -ثان", " ", "--") newarr = Array("-مهندس", "-معاون", "-درجة", "سادسة-", "خامسة-", "رابعة-", "ثالثة-", "ثانية-", "اولى-", "كبير-", "-استثنائى-", "كبير ثان", "كبير ثان", " ", "-") For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row For i = 0 To UBound(OldArr) Range("a" & r).Value = Trim(Replace(Range("a" & r).Value, OldArr(i), newarr(i))) Next i Next r MsgBox "Done by mr-mas.com" End Sub وهذا الملف وبه الكود لأنه في بعض الحالات لا يعرف صاحب الاستفسار طريقة إضافة الكود ..بالتوفيق تقسيم النص إلى معلومات.xlsb

بسم الله الرحمن الرحيم من لايشكر الناس لايشكر الله شكر واجب للاستاذ دينمو المنتدى بصراحة المهندس قاسم @Eng.Qassim ربنا يرضيك يارب اخى الكريم بقدر مجهودك مع الجميع والله اخى انا احبك فى الله تقبل شكرى واحترامى وتقديرى لك اخى الكريم

تفضل المستخلصات.rar

وعليكم السلام 🙂 في لوحة الخصائص ومن Other الخيار Cycle تختار السجل الحالي

Book1.xlsx

اخي الحسامي بعد البحث على النت حصلت الكود المطلوب ويقوم بنسخ الخلية D7 الى الخلية C7 كل دقيقة الكود هو Dim TimeToRun Sub auto_open() Call ScheduleCopyPriceOver End Sub Sub ScheduleCopyPriceOver() TimeToRun = Now + TimeValue("00:01:00") Application.OnTime TimeToRun, "CopyPriceOver" End Sub Sub CopyPriceOver() Calculate Range("c7").Value = Range("d7").Value Call ScheduleCopyPriceOver End Sub Sub auto_close() On Error Resume Next Application.OnTime TimeToRun, "CopyPriceOver", , False End Sub حاولت ادمج هذا الكود مع الكود الذي كتبته مشكورا لكن لم اوفق الان ما اريد عمله هو التالي: If A1=1 Then every minute do: Copy(F2:I2) Paste(F3:I3) Copy(B1:E9) Paste(B2:E10) Copy(F3:I3) Paste(B1:E1) If A1=0 do nothing اتمنى ان اجد منك المساعدة ولك مني كل الشكر والتقدير OK.zip

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

اولا هذا منتدى الاكسس وليس الاكسل ولكن على كل حال اليك الحل وينقل الموضوع الى جيران الهنا فى منتدى الاكسل وعذرا ان لم استخدم الدوال بشكل صحيح او ان كان هناك اختصار للحل بطريقة افضل انا لا اعلم اى شئ عن الاكسل تقريبا تلك المرة الاولى التى احاول فيها التعامل مع ملفات الاكسل ولكن بحثت على الانترنت وهذا تطبيق طويلب علم مجتهد لذلك ارجو السماح وعلى الله حد يتريق على الحل اللهم انى ناوى اصوم رمضان هاهاهاهاهاها للعلم استخدمت الدالة SUMIF لحساب اجمالى المنتجات للمندوب والدالة SUMIFS لحساب اجمالى المنتج المطلوب استثناءه ثم قمت بعمل طرح اجمالى المنتج المطلوب استثناءه من اجمالى المنتجات للمندوب للحصول على النتيجة المرجو الوصول اليها كل عام وانتم بخيــــــــر Book1.xlsx